35 câu trắc nghiệm Pascal - Website Trường THCS Lê Quý Đôn - Đại Lộc - Quảng Nam

Muốn biến Max lưu giá trị lớn nhất của mảng A thì cần khai báo biến Max kiểu gì vào chỗ.;[r]

(1)

35 câu trắc nghiệm Pascal Câu 1: Cho S i biến nguyên. Khi chạy đoạn chương trình: s:=0;

for i:=1 to 10 s := s+i; writeln(s);

Kết in lên hình : A/ s = 11

B/ s = 55 C/ s = 100 D/ s = 101

Câu 2: Cho S, i N>0 biến nguyên Ðể tính S = N!, chọn câu : A/ S:= 1; For i := to N S := S * i;

B/ S:= 0; For i := to N S := S * i; C/ S:= 1; For i := to N S := S * N; D/ S:= 1; For i:= to N S := S + i;

Câu 3: Cho S =1^2 + 2^2 + + 100^2 Nhóm lệnh tính sai Giá trị S: A/ S:=0; FOR i:=1 TO 100 DO S := S + i*i;

B/ S:=0; FOR i:=1 TO 100 DO S := S + SQR(i); C/ S:=0; FOR i:=100 DOWNTO DO S := S + i*i; D/ S:=1; FOR i:=1 TO 100 DO S := S + i*i;

Câu 4: Khi chạy chương trình: Var S, i, j : Integer;

Begin S := 0;

for i:= to

for j:= to S := S + ; End

Giá trị sau S : A/

B/ 12 C/ D/

Câu 5: Cho S i biến kiểu nguyên Khi chạy đoạn chương trình : S:= 0;

i:= 1;

while i<= begin

S:= S + i; i:= i + 2; end;

(2)

A/ B/ C/ 11 D/

Câu 6: Khi chạy chương trình : Var S, i : Integer;

Begin

S:= 0; i:= 1; Repeat S:= S + i * i; i:= i + 1; Until i > ; End

B/ 14 C/ 16 D/ 30

Câu 7: Cho i biến nguyên Khi chạy đoạn chương trình : i := 5;

Repeat i := i + 1; Until i > ;

Giá trị sau i : A/

B/ C/ D/

Câu 8: Cho m, n, i biến nguyên Khi chạy đoạn chương trình : m:=4; n:=5; i:=5;

Repeat i:=i+1;

Until (i Mod m = 0) and (i Mod n = 0); Giá trị sau i :

A/ 20 B/ C/ D/

(3)

Var A : Real; Begin

While A = begin

write ('nhap A # 0:'); Readln (A);

end; End

Ðể lệnh Readln(A) thực lần, phải điền vào chỗ lệnh lệnh ? :

A/ A:=0; B/ A:=1; C/ A:=-1; D/ A <> 0;

Câu 10: Giả sử khai báo biến hợp lệ Ðể tính S = 10!, chọn câu : A/ S := 1; i := 1;

while i<= 10 S := S * i; i := i + 1;

B/ S := 1; i := 1;

while i<= 10 i := i + 1; S := S * i;

C/ S := 0; i := 1; while i<= 10 begin

S := S * i; i := i + 1; end;

D/ S := 1; i := 1; while i<= 10 do begin

S := S * i; i := i + 1; end;

(4)

Câu 12: Cho khai báo: Var A: Array[1 4] of Real; i : Integer ;

Ðể nhập liệu cho A, chọn câu : A/ For i:=1 to Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]);

B/ For i:=1 to Readln(‘ Nhập A[‘, i, ‘]:’);

C/ For i:=1 to Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End; D/ Write(‘ Nhập A:’); Readln(A);

Câu 13: Cho khai báo biến : Var A : array[1 5] of Integer; Chọn lệnh :

A/ A[1] := 4/2 ; B/ A[2] := -6 ; C/ A(3) := ; D/ A := 10 ;

Câu 14: Trong khai báo sau cịn bỏ trống chỗ, chưa xác định kiểu liệu biến Max :

Var

A: Array[‘a’ ’d’] of Real ; Ch : Char ;

Max : ;

Muốn biến Max lưu giá trị lớn mảng A cần khai báo biến Max kiểu vào chỗ :

A/ Char B/ Integer C/ String D/ Real

Câu 15: Cho khai báo: Var

(5)

Sau thực lệnh : For i:=1 to A[i]:= i;

For i:=1 to A[i]:= A[i]+1; mảng A có gía trị :

A/ A[1]=1, A[2]=2, A[3]=3, A[4]=4 B/ A[1]=2, A[2]=3, A[3]=4, A[4]=5 C/ A[1]=0, A[2]=1, A[3]=2, A[4]=3 D/ A[1]=1, A[2]=1, A[3]=1, A[4]=1

Câu 16: Khai báo :

A/ Var A : array[1 n,1 m] of integer;

B/ Const n=2; m=3; Var A: array[1 n,1 m] of integer; C/ Var n, m : integer ; A: array[1 n,1 m] of integer; D/ Var A: array[3, 2] of Integer;

Câu 17: Cho khai báo : Var

A : array[1 2,1 3] of Real; i, j : integer;

