- Câu lệnh sẽ được lặp lại nhiều lần cho đến khi nào điều kiện còn đúng (nếu điều kiện sai thì các lệnh này sẽ không thực hiện nữa). Hiện dãy số từ 10 đến 1 và tính tích dãy số đó bằng [r]
(1)Khối 11: Câu lệnh vòng lặp Pascal (for, while) - Đánh ngày hai lần, học Tin học tuần tiết, ngày tắm lần - Học thuộc bài, rửa tách trà
Trong sống, hành động gọi lặp lặp lặp lại nhiều Trong Pascal, cách mô tả công việc (hoạt động) lặp lại nhiều lần gọi cấu trúc lặp Có loại cấu trúc vịng lặp sau:
1 Vòng lặp for
- Đây vòng lặp sử dụng nhiều kiến thức phổ thơng Vịng lặp for dùng để lặp với số lần định trước, có cấu trúc sau:
for <biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>;
Dạng khác (giảm dần biến đếm vòng lặp for):
for <biến đếm>:= <giá trị cuối> downto <câu lệnh>;
Vd 1: Hiện hình số liên tiếp từ đến 20
program Hien_day_so_1_den_20; Uses crt;
var i,S:integer; begin
Clrscr;
Wirteln(‘Dáy số từ đến 20’) for i:=1 to 20
write(' ',i); readln;
end
Vd 2: Tính tổng số liên tiếp từ đến 20
program Tinh_tong; var i,S:integer; begin
S:=0;
(2)write('Tổng là:',S); readln;
end
2 Vòng lặp while - Cú pháp:
while <điều kiện> <câu lệnh>
- Câu lệnh lặp lại nhiều lần điều kiện cịn (nếu điều kiện sai lệnh không thực nữa) Đối với lệnh điều kiện kiểm tra trước thực lệnh nên nên điều kiện sai khơng có lệnh thực
vd: Tính tổng số liên tiếp từ đến 100
var i: byte; S: longint; begin
S:= 0; i:= 1;
while i <= 100 begin
S:= S + i; i:= i +1; end;
write('Tong tu den 100 la:',S); readln;
end
Bài tập Vòng lặp For
Bài Hiện dãy số từ đến 10 tính tổng dãy số vịng lặp For
Bài Hiện dãy số từ 10 đến tính tích dãy số vịng lặp For
Bài tập While … Do
Bài Hiện dãy số từ đến 10 tính tổng dãy số vịng lặp While
(3) Khối 11: Câu lệnh vòng lặp Pascal (for, while)