Vòng Lặp While Trong Pascal

  -  

Ở bài xích 9 sách giáo khoa Tin học tập 11, học sinh đã được mày mò 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). Nội dung bài viết xin chia sẻ với những em cách đổi khác từ câu lệnh For – vì chưng sang While – bởi vì (cách biến hóa ngược lại không hẳn lúc nào cũng thực hiện nay được)

1/ Cách biến đổi từ For – bởi sang While – do:

– Câu lệnh For – do:

+ Dạng tiến:

For := lớn vày ;

+ Dạng lùi:

For := downto bởi ;

– Câu lệnh While – do:

While vì ;

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


+ Cách 1:

:= ;

While ( ) do

Begin

;

;

End;

+ Cách 2:

:= ;

While ( >= ) do

Begin

;

;

End;


2/ Ví dụ minh họa:

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


Sử dụng For – do:

Var i, n: integer;

s: word;

Begin

Readln(n);

For i:=1 to lớn n vì chưng s:= s+i;

Write(s);

End.

Bạn đang xem: Vòng lặp while trong pascal

Chuyển thành While – do:


+ Dạng 1:

Var i, n: integer;

s: word;

Begin

Readln(n);

i:=1;

While (i = 1) do

Begin

s:= s+i;

i:=i-1;

end;

Write(s);

End.


b/ Ví dụ 2: Lập trình nhằm giải việc cổ sau:

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

Bó lại đến tròn.

Xem thêm: Show Don'T Tell: How To Show Not Tell In Writing With Examples

Ba mươi sáu con,

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

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


Sử dụng For – do:

Var ga: byte;

Begin

For ga:=1 to lớn 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=1) do

Begin

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

Write(‘so ga la:’,ga,’ so mang đến la:’, 36-ga);

ga:=ga-1;

End;

End.

Xem thêm: Hãy Tả Cây Xoài Lớp 7 Hay Nhất, 5 Dàn Ý Biểu Cảm Về Cây Xoài Lớp 7


Bộ giáo dục và Đào tạo ra mắt đề thi tham khảo xuất sắc nghiệp trung học phổ thông 2020
BÀI VIẾT MỚI
Chuyên mục
GIÁ TRỊ CỐT LÕI

"Yêu mến – Tận vai trung phong - sáng tạo" là những gì các thầy cô giáo mong ước dành khuyến mãi cho học tập sinh. Từng ngày tới trường, những em học viên cùng thầy giáo viên học tập, tò mò những chân trời kỹ năng và kiến thức mới, san sẻ những nụ cười và niềm hạnh phúc trong cuộc sống.


LIÊN HỆ

Đ/c: Số 102 – Đường Nguyễn Bình – p Nhân Hòa, TX. Mỹ Hào, tỉnh giấc Hưng lặng (Gần chợ bao bì – Phố Nối)

moet.edu.vn


FANPAGE
GIỚI THIỆUTỔNG QUANCƠ CẤU TỔ CHỨCTIN TỨCTIỂU HỌCTRUNG HỌC CƠ SỞTRUNG HỌC PHỔ THÔNGTUYỂN SINHBÁN TRÚLIÊN HỆWooCommerce not Found