For - do: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
While - do: while <điều kiện> do <câu lệnh>;
Cách chuyển đổi thông thường (theo mình sử dụng):
- Dữ nguyên câu lệnh. (tùy trường hợp)
- Tăng biến so sánh trong điều kiện lên 1 đơn vị hoặc giảm 1 đơn vị hoặc tùy theo đề bài. (sử dụng câu lệnh kép)
- Biến đếm phải gán bên ngoài.
VD: In ra số chia hết cho 2 từ 1 đến n. (n đã có sẵn)
For - do: for i:=1 to n do if i mod 2 = 0 then write(i:3);
While - do: i:=1; while i<=n do begin if i mod 2 = 0 then write(i:3); i:=i+1; end;
