1/ Cách chuyển đổi từ For – do sang While – do:

– Câu lệnh For – do:

+ Dạng tiến:

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

+ Dạng lùi:

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

– Câu lệnh While – do:

While  <điều kiện>    do   <câu lệnh>;

– Chuyển For – do thành While – do:

+ Cách 1:

<Biến đếm> := <giá trị đầu>;

While (<Biến đếm> <= <giá trị cuối>) do

Begin

<câu lệnh>;

<tăng biến đếm 1 đơn vị>;

End;

+ Cách 2:

<Biến đếm> := <giá trị cuối>;

While (<Biến đếm> >= <giá trị đầu>) do

Begin

<câu lệnh>;

<giảm biến đếm 1 đơn vị>;

End;

2/ Ví dụ minh họa:

a/ Ví dụ 1: Tính và đưa ra tổng các số từ 1 đến n? (n là số nguyên dương được nhập vào từ bàn phím)

Sử dụng For – do:

Var   i, n: integer;

s: word;

Begin

Readln(n);

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

Write(s);

End.

Chuyển thành While – do:

+ Dạng 1:

Var   i, n: integer;

s: word;

Begin

Readln(n);

i:=1;

While (i <= n) do

Begin

s:= s+i;

i:=i+1;

end;

Write(s);

End.

+ Dạng 2:

Var   i, n: integer;

s: word;

Begin

Readln(n);

i:=n;

While (i >= 1) do

Begin

s:= s+i;

i:=i-1;

end;

Write(s);

End.

program bai_giai;
var a,b,x:integer;
begin
writeln(‘nhap so a’);readln(a);
writeln(‘nhap so b’); readln(b);
x:=a;
a:=b;
b:=x;
writeln(‘hai so a b sau khi hoan vi’ ,a,b:4);
readln;
end.
{ dung chuong trinh con}
program chuongtrinh;
var a,b,x:integer;
begin
procedure hoanvi;
begin
writeln(‘nhap so a’); readln(a);
writeln(‘nhap so b’); readln(b);
x:=a;
a:=b;
b:=x;
writeln(‘so sau khi hoan vi , ‘a ,b:4);
end;
begin
hoanvi;
end.