LOOP แบบ RAPID-Q BASIC



1. FOR

FOR number% = 1 TO 10
     print number%
NEXT

' จะเพิ่มรอบละมากกว่า 1 ได้ดังนี้
FOR number% = 1 TO 10 STEP 2
     print number%
NEXT

' หรือจะลดรอบละ 1 ก็ได้
FOR number% = 10 TO 1 STEP -1
     print number%
NEXT



2. WHILE

' เป็นลูปที่ทำงานเมื่อเงื่อนไขเป็นจริง
' มีการตรวจสอบเงื่อนไขก่อนวนซ้ำ
' ถ้าเงื่อนเป็นเท็จอยู่ก่อน คำสั่งภายใน while จะไม่วนซ้ำเลย

WHILE number%>0 DO
      input "insert number again :", number%
WEND
' ลูปด้านบนนี้ จะวนซ้ำจนกระทั่ง number% ไม่มากกว่า 0

number% = 0
WHILE number%>0 DO
      input "insert number again :", number%
WEND
' ลูปนี้จะไม่ทำงานเลย เพราะว่าเงื่อนไขเป็นเท็จแต่แรก


3. DO LOOP UNTIL

' เป็นลูปที่ทำงานขณะที่เงื่อนไขเป็นเท็จ
' จะวนซ้ำก่อนตรวจสอบเงื่อนไข
' (แบบเดียวกับ repeat until ของปาสคาล)

number% = 0
DO
      input "insert number again :", number%
LOOP UNTIL number%=0
' จะเห็นได้ว่าแม้ว่า เงื่อนไขเป็นจริงตั้งแต่ตอนแรก
' แต่คำสั่งก็วนซ้ำอยู่  เนื่องจากตรวจสอบเงื่อนหลังทีหลัง



EXIT

' คำสั่ง EXIT สามารถใช้กับ LOOP ได้ทั้ง 3 แบบ
' เป็นคำสั่งเดียวกับ break ในภาษาปาสคาล


number%=5
while number%<10 do
     input "number%=", number%
        if number% = 1 then
            exit while
        end if
wend

' หากเป็นการวนซ้ำแบบ for จะใช้ exit for
' และแบบ do loop until จะใช้ exit do