Friday, May 13, 2011

22. ตัวอย่าง for-to (for-to example)

1) หากต้องการพิมพ์ข้อความออกทางหน้าจอ 5 ครั้งใช้คำสั่งดังนี้
program forto1;
var count:Integer;
BEGIN
for count:=1 to 5 do
writeln('Hello World!');
readln;
END.

2) หากต้องการแสดงตัวเลขที่วนรอบ
program forto2;
var count:Integer;
BEGIN
for count:=2 to 6 do
writeln(count);
readln;
END.

No comments:

Post a Comment