บทที่ 9 Repeat , Until

บทที่ 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