IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: Moshi ที่ สิงหาคม 08, 2009, 22:24:27
-
บทที่ 9 Repeat , Until
--------------------
คำสั่ง repeat เป็นคำสั่งทำคล้ายๆกับวนลุป ทำไปเรื่อยจนกว่าเงื่อนไขจะเป็นจริงค่อยออก until
โครงสร้างจะเป็นประมาณนี้
Repeat
คำสั่ง;
คำสั่ง;
until เงื่อนไข
ลองมายกตัวอย่างกันดูครับ ผมจะให้แสดงข้อความ 'it4x' 5 แถวโดยใช้ repeat
ก็ต้องสร้างตัวแปรขึ้นมาตัวนึงเพื่อที่จะใช้มันเป็น ตัวแปรรอบ
จะเขียนได้ดังนี้
program it4x;
uses crt;
var i:integer;
begin
clrscr;
repeat
writeln('it4x');
i:=i+1;
until i=5;
readln;
end.
แล้วลองรันดูครับ จะได้ it4x 5 บรรทัด เกิดอยากให้มันกี่บรรทัดก็แก้ไขตรง until i=5;
หมายเหตุ ถ้าเงื่อนไขเราไม่เป็นจริงซักทีโปรแกรมก็จะทำงานอยู่นั้นไปเรื่อยๆ ทำให้เราค้างไปเลย
เราสามารถนำไปดัดแปลงใช้ได้หลายอย่างในที่นี้ผมขอนำไปดัดแปลงใช้เป็น โปรแกรมหาค่าเฉลี่ยเลยตั้งแต่ 1 ถึง 20 ก็จะได้แบบนี้
program it4x;
uses crt;
var i,sum:integer;
begin
clrscr;
repeat
i:=i+1;
sum:=sum+i;
until i=20;
writeln('Average of 1 to 20 = ',sum/i:1:2);
readln;
end.
ลองรันดูก็จะได้ ค่าเฉลี่ยของตัวเลขตั้งแต่ 1 - 20 แล้วครับ แค่นี้แหละง่ายไหมครับ
คัดลอกบทความไปที่ไหน กรุณาให้ Credit ด้วยนะครับ
Credit : www.it4x.com (http://www.it4x.com)
-
:-*