Font size
WorksheetsCÙNG NHAU KHỞI ĐỘNG!
Total questions: 7
Worksheet time: 4mins
Cú pháp của lệnh lặp tiến trong Pascal:
FOR <biến đếm>= <giá trị đầu> TO <giá trị cuối> DO <Câu lệnh>;
FOR <biến đếm>:= <giá trị cuối> TO <giá trị đầu> DO <Câu lệnh>;
FOR <biến đếm>:= <giá trị đầu> TO <giá trị cuối> DO <Câu lệnh>;
FOR <biến đếm>:= <giá trị đầu> DOWNTO <giá trị cuối> DO <Câu lệnh>;
cú pháp câu lệnh lặp với số lần chưa biết trước trong Pascal:
FOR <biến đếm>:= <giá trị đầu> TO <giá trị cuối> DO <Câu lệnh>;
FOR <biến đếm>:= <giá trị cuối> DOWNTO <giá trị đầu> DO <Câu lệnh>;
WHILE <Điều kiện> DO <Câu lệnh>
WHILE <Điều kiện> DO <Câu lệnh>;
Var s,i:Byte;
Begin
s:=0; for i:=1 to 5 do s:=s+1;
write(s);
end.
Đoạn chương trình trên cho kết quả là:
0
5
10
15
Var s,i:Byte;
Begin
s:=0; i:=1;
while i<=5 do
begin s:=s+1; i:=i+1;
end;
write(s);
end.
Đoạn chương trình trên cho kết quả là:
0
1
5
10
Trong câu lệnh While <điều kiện> Do <câu lệnh>;
vòng lặp sẽ kết thúc khi nào?
Giá trị đầu nhỏ hơn giá trị cuối
Giá trị đầu lớn hơn giá trị cuối
Điều kiện câu lệnh cho giá trị là True
Điều kiện câu lệnh cho giá trị là False
Ý Nghĩa của đoạn chương trình sau:
For i:=1 To M Do If ( i mod 2=0) and (i Mod 3=0) then write(i:4);
Viết ra các số chẵn trong phạm vi từ 1 đến M
Viết ra các số chia hết cho 2 hoặc 3 trong phạm vi từ 1 đến M
Viết ra các số i trong phạm vi từ 1 đến M
Viết ra các số chia hết cho 2 và 3 trong phạm vi từ 1 đến M
Cho đoạn chương trình sau:
S:=1;
While S>0 Do S:=S+3;
write(S);
Số vòng lặp thực hiện là:
1
3
10
Vô hạn
2
