CÂU HỎI TRẮC NGHIỆM PASCAL Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình : s:=0; for i:=1 to 10 do s := s+i; writeln(s); Kết quả in lên màn hình là : s = 11ο s =ο 55 s = 100ο s = 101ο Câu 2: Cho S, i và N>0 là các biến nguyên. Ðể tính S = N!, chọn câu nào : S := 1; For i := 1 to N do S := S *ο i; S := 0; For i := 1 to N do S := S * i;ο S := 1; For i := 1 to N doο S := S * N; S := 1; For i:= 1 to N do S := S + i;ο Câu 3: Cho S = 1^2 + 2^2 + + 100^2 . Nhóm lệnh nào tính sai Giá trị của S: S:=0; FORο i:=1 TO 100 DO S := S + i*i; S:=0; FOR i:=1 TO 100 DO S := S +ο SQR(i); S:=0; FOR i:=100 DOWNTO 1 DO S := S + i*i;ο 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:= 1 to 3 do for j:= 1 to 4 do S := S + 1 ; End. Giá trị sau cùng của S là : 4ο 3 ο 12 ο 0 ο Câu 5: Cho S và i biến kiểu nguyên. Khi chạy đoạn chương trình : S:= 0; i:= 1; while i<= 6 do begin S:= S + i; i:= i + 2; end; Giá trị sau cùng của S là : 6ο 9ο 11ο 0ο 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 > 4 ; End. Giá trị sau cùng của S là : 0ο 14ο 16ο 30ο Câu 7: Cho i là biến nguyên. Khi chạy đoạn chương trình : i := 5; Repeat i := i + 1; Until i > 4 ; Giá trị sau cùng của i là : 6ο 4ο 5ο 0ο Câu 8: Cho m, n, i là các 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 cùng của i là : 20ο 5ο 4ο 0ο Câu 9: Cho chương trình : Var A : Real; Begin . . . While A = 0 do begin write ('nhap A # 0:'); Readln (A); end; End. Ðể lệnh Readln(A) được thực hiện ít nhất một lần, phải điền vào chỗ . . . lệnh nào trong các lệnh dưới đây ? : ο A:=0; A:=1;ο A:=-1;ο Aο <> 0; Câu 10: Giả sử các khai báo biến đều hợp lệ. Ðể tính S = 10!, chọn câu nào : S := 1; i :=ο 1; while i<= 10 do S := S * i; i := i + 1; S := 1; i := 1;ο while i<= 10 do i := i + 1; S := S * i; S := 0; i := 1;ο while i<= 10 do begin S := S * i; i := i + 1; end; S := 1; i :=ο 1; while i<= 10 do begin S := S * i; i := i + 1; end; Câu 11: Chọn khai báo đúng : Var A: array[1 10] ofο integer; Var A= array[1 10] of integer;ο Var A:= array[1 10] ofο integer; Var A: array[1,10] of integer;ο Câu 12: Cho khai báo: Var A: Array[1 4] of Real; i : Integer ; Ðể nhập dữ liệu cho A, chọn câu nào : For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]:’);ο Readln(A[i]); For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]:’);ο For i:=1ο to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End; 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 đúng : A[1] := 4/2 ;ο A[2] := -6 ;ο A(3) :=ο 6 ; A := 10 ;ο Câu 14: Trong khai báo sau còn bỏ trống . . . một chỗ, vì chưa xác định được kiểu dữ liệu của biến Max : Var A: Array[‘a’ ’d’] of Real ; Ch : Char ; Max : . . . ;Muốn biến Max lưu gía 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ỗ . . . : ο Char Integerο Stringο Realο Câu 15: Cho khai báo: Var A: Array[1 4] of Integer ; i : Integer ;Sau khi thực hiện các lệnh : For i:=1 to 4 do A[i]:= i; For i:=1 to 4 do A[i]:= A[i]+1; thì mảng A có gía trị là : A[1]=1, A[2]=2, A[3]=3, A[4]=4ο A[1]=2, A[2]=3,ο A[3]=4, A[4]=5 A[1]=0, A[2]=1, A[3]=2, A[4]=3ο A[1]=1, A[2]=1, A[3]=1,ο A[4]=1 Câu 16: Khai báo nào đúng : Var A : array[1 n,1 m] ofο integer; Const n=2; m=3; Var A: array[1 n,1 m] of integer;ο Var n, mο : integer ; A: array[1 n,1 m] of integer; 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 dữ liệu cho ma trận A, chọn : Write(‘ο Nhập A:’); Readln(A) ; For i:=1 to 2 do Readln(A[i, j]);ο For i:=1 to 2ο do For j:=1 to 3 do begin write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]); end; For i:=1 to 2 doο For j:=1 to 3 do write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]); Câu 18: Cho khai báo : Var A : array[1 2,1 3] of Real; i, j : integer; Max : Real; Ðể tìm số lớn nhất của ma trận A, chọn câu nào : Max:=A[1,1];ο If Max < A[i,j] then Max:=A[i,j]; Max:=A[1,1];ο For i:=1 to 2 do if Max < A[i,j] then Max:=A[i,j]; A[1,1]:=Max ;ο For i:=1 to 2 do For j:=1 to 3 do if Max< A[i,j] then A[i,j]:=Max; Max:=A[1,1];ο For i:=1 to 2 do For j:=1 to 3 do 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]:= 3 ; A[1,2]:= -1 ; A[1,3]:= -4 ; A[2,1]:= -9 ; A[2,2]:= 0 ; A[2,3]:= 5 ; S:=0; for i:=1 to 2 do for j:=1 to 3 do If A[i,j] < 0 then S:=S+1; Write(S); End.Kết qủa in ra gía trị của S là : 0ο -9ο ο 3 5ο Câu 20: Cho biến SS kiểu lô gic. Lệnh nào làm SS có gía trị là TRUE : SS := 'a'ο < 'A'; SS := 'A' = 'a';ο SS := 'an'ο < 'a'; SS := 'PASCAL'ο < 'pascal'; Câu 21: Cho khai báo : Var Ho, ten : String[15]; -Lệnh nào sai : Write('Ho ten la : ' ;ο Ho ; Ten); Write('Ho ten la : ' + Ho + Ten);ο Write('Ho ten la : ', Hoο , Ten); Write('Ho ten la : ', Ho + Ten);ο Câu 22: Cho khai báo : Var Chuoi : string[10]; x : real; - Lệnh nào đúng : Chuoi :=ο Str(x:5:2) ; Str(x:5:2, Chuoi);ο Chuoi := x ;ο x := Chuoiο ; Câu 23: Cho St là biến chuỗi, sau khi thực hiện hai lệnh : St:= Copy( 'PASCAL VERSION 5.5' , 8, 7) ; Write(St); - Kết qủa in lên màn hình là: VERSION 5.5ο VERSIONο PASCALο 5.5ο Câu 24: Cho St là biến chuỗi, sau khi thực hiện bốn lệnh: St:=’ABCDEF’; Delete(St, 3, 2); Insert(‘XYZ’, St, 2); Write(St); -Kết qủa in lên màn hình là: ο ABXYZEF AXYZBCDEFο AXYZο AXYZBEFο Câu 25: Cho i và x là hai biến kiểu nguyên. Khi thực hiện lệnh : VAL('1234', x, i); -Gía trị của x và i là bao nhiêu : x = 0 , i = 1234ο x = 1234 , i = 4ο x = 1234 ,ο i = 0 x = 0 , i = 0ο Câu 26: Cho các biến St chuỗi và k nguyên. Sau khi gán: St:='Sinh vien Tin hoc hoc Tin hoc'; k := Pos('Tin', ST) ; -Gía trị của k là : k=13ο k=11ο k=26ο 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 := 1 to L do If (St[i] >= 'a') and (St[i] <= 'z') then St[i]:= Upcase (St[i]); Write (St); End. -Chương trình in ra : So Buu chinh Vien Thongο so buuο chinh vien thong So Buu Chinh Vien Thongο 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 1 do write (St[i]); End. -Chương trình in ra : DCABο ABCDο 43ο21 ο DCBA Câu 29: Cho St là biến chuỗi và St:=’AAABAAB’; Sau khi thực hiện hai lệnh : While St[1]=’A’ do Delete(St,1,1); Write(St);Kết qủa in ra là: AABAABο BAABο BBο AAAο Câu 2: tính n! chọn S := 1; For i := 1 to N do S := S * i; Câu 3 nhóm lệnh tính sai giá trị của s là : S:=1; FOR i:=1 TO 100 DO S := S + i*i; Câu 4: 12. Câu 5: 9. Câu 6:30. Câu 7: 6. Câu 9: a:=0; Câu 10 : S := 1; i := 1; while i<= 10 do begin S := S * i; i := i + 1; end; Câu 11:khai báo đúng : Var A: array[1 10] of integer;ο For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]);οCâu 12: End; A[2] := -6 ;οCâu 13: RealοCâu 14: A[1]=2, A[2]=3,οCâu 15: A[3]=4, A[4]=5 Const n=2; m=3; Var A: array[1 n,1 m] ofοCâu 16: integer; Câu 17: For i:=1 to 2 do For j:=1 to 3 do begin write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]); end; οCâu 18: Max:=A[1,1]; For i:=1 to 2 do For j:=1 to 3 do if Max < A[i,j] then Max:=A[i,j]; 3οCâu 19: SS := 'PASCAL'οCâu 20: < 'pascal'; Câu 21: Write('Ho ten la : ' ; Ho ; Ten);ο Str(x:5:2, Chuoi);οCâu 22: Câu 23: VERSIONο AXYZBEFοCâu 24: x = 1234 , i = 0οCâu 25: οCâu 26: k=11 SO BUU CHINH VIEN THONGοCâu 27: DCBAοCâu 28: BAABοCâu 29: . CÂU HỎI TRẮC NGHIỆM PASCAL Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình : s:=0; for i:=1 to. 'A' = 'a';ο SS := 'an'ο < 'a'; SS := &apos ;PASCAL& apos;ο < &apos ;pascal& apos;; Câu 21: Cho khai báo : Var Ho, ten : String[15]; -Lệnh nào sai : Write('Ho. sau khi thực hiện hai lệnh : St:= Copy( &apos ;PASCAL VERSION 5.5' , 8, 7) ; Write(St); - Kết qủa in lên màn hình là: VERSION 5.5ο VERSIONο PASCAL 5.5ο Câu 24: Cho St là biến chuỗi, sau