Question

A. Trắc nghiệm

Câu 1: Đâu là từ khóa của câu lệnh lặp với số lần không biết trước?

A. IF…THEN… B. FOR…TO…DO… C. WHILE…DO…

Câu 2: Đâu là câu lệnh ghép?

A. Begin i:=i+1; writeln(i); End;

B. i:=i+1; writeln(i);

C. i:=i+1;

Câu 3: Màn hình xuất hiện gì sau khi chạy chương trình dưới đây:

Var i,S: integer;

Begin

S:=0;

i:=1;

While S<=8 do

Begin

S:=S+i;

i:=i+1;

End;

Writeln(‘Tong tim duoc co gia tri la: ‘, S);

End.

A. Tong tim duoc co gia tri la: 6

B. Tong tim duoc co gia tri la: 10

C. Tong tim duoc co gia tri la: 15

B. Tự luận:

Câu 4: Trình bày cú pháp và tác dụng của câu lệnh lặp với số lần không biết trước?

Câu 5: Viết chương trình tính tổng 100 số tự nhiên đầu tiên (Sử dụng câu lệnh lặp While).

Answer 1

A: Trắc Nghiệm

Câu 1: C

Câu 2: A

Câu 3: B

B: Tự Luận

Câu 4:

-Cú pháp: While <điều kiện> do <câu lệnh>;

Câu 5:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0; i:=1;

while i<=100 do

begin

s:=s+i;

i:=i+1;

end;

writeln(s,' la tong cua 100 so tu nhien dau tien');

readln;

end.