IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT

ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: gowit ที่ มกราคม 22, 2010, 13:05:37

หัวข้อ: ช่วยเติมให้สมบูรณ์หน่อยครับ
เริ่มหัวข้อโดย: gowit ที่ มกราคม 22, 2010, 13:05:37: program while_test
uses crt;
var
n, sum :integer;
begin
clrscr();
n := 0;
...........;
while n >=0 do //Exit while loop when N is negative
begin
write (' please input N: ');
read(in);
............;
end;
............;
writeln (' Bye Bye !!! ');
end.
หัวข้อ: Re: ช่วยเติมให้สมบูรณ์หน่อยครับ
เริ่มหัวข้อโดย: ßë©äûšë ที่ มกราคม 22, 2010, 13:16:49: รอเร็ปล่างละกันนะครับ :P
หัวข้อ: Re: ช่วยเติมให้สมบูรณ์หน่อยครับ
เริ่มหัวข้อโดย: Moshi ที่ มกราคม 22, 2010, 14:13:42: program while_test;
uses crt;
var n, sum :integer;
begin
clrscr;
n := 0;
writeln('...........');
while n >=0 do //Exit while loop when N is negative
begin
write (' please input N: ');
read(n);
writeln('...........');
end;
writeln('...........');
writeln (' Bye Bye !!! ');
end.