Cấu trúc lặp for do

Hình 1. Sơ dồ 1(dòng dưới cùn là ví dụ)



Hình 2. Sơ đồ 2 (dòng dưới cùn là ví dụ)
Không biết sơ đồ này có đúng không nhưng em vẫn đưa lên để thầy cô và các bạn góp ý. Theo nhiều diễn đàn thì hình như :
+ for to do kết thúc khi “ i=cuối ” chứ không phải i>cuối
+ for downto do kết thúc khi “ i=đầu ” chứ không phải i<đầu
VD: tổng 1a,1b. SGK tin học 11 (trang 43);
program tong1a_1b;
uses crt;
var s:real;
a,n:integer;
begin
clrscr;
write(`Nhap gia tri `);
readln(a);
s:=1/a; {tong 1a}
for n:=1 to 100 do
s:=s+1/(a+n);
writeln(`ket thuc to n=`,n);
writeln(`Tong s la: `,s:8:4);
s:=1/a; {tong 1b}
for n:=100 downto 1 do s:=s+1/(a+n);
writeln(`Ket thuc downto n=`,n);
writeln(`Tong s la: `, s:8:4);
readln
end.
Sau khi chạy chương trình trên (i được thay bởi n)
+writeln(‘ket thuc to n=’,n) có kết quả “n=100” (SGK n=101)
+writeln(‘Ket tuc downto n=’,n) có kết quả “n=1” (SGK n<1 tức =0 thì kết thúc)

VD tiếp:
var i: integer;
begin
for i:=1 to 10 do write(i:3);
writeln(`ket thuc to i=`,i:3);
for i:=10 downto 1 do write(i:3);
writeln(`Ket thuc downto i=`,i:3);
readln
end.
Kết quả giá trị in ra cuối cùng ở 2 cách lặp là:
To: n=10 (không lớn hơn cuối)
Downto : n=1 (không nhỏ hơn đầu)

http://giaoan.violet.vn/present/show/entry_id/5880517 (bai nay)
http://tulieu.violet.vn/document/show/entry_id/5880470
http://tulieu.violet.vn/document/show/entry_id/5880481