CÁCH CHUYỂN ĐỔI TỪ FOR – DO SANG WHILE – DO pascal 19/07/2021 Bởi Alexandra CÁCH CHUYỂN ĐỔI TỪ FOR – DO SANG WHILE – DO pascal
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; Bình luận
for…do: for <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>; Cách chuyển: <biến đếm> := <giá trị đầu>; while <biến đếm> <= <giá trị cuối> do begin <câu lệnh>; {giữ nguyên câu lệnh ở for…do} <biến đếm> := <biến đếm>+1; end; Bình luận
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;
for…do: for <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Cách chuyển:
<biến đếm> := <giá trị đầu>;
while <biến đếm> <= <giá trị cuối> do
begin
<câu lệnh>; {giữ nguyên câu lệnh ở for…do}
<biến đếm> := <biến đếm>+1;
end;