Ðể nhập liệu cho ma trận A, chọn : A/ Write(‘ Nhập A:’); Readln(A) ; B/ For i:=1 to Readln(A[i, j]); C/ For i:=1 to

For j:=1 to begin

write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]);

end;

D/ For i:=1 to For j:=1 to

write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]);

(6)

Var

A : array[1 2,1 3] of Real; i, j : integer; Max: Real;

Ðể tìm số lớn ma trận A, chọn câu : A/ Max:=A[1,1];

If Max < A[i,j] then Max:=A[i,j]; B/ Max:=A[1,1];

For i:=1 to

if Max < A[i,j] then Max:=A[i,j]; C/ A[1,1]:=Max ;

For i:=1 to For j:=1 to

if Max< A[i,j] then A[i,j]:=Max; D/ Max:=A[1,1];

For i:=1 to

For j:=1 to if Max < A[i,j] then Max:=A[i,j];

Câu 19: Khi chạy chương trình : Var

A : array[1 2,1 3] of integer; i, j, S : integer;

Begin

A[1,1]:= ; A[1,2]:= -1 ; A[1,3]:= -4 ; A[2,1]:= -9 ; A[2,2]:= ; A[2,3]:= ; S:=0;

for i:=1 to

for j:=1 to If A[i,j] < then S:=S+1; Write(S);

End

Kết qủa in gía trị S : A/

B/ -9 C/ D/

Câu 20: Cho biến SS kiểu lôgic Lệnh làm SS có gía trị TRUE : A/ SS := 'a' < 'A';

(7)

C/ SS := 'an' < 'a';

D/ SS := 'PASCAL' < 'pascal';

Ho, ten : String[15]; -Lệnh sai :

A/ Write('Ho ten la : ' ; Ho ; Ten); B/ Write('Ho ten la : ' + Ho + Ten); C/ Write('Ho ten la : ', Ho , Ten); D/ Write('Ho ten la : ', Ho + Ten);

Chuoi : string[10]; x : real;

- Lệnh :

A/ Chuoi := Str(x:5:2) ; B/ Str(x:5:2, Chuoi); C/ Chuoi := x ; D/ x := Chuoi ;

Câu 23: Cho St biến chuỗi, sau thực hai lệnh : St:= Copy( 'PASCAL VERSION 5.5' , 8, 7) ;

Write(St);

- Kết qủa in lên hình là: A/ VERSION 5.5

B/ VERSION C/ PASCAL D/ 5.5

(8)

St:=’ABCDEF’; Delete(St, 3, 2); Insert(‘XYZ’, St, 2); Write(St);

-Kết qủa in lên hình là: A/ ABXYZEF

B/ AXYZBCDEF C/ AXYZ

D/ AXYZBEF

Câu 25: Cho i x hai biến kiểu nguyên Khi thực lệnh : VAL('1234', x, i);

-Gía trị x i : A/ x = , i = 1234

B/ x = 1234 , i = C/ x = 1234 , i = D/ x = , i =

Câu 26: Cho biến St chuỗi k nguyên Sau gán: St:='Sinh vien Tin hoc hoc Tin hoc';

k := Pos('Tin', ST) ; -Gía trị k : A/ k=13

B/ k=11 C/ k=26 D/ k=23

St : string; i, L : integer; Begin

St :='So Buu chinh Vien thong'; L:=Length(St); For i := to L

If (St[i] >= 'a') and (St[i] <= 'z') then St[i]:= Upcase (St[i]); Write (St);

(9)

-Chương trình in :

A/ So Buu chinh Vien Thong B/ so buu chinh vien thong C/ So Buu Chinh Vien Thong

D/ SO BUU CHINH VIEN THONG

St : String; i,L : integer; Begin

St:='ABCD'; L := Length(St);

For i:= L Downto write (St[i]); End

-Chương trình in : A/ DCAB

B/ ABCD C/ 4321 D/ DCBA

Câu 29: Cho St biến chuỗi St:=’AAABAAB’; Sau thực hai lệnh : While St[1]=’A’ Delete(St,1,1);

Write(St); Kết qủa in là: A/ AABAAB B/ BAAB C/ BB D/ AAA

Câu 30: Tên đặt Sai quy định Pascal: A/ Giai_Ptrinh_Bac_2;

(10)

Câu 31: Mục có Tên đặt quy định Pascal: A/ x1 , X-2 ;

B/ Xx1 , X2;

C/ CONST , X_234; D/ X[1], x2 ;

Câu 32: Chọn câu Sai : chương trình Pascal, khơng có : A/ phần thân chương trình ;

B/ phần khai báo biến; C/ phần đầu chương trình; D/ phần khai báo ;

Câu 33: Cho S i biến kiểu nguyên Khi chạy đoạn chương trình : S:= 0;

i:= 1;

while i<= begin

S:= S + i; i:= i + 2; end;

B/ C/ 11 D/

Câu 34:Khi chạy chương trình : Var S, i : Integer;

Begin

(11)

Until i > ; End

B/ 14 C/ 16 D/ 30

Câu 35: Cho i biến nguyên Khi chạy đoạn chương trình : i := 5;

Repeat i := i + 1; Until i > ;

Giá trị sau i : A/