CÁCH CHUYỂN ĐỔI TỪ FOR – DO SANG WHILE

Có thể bạn quan tâm

Chuyển đến nội dung

CÁCH CHUYỂN ĐỔI TỪ FOR – DO SANG WHILE – DO

(Nguyễn Văn Ninh – Giáo viên Tin học)

Ở bài 9 sách giáo khoa Tin học 11, học sinh đã được tìm hiểu câu lệnh lặp với số lần biết trước (For – do) và lặp với số lần chưa biết trước (While – do). Bài viết xin chia sẻ với các em cách chuyển đổi từ câu lệnh For – do sang While – do (cách chuyển đổi ngược lại không phải lúc nào cũng thực hiện được)

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.

b/ Ví dụ 2: Lập trình để giải bài toán cổ sau:

“Vừa gà vừa chó.

Bó lại cho tròn.

Ba mươi sáu con,

Một trăm chân chẵn.

Hỏi có bao nhiêu con mỗi loại?”

Sử dụng For – do:

Var ga: byte;

Begin

For ga:=1 to 24 do

If (2*ga + (100-ga)*4 = 100) then

Write(‘so ga la:’,ga,’ so cho la:’, 36-ga);

End.

Chuyển thành While – do:

+ Dạng 1:

Var ga: byte;

Begin

ga:=1;

While (i<= 24) do

Begin

If (2*ga + (100-ga)*4 = 100) then

Write(‘so ga la:’,ga,’ so cho la:’, 36-ga);

ga:=ga+1;

End;

End.

+ Dạng 2:

Var ga: byte;

Begin

ga:=24;

While (i>=1) do

Begin

If (2*ga + (100-ga)*4 = 100) then

Write(‘so ga la:’,ga,’ so cho la:’, 36-ga);

ga:=ga-1;

End;

End.

Bộ Giáo dục và Đào tạo công bố đề thi tham khảo tốt nghiệp THPT 2020 Thông báo về việc học tập cả ngày khối Tiểu học, THCS từ ngày 11/5/2020

TRANG CHỦ
GIỚI THIỆU
- TỔNG QUAN
  - Lịch sử tên trường
  - Vì sao chọn Hồng Đức?
  - Thư ngỏ
  - Tầm nhìn – sử mệnh
  - Giá trị cốt lõi
  - Cở sở vật chất
  - Quá trình hình thành và phát triển
  - Thành tựu đạt được
  - Văn hóa hồng đức
  - Virtual 360 Hồng Đức
- CƠ CẤU TỔ CHỨC
  - Hội đồng giáo dục
  - Đội ngũ giáo viên
  - Văn phòng và Ban chức năng
  - Tổ chuyên môn
  - Đoàn thanh niên
  - Đội thiếu niên
TIN TỨC
- Thành tích của tiêu biểu học sinh năm 2023 – 2024
- Sự Kiện & Hoạt Động
- Tin tức & Thông Báo
- Kế hoạch công tác tháng
- Bản tin đoàn – đội
- Lịch công tác tuần
TIỂU HỌC
- Giới thiệu
- Đội ngũ giáo viên giảng dạy
- Tài nguyên học tập
- Chương trình đào tạo
- Thời khóa biểu
THCS
- Giới thiệu
- Đội ngũ giáo viên giảng dạy
- Chương trình đào tạo
- Thời khóa biểu
- Tài nguyên học tập
THPT
- Giới thiệu
- Đội ngũ giáo viên giảng dạy
- Chương trình đào tạo
- Tài nguyên học tập
- Công tác giáo viên chủ nhiệm
- Thời khóa biểu
- ÔN THI TN THPT 2024
TUYỂN SINH
- Thông báo tuyển sinh
- Hướng dẫn tuyển sinh
- Hồ sơ tuyển sinh
- Câu hỏi thường gặp
- CLB HÀNH TRANG LỚP 1
BÁN TRÚ
- Hoạt động bán trú
- Thực đơn tuần
- Cơ sở vật chất bán trú
LIÊN HỆ
- Liên hệ nhà trường
- Câu hỏi thường gặp
- Fanpage Hồng Đức
TUYỂN DỤNG