หัวข้อคือ
1รับชื่อ
2รับเบอร์
3กลับไปรับชื่อไหม่จนครบ3ครั้ง
4แสดงชื่อทั้ง3เบอออกมา
หมายเหตูผมทำแล้วแต่มันไม่ผ่าน อ่าจานต้องการ ให้ ใช้ repeat ..until loopเดียว อะครับ
ดูที่ผมทำมานะครับ คือจะบอกไงดีไม่รู้ว่าจะเข้าใจไหม คือใช้loop เดียวแล้ว เก็บไว้ แล้วกลับมารับอีก2 ให้ครบ3ครังแล้วแสดง นะครับ
program submit2;
uses crt;
var g,u,n:integer;
a,c,e,b,d,f:string[10];
begin
repeat
clrscr;
writeln('Input Name = ');
readln(a);
writeln('Input Tle. = ');
readln(b);
g:=g+1
until(g=1);
repeat
clrscr;
writeln('Input Name = ');
readln(c);
writeln('Input Tle. = ');
readln(d);
u:=u+1;
until(u=1);
repeat
clrscr;
writeln('Input Name = ');
readln(e);
writeln('Input Tle. = ');
readln(f);
n:=n+1;
until(n=1);
clrscr;
writeln(a);
writeln(b);
writeln(c);
writeln(d);
writeln(e);
writeln(f);
readln;
end.
1รับชื่อ
2รับเบอร์
3กลับไปรับชื่อไหม่จนครบ3ครั้ง
4แสดงชื่อทั้ง3เบอออกมา
หมายเหตูผมทำแล้วแต่มันไม่ผ่าน อ่าจานต้องการ ให้ ใช้ repeat ..until loopเดียว อะครับ
ดูที่ผมทำมานะครับ คือจะบอกไงดีไม่รู้ว่าจะเข้าใจไหม คือใช้loop เดียวแล้ว เก็บไว้ แล้วกลับมารับอีก2 ให้ครบ3ครังแล้วแสดง นะครับ
program submit2;
uses crt;
var g,u,n:integer;
a,c,e,b,d,f:string[10];
begin
repeat
clrscr;
writeln('Input Name = ');
readln(a);
writeln('Input Tle. = ');
readln(b);
g:=g+1
until(g=1);
repeat
clrscr;
writeln('Input Name = ');
readln(c);
writeln('Input Tle. = ');
readln(d);
u:=u+1;
until(u=1);
repeat
clrscr;
writeln('Input Name = ');
readln(e);
writeln('Input Tle. = ');
readln(f);
n:=n+1;
until(n=1);
clrscr;
writeln(a);
writeln(b);
writeln(c);
writeln(d);
writeln(e);
writeln(f);
readln;
end.