ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
ช้วยหน่อยนะครับ งง มากเลย repeat...until
แสดงแล้ว 5866 ครั้ง /
กรกฎาคม 15, 2010, 15:17:05

bigbomclub

ออฟไลน์
กระทู้ : 1
คะแนนขอบคุณ : 0
หัวข้อคือ
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.


Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กรกฎาคม 15, 2010, 22:32:41
เดียวว่างๆ จะมาแก้ให้

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กรกฎาคม 17, 2010, 07:39:15
program name123;
uses crt;
var name : array[1..3] of String;
var i,x:integer;
begin
      clrscr;
      x:=1;
      i:=1;
repeat
      write('Enter Name',i,' : ');
      readln(name);
      i:=i+1;
until i>3;
      clrscr;
      writeln('You Name 1 = ',name[1]);
      writeln('You Name 2 = ',name[2]);
      writeln('You Name 3 = ',name[3]);

      readln;
end.

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กรกฎาคม 17, 2010, 09:15:48
ด้านบนที่เขียนไปเป็น ตัวอย่างนะครับ

ลองไปประยุกต์แล้วดัดแปลงเพิ่ม เพื่อ รับเบอร์และชื่อเอาดูนะครับ

 

ด้วยฟังค์ชั่น ตอบด่วน คุณสามารถใช้โค๊ดและ เครื่องหมายแสดงอารมณ์ได้ เหมือนการตั้งกระทู้ธรรมดา แต่สามารถทำได้สะดวกกว่า

ระวัง: หัวข้อนี้ไม่มีการอัพเดทมานานถึง 120 วัน

แจ้งเตือน: โพสของคุณจะไม่แสดงจนกว่าผู้ดูแลจะอนุมัติ.
ชื่อ: อีเมล์: