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
Giá trị sau S : A/
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';
Câu 21: Cho khai báo : Var
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);
Câu 22: Cho khai báo : Var
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
Câu 27: Khi chạy chương trình : Var
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
Câu 28: Khi chạy chương trình : Var
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;
Giá trị sau S : A/
B/ C/ 11 D/
Câu 34:Khi chạy chương trình : Var S, i : Integer;
Begin
(11)Until i > ; End
Giá trị sau S : A/
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/