Pascal - Câu hỏi trắc nghiệm

CÂU HỎI TRẮC NGHIỆM 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à : a) s = 11 b) s = 55 c) s = 100 d) 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 : a) S := 1; For i := 1 to N do S := S * i; b) S := 0; For i := 1 to N do S := S * i; c) S := 1; For i := 1 to N do S := S * N; d) S := 1; For i:= 1 to N do S := S + i; Câu 3: Cho S = 12 + 22 + ... + 1002 . Nhóm lệnh nào tính sai Giá trị của 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 1 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:= 1 to 3 do for j:= 1 to 4 do S := S + 1 ; End. Giá trị sau cùng của S là : a) 0 b) 12 c) 3 d) 4 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à : a) 6 b) 9 c) 11 d) 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à : a) 0 b) 14 c) 16 d) 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à : a) 6 b) 4 c) 5 d) 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à : a) 20 b) 5 c) 4 d) 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) A:=0; b) A:=1; c) A:=-1; d) 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 : a) S := 1; i := 1; while i<= 10 do S := S * i; i := i + 1; b) S := 1; i := 1; while i<= 10 do i := i + 1; S := S * i; c) S := 0; i := 1; while i<= 10 do 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;