bài 1: trong các khai báo sau, khai báo nào đúng?

A. Var 3A : integer                                          C. Var a, b : integer

B. Const Pi \(:=\) 3,14                                        D. Var CV \(=\) real

bài 2: tìm điểm sai trong khai báo hằng sau:

                   Const Max \(:=\) 2010

A. dư dấu bằng (=)

B. tên hằng không được nhỏ hơn 4 kí tự

C. từ khoá khai báo hằng sai

D. dư dấu hai chấm

bài 4: giả sử A được khai báo là biến với kiểu dữ liệu xâu, X là biến với kiểu dữ liệu số thực. có phép gán nào sau đây là không hợp lệ không?

A. X \(:=\) 4.1                                                       C. A \(:=\) 3242

B. X \(:=\) 324.2                                                   D. A \(:=\) '3242'

giúp em với!!!!!!!!!!! mai kiểm tra giữa kì rồi T^T

Câu 58: Câu lệnh Const  t = 250; có nghĩa là:

            A. Khai báo biến t                                          B. Khai báo hằng t có giá trị là 250

            C. Khai báo hằng t có giá trị là 15                 D. Khai báo hằng t có giá trị tùy ý

Câu 59: Câu lệnh Var x, y : integer; có nghĩa là:

            A. Khai báo biến x, y kiểu số thực.                B. Khai báo biến x, y kiểu kí tự.

            C. Khai báo biến x, y kiểu số nguyên.           D. Khai báo hai hằng tên là x và y.

Câu 40:  Hãy cho biết các  khai báo được đánh số sau đây , khai báo nào là sai ?

1. Const a=1;

2. Const  MaxData  = 1024 * 64 - 16;

3. Const NumChars = Ord('Z') - Ord('A') + 1;

4. Const  Message  = Hello Pascal; 

a.  1.

b.  2.

c.  3.

d.  4.

Câu 41: Cho biết  chương trình sau in ra gì trong các phương án cho dưới đây?

Var st : string;  i, dd : integer;

Begin

st :='So Buu chinh Vien thong' dd:=Length(st); 

For i := 1 to dd do

if (st[i] >= 'a') and (st[i] <= 'z') then st[i]:= Upcase (st[i]);

   Write (st);

End. 

a.  SO BUU CHINH VIEN THONG.

b.  so buu chinh vien thong.

c.  So Buu Chinh Vien Thong.

d. So buu chinh VIEN THONG.

Câu 42: Cho biết khi thực hiện đoạn lệnh sau ‘’songay’’ bằng bao nhiêu(biết  nam=2002 thang=2) trong các phương án cho dưới đây?

begin

Write(nhap thang:’);Readln(thang);

   Write('Cho biet nam : ');   Readln(nam);

      Case thang Of

       1,3,5,7,8,10,12: songay:=31;

      4,6,9,11 : songay:=30;

      2    :Case nam Mod 4 Of

               1,2,3 :songay:=28;

                    0      :songay:=29;

          End;

  End.

a. 28.

b. 29.

c. 2.

d. 0.

Câu 43:   Cho biết khi thực hiện đoạn lệnh sau kết quả s bằng bao nhiêu với n=4 trong các phương án cho dưới đây?

Var n, i , s:integer;

Begin

   Clrscr;

   Write('Nhap vao gia tri cua n :'); Readln(n);

   s:=2;

   For i:=1 to n do s:=s+1;

End;

a. 6.

b. 8.

c. 10.

d. 12.

Câu 44: Kết quả  khi thực hiện  đoạn mã sau bằng bao nhiêu trong các phương cho dưới đây ?

s:=0

For i:=1 To 2 Do

     For j:=1 to 3 Do

Begin

s:=s*i*j;

Writeln('s=',s);

End

a. 120.

b. 625.

c. 0.

d. 112.

Câu 45: Hãy cho biết kết quả đoạn mã sau bằng bao nhiêu trong các phương án cho dưới đây ?

Var

a,b,s:Real;

Begin

a:=9;

b:=34;

s:= sqrt(b-a);

Writeln ('s = ', s);

End.

a. 3.

b. 0.

c. 5.

d. 100.

Câu 46: Hãy cho biết  chương trình đệ quy sau khi n=3 thì  factorial bằng bao nhiêu trong các phương án sau đây?

Function  Factorial(N:integer):Longint;

Begin

If N=0 Then  Factorial:=1

  Else    Factorial:=N* Factorial(N-1);

End;

a. 3.

b. 0.

c. 6.

d. 10.

Câu 47: Hãy cho biết kết quả của đoạn  mã sau bằng bao nhiêu trong các phương án dưới đây ?

s:=0;

For i=1 To 2 Do

    For j =1 to 2 Do

s:=s+i*0;

Writeln('S=',s);

a. 12.

b. 0.

c. 15.

d.10.

Câu 48: Hãy cho biết kết quả a,b,c  của chương trình sau  bằng bao nhiêu trong các phương án cho dưới đây?

Var a,b,c:integer;

Procedure tt(  a:integer; var b,c:integer);

Begin

a:=a+1; b:=b+1; c:=a+b;

End;

Begin

a:=1;b:=1;

tt(a,b,c);

Write(‘a=’,a,’b=’,b,’c=’,c);

Readln;

End.

a. a=2 b=2 c=4.

b. a=1 b=1 c=2.

c. a=1 b= 2c=4.

d. a=1 b=2 c=0.

Câu 49: Muốn xoá tệp có tên ‘LyLich.Dat’   trên đĩa (được đặc trưng qua biến F ) ta viết như thế nào trong các cách viết cho dưới đây ?

a. Assign(F,  'LyLich.dat');remove(F);

b. Assign(F,  'LyLich.dat');del(F);

c. Assign(F,  'LyLich.dat');delete(F);

d. Assign(F,  'LyLich.dat');erase(F);

Câu 50: Hãy cho biết đoạn chương trình sau khi n=4 thì s bằng bao nhiêu trong các phương án dưới đây?

 Var n,i, s:integer;

Begin

   Clrscr;

   Write('Nhap vao gia tri cua n :'); Readln(n);

   S:=0;

   For i:=1 to n do s:=s*i;

End;

a. 10.

b. 0.

c. 11.

d. 12.

Câu 51:Hãy cho biết đoạn chương trình sau giải quyết bài toán gì trong các phương án cho dưới đây?

M:=A[1];

For i:=2 To N Do

       If M>A[i] Then M:=A[i];

a. Tìm phần tử lớn nhất của mảng N phần tử.

b. Sắp xếp N phần tử của mảng giảm dần.

c. Sắp xếp N phần tử của mảng tăng dần.

d. Tìm phần tử nhỏ nhất của mảng N phần tử.

Câu 52: Hãy cho biết đoạn chương trình sau giải quyết bài toán gì trong các phương án cho dưới đây?

M:=A[1];

For i:=2 To N Do

       If M<A[i] Then M:=A[i];

a. Tìm phần tử lớn nhất của mảng N phần tử.

b. Sắp xếp N phần tử của mảng giảm dần.

c. Sắp xếp N phần tử của mảng tăng dần.

d. Tìm phần tử nhỏ nhất của mảng N phần tử.

Câu 1. Trong pascal, khai báo nào sau đây là đúng?

A. Var do duong : real;

B. Var 4hs: integer;

C. Var x, y, z : integer;

D. Var R=30;

Câu 2. Trong Pascal khai báo nào sau đây là sai?

A. Const a=10000;

B. Var x, y:integer;

C. Const pi=3.14;

D. Var x=10000;

Câu 3. Trong pascal khai báo nào sau đây là đúng?

A. Var a b c : real;

B. Var a, b, c: read;

C. Var a, b, c : real;

D. Var a; b; c: real;

Câu 4. Trong pascal câu nào sau đây đúng

A. Const pi : real;

B. Const pi : 3.14;

C. Const pi = real;

D. Const pi =3.14;