Khoanh troứn chửừ caựi ủửựng trửụực keỏt quaỷ ủuựng . Cãu 1: Leọnh laởp naứo sau ủãy laứ ủuựng?
E. For <bieỏn ủeỏm>= <giaự trũ ủầu> to <giaự trũ cuõớ> do <cãu leọnh>; F. For <bieỏn ủeỏm>:= <giaự trũ ủầu> to <giaự trũ cuõớ> do <cãu leọnh>; G. For <bieỏn ủeỏm>:= <giaự trũ cuõớ> to <giaự trũ ủầu> do <cãu leọnh>; D. For <bieỏn ủeỏm>: <giaự trũ ủầu> to <cãu leọnh> do <giaự trũ cuoỏi>;
Cãu 2: Voứng laởp while ..do laứ voứng laởp:
A) Chửa bieỏt trửụực soỏ lần laởp B) Bieỏt trửụực soỏ lần laởp
C.) Bieỏt trửụực soỏ lần laởp nhửng giụựi hán laứ <=100 D) Bieỏt trửụực soỏ lần laởp nhửng giụựi hán laứ >=100
Cãu 3: Cãu leọnh laởp while…do coự dáng ủuựng laứ:
A) While <ủiều kieọn> do; <cãu leọnh>; B) While <ủiều kieọn> <cãu leọnh> do; C) While <cãu leọnh> do <ủiều kieọn>; D) While <ủiều kieọn> do <cãu leọnh>;
Cãu 4: Cho S vaứ i laứ bieỏn nguyẽn. Khi cháy ủoán chửụng trỡnh :
s:=0;
for i:=1 to 5 do s := s+2; writeln(s);
Keỏt quaỷ in lẽn maứn hỡnh laứ cuỷa s laứ :
A.11 B. 55 C. 12 D.13
Cãu 5: Lần lửụùt thửùc hieọn ủoán leọnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1; Giaự trũ cuỷa t laứ
A) t=1 B) t=2 C) t=3 D) t=6
Cãu 6: Cãu leọnh pascal naứo sau ủãy laứ hụùp leọ?
B) For i:= 1 to 10 do writeln(‘A’); B) For i:=1.5 to 10.5 do writeln(‘A’);
C) For i= 1 to 10 do writeln(‘A’); D) For i:=100 to 1 do writeln(‘A’);
Cãu 7: Trong chửụng trỡnh pascal sau ủãy:
Var x : integer ; Begin X:= 3 ; If (45 mod 3) =0 then x:= x +2; If x > 10 then x := x +10 ; End.
X coự giaự trũ laứ maỏy
a) 3 b) 5 c) 15 d)10
Cãu 8: Chón khai baựo hụp leọ
a) Var a,b: array[1..n] of real; c) Var a,b: array[1:n] of real; b) Var a,b: array[1..100] of real; d) Var a,b: array[1…n] of real;
II/
Tự luận (6 điểm)
Vieỏt chửụng trỡnh Pascal sửỷ dúng bieỏn maỷng ủeồ nhaọp tửứ baứn phớm caực phần tửỷ cuỷa moọt daừy soỏ và tìm số lớn nhất trong dãy số đĩ. ẹoọ daứi cuỷa daừy cuừng ủửụùc nhaọp tửứ baứn phớm.
* Chú ý:
- Đọc kỹ đề .
- Làm bài nghiêm túc