Tham khảo:

*cú pháp For:

For <biến điếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

- Hoạt động: câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước và bằng giá trị cuối - giá trị đầu+1. Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm 1 đơn vị cho đến khi bằng giá trị cuối.

Vd:

program ct;

uses crt;

Var i,n,s:integer;

begin

clrscr;

write('nhap n:=');readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln('tong cua n do tu nhien dau tien la:',s);

readln

end.

for..do 

Cú pháp: for <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Nguyên tắc hoạt động: Bắt đầu từ giá trị đầu, mỗi vòng lặp giá trị biến đếm sẽ tăng lên 1 đơn vị và thực hiện câu lệnh sau do, vòng lặp kết thúc khi biến đếm bằng giá trị cuối.

Cú pháp:

Dạng xuôi: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> to <câu lệnh>;

Hoạt động: 

Bước 1: Biến điều khiển nhận giá trị đầu.

Bước 2: Nếu giá trị biến điều khiển nhỏ hơn giá trị cuối thì chuyển đến bước 4.

Bước 3: {giá trị biến điều khiển bằng giá trị cuối} thực hiện câu lệnh, sau đó dừng lặp, chuyển tới câu lệnh tiếp theo vòng lặp.

Bước 4: Thực hiện câu lệnh sau do và tăng biến điều khiên tới giá trị tiếp theo.

for i: 1 to n do
đây là câu lênh lặp lại từ 1 đến n 

Dạng xuôi: For <biến đếm>: =<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Dạng ngược: For <biến đếm>: =<giá trị cuối> downto <giá trị đầu> to <câu lệnh>;

For to do:

- Cú pháp:

       for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

- Giải thích:

   + Từ khóa: for, to, do

   + Biến đếm: kiểu nguyên

   + Giá trị đầu, giá trị cuối: giá trị nguyên (giá trị đầu < giá trị cuối)

   + Câu lệnh trong vòng lặp không làm thay đổi giá trị của biến đếm

   + Số lần lặp: giá trị đầu - giá trị cuối + 1

- Hoạt động:

   + Biến điếm sẽ nhận giá trị bằng giá trị đầu

   + Sau mỗi vòng lặp, biến đếm tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì kết thúc lệnh lặp

While do:

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

- Giải thích:

   + Từ khóa: while, do

   + Điều kiện thường là một phép so sánh

   + Câu lệnh có thể là câu lệnh đơn hay câu lệnh ghép

- Hoạt đông: 

   + Kiểm tra điều kiện

   + Nếu điều kiện sai sẽ bị bỏ qua và kết thúc lệnh lặp

   + Nếu điều kiện đúng sẽ thực hiện câu lệnh và quay lại kiểm tra điều kiện

For do

While... do

Câu 1:

-Đánh răng rửa mặt mỗi ngày

-Đi học

-Đi ngủ

Câu 2: 

a) Sai

Sửa lại: for i:=10 downto 1 do write('a');

b) Đúng

c) Đúng

Câu 3: 

Lặp n-1+1=n(lần)

Câu 4: 

S=15

Câu 5: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do

  s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

tách câu ra