Học Pascal/Vòng Lặp – Wikibooks Tiếng Việt

Trang chủ » Các Vòng Lặp Trong Pascal » Học Pascal/Vòng Lặp – Wikibooks Tiếng Việt

Có thể bạn quan tâm

Vòng lặp được dùng để thực thi một số việc giống nhau, được lặp đi lặp lại nhiều lần cho đến khi tìm được kết quả.

For...Do

[sửa] Cú pháp
  • Dạng tiến:
FOR<biếnđếm>:=<giátrịđầu>TO<giátrịcuối>DO<câulệnh>;
  • Dạng lùi:
FOR<biếnđếm>:=<giátrịcuối>DOWNTO<giátrịđầu>DO<câulệnh>;

Trong đó:

  • <giá trị đầu> ≤ <giá trị cuối>.
  • <câu lệnh> là câu lệnh đơn hoặc câu lệnh kép.
Thí dụ Fori:=1to1000Do{Vòng lặp đếm đúng 1000 thì ngừng} writeln(i,#32); Fori:=10downto1Do{Vòng lặp đếm ngược từ 10 đến 1} writeln(i,#32);

While...Do

[sửa]

Cú pháp

[sửa] WHILE<điềukiện>DO<câulệnh>;

Trong đó:

  • <điều kiện> là biểu thức logic. <câu lệnh> là một câu lệnh đơn hoặc ghép.

Quá trình dịch và thực hiện

[sửa]

Khi <điều kiện> đúng, While...do sẽ thực hiện <câu lệnh> cho đến khi <điều kiện> sai.

While-do
While-do

Thí dụ

[sửa]
Đếm số
i:=0; While(i<10)Do Begin i:=i+1; write(i,' '); End; 1 2 3 4 5 6 7 8 9
Chuẩn hoá xâu
s:=' Wikibooks Tu sach mo cho mot the gioi mo '; While(s[1]=#' ')dodelete(s,1,1); While(s[length(s)]=' ')dodelete(s,length(s),1); while(pos(' ',s)<>0)dodelete(s,pos(' ',s),1); writeln('Xâu chuẩn hoá: ',s); Xâu chuẩn hoá: Wikibooks Tu sach mo cho mot the gioi mo

Repeat...Until

[sửa] Cú pháp REPEAT<câulệnh>UNTIL<điềukiện>;

Lưu ý: Khi <điều kiện> sai, Repeat...Until sẽ thực hiện <câu lệnh> cho đến khi <điều kiện> đúng.

Thí dụ
i:=0; Repeat i:=i+1; write(i,';') Untili=10; Kết quả: 1 2 3 4 5 6 7 8 9 10 s:='Wikibooks tieng Viet'; repeat delete(s,1,1); untils[1]<>' '; writeln(s); Kết quả: 'ikibooks tieng Viet'

→ bị xoá chữ 'W'

Học Pascal/Câu lệnh rẽ nhánh-->

Từ khóa » Các Vòng Lặp Trong Pascal