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

ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: bomban1112 ที่ กรกฎาคม 08, 2010, 22:34:18

หัวข้อ: ช่วยทีครับทำเท่าไรไม่ได้เลย
เริ่มหัวข้อโดย: bomban1112 ที่ กรกฎาคม 08, 2010, 22:34:18

(คือพอดีพึงเรียน pascal เลยทามไม่ค่อย เป็น)

อยากให้ช่วยทามตามโจทย์หน่อยครับทามตั้งนานไม่ได้สักที

โจทย์:จงเขียนโปรแกรมในการรับเพศ (sex) (male and female) ถ้า(sex)มีค่าเป็น m ให้แสดงคำว่า male และกรอกชื่อนามสกุลของผู้ชาย2คน      ถ้าเป็น f ให้แสดงคำว่า female และกรอกชื่อนามสกุลของ ผู้หญิงมา3คน



 :P ไงก็ช่วยหน่อย นะครับ คอบคุณ ล่วงหน้าครับ

หัวข้อ: Re: ช่วยทีครับทำเท่าไรไม่ได้เลย
เริ่มหัวข้อโดย: Moshi ที่ กรกฎาคม 09, 2010, 18:03:52

เอาไปลองดูนะครับ ยังไม่ได้ลอง

program it4x;
uses crt;
var sex:char;
    name1,name2,name3:string;
begin
     clrscr;
     write('What Is Your Sex (M = male) (F = Female) ? = ');
     readln(sex);
     sex:=upcase(sex);


     if sex="M" then
   begin
      writeln('Your Male')
      write('What Is Your Name1 ? = ');readln(name1);
      write('What Is Your Name2 ? = ');readln(name2);
   end;
     
     else
   begin
      writeln('Your FeMale')
      write('What Is Your Name1 ? = ');readln(name1);
      write('What Is Your Name2 ? = ');readln(name2);
      write('What Is Your Name3 ? = ');readln(name3);
   end;

     readln;
end.

หัวข้อ: Re: ช่วยทีครับทำเท่าไรไม่ได้เลย
เริ่มหัวข้อโดย: bomban1112 ที่ กรกฎาคม 09, 2010, 20:13:10

 ??? ขอบใจครับที่ช่วย แต่ รันไม่ได้ อ่า ครับ ลองแก้ แล้ว แก้ จน มัน บอก total เออเลอร์ครับ
ช่วยให้ทีนะครับ

หัวข้อ: Re: ช่วยทีครับทำเท่าไรไม่ได้เลย
เริ่มหัวข้อโดย: Moshi ที่ กรกฎาคม 09, 2010, 20:59:53

อ้างจาก: bomban1112 ที่ กรกฎาคม 09, 2010, 20:13:10

??? ขอบใจครับที่ช่วย แต่ รันไม่ได้ อ่า ครับ ลองแก้ แล้ว แก้ จน มัน บอก total เออเลอร์ครับ
ช่วยให้ทีนะครับ

ช่วยแค่นี้หล่ะครับ หัดแก้เอา ดูไ้้ด้จาก ตัวอย่าง

http://www.it4x.com/forum/index.php?topic=1138.0 (http://www.it4x.com/forum/index.php?topic=1138.0)

ใบ้ให้ ผิดตัว ""

แล้วก็พวก ;