program TongChan;
var
S, i: integer;
begin
S := 0;
i := 2;
while S > 2000 do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong cac so chan la ', S);
readln;
end.
tính tổng các số tự nhiên A=1+2+3+4+...+n sử dụng vòng lập for...do
tính tổng các số tự nhiên A=1+2+3+4+...+n sử dụng vòng lập while...do
Sau khi thực hiện đoạn chương trình:
s := 10; i := 8;
while i < 8 do
begin
i:=i+1;
s:=s+2*1;
End;
Thì s=?, i=?
Câu 3. cho đoạn chương trình sau :
S:=1; n:=0;
While S<=5 do
Begin
n:=n+1;
S:=S+n;
End;
Hãy cho biết giá trị của S bằng bao nhiu?
A.6 B.7 C.8 D.9
câu 4. Đọan chương nào sai:
A. Var x, y :real while (x=3.5) do y:=y+1; end.
B.Var x,y :real while (x<3.5) do y:=y+1 ; end.
C. Var x,y :real while (x:=3.5) do y:=y+1 ;end.
D.Var x,y :real while (x >3.5 ) do y:=y+1 ;end.
câu 5:Sau khi thực hiện đoạn chương trình sau:
j:=1;
for i:=1 to 4 do
j:=j+2;
Gía trị của biến bằng bao nhiu:
A.7 B.8 C.9 D.10
Làm giúp mik câu này với:
Trong đoạn ct sau thực hiện bao nhiêu vòng lặp :
s:=9 ; i:=1 ; while s>5,5 do s:=s+i;
A. 5 lần
B. 4 lần
C. Không lần nào
D. 6 lần
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).
Viết CT giải các bài toán sau: S = 1-2+3-4+5-6+7-8+...+n
(Viết cấu trúc câu lệnh While...do)
1. Lặp với số lần chưa biết trước là lệnh gì?
a. while..to..do
b. for …to…do
c. while …do
d. if…then
2. “Nếu trời mưa thì em không đi chơi đá bóng”. Là câu lệnh gì?
a. Câu lệnh lặp với số lần biết trước
b. Câu lệnh lặp với số lần chưa biết trước
c. Câu lệnh điều kiện
d. Câu lệnh in ra màn hình
3. Hãy cho biết giá trị đầu của câu lệnh dưới đây:
for i:=5 to 21 do writeln(i*2);
a. 5 b. 6 c. 20 d. 21
4. Hãy cho biết giá trị cuối của câu lệnh dưới đây: for i:=5 to 21 do writeln(i*2);
a. 5 b. 6 c. 20 d. 21
5. Hãy cho biết số vòng lặp của câu lệnh dưới đây: for i:=5 to 21 do writeln(i*2);
a. 15 b. 16 c. 17 d. 18
6. Câu lệnh GotoXY(3,5) có tác dụng gì?
a. Đưa con trỏ về cột 3, hàng 5
b. Đưa con trỏ về cột 5, hàng 3
7. Hãy cho biết đoạn lệnh sau đây thực hiện bao nhiêu vòng lặp?
S:=0;
While S>10 do writeln(s*s);
a. 0 b. 1 c. 9 d. 10
8. Hãy cho biết đoạn lệnh sau đây thực hiện bao nhiêu vòng lặp?
S:=3; N:=1
While S<=10 do
Begin
N:=N+1;
S:=S+N;
End;
a. 2 b. 3 c. 4 d. 5
II. Tự luận
Hãy cho biết đoạn lệnh sau đây in ra giá trị của S là bao nhiêu?
S:=3; N:=1
While S<=10 do
Begin
N:=N+1;
S:=S+N;
End;
Writeln(S);
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
