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

ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: By MisS ที่ ธันวาคม 22, 2009, 18:28:59

หัวข้อ: คัยรู้ ช่วยทีคับบ ด่วนมากๆ !!รบกวนหน่อยคับบ (adminยิ่งดีคับบ)
เริ่มหัวข้อโดย: By MisS ที่ ธันวาคม 22, 2009, 18:28:59
คือผมอยากรบกวนพี่ๆช่วยแปล ความหมายของ

Program เช็คว่าคุณแก่หรือยังโดย pascal ของพี่adminที่เคยลงเอาไว้อะคับบ (ที่ละบรรทัด)
เอาหมดเลยนะคับ

เช่น      program t4; หมายความว่าไง    ....................
          uses crt;           ,,            ....................

ปล. ขอบคุณล่วงหน้าคับบ ลงไว้ที่เวปหรือไม่ก็ส่งมาื่ทางอีเมล์ก็ได้คับบ ผมแอดเมล์ไปแล้ว
     [email protected] (เอาทั้งสองแบบเลยนะคับ if/case) :-* :-*"
 
โปรแกรม เช็คว่าอายุคุณแก่หรือยัง
--------------------------

โดยรับค่า ชื่อ สกุล และ อายุของคุณ จากนั้นใช้เงื่อนไขโดย

กำหนดว่า ถ้าอายุ น้อยกว่า 0 = "ERROR"
           ถ้าอายุ 0-10 = "Baby"      = เด็กน้อย
           ถ้าอายุ 11-18 = "teens"    = วัยรุ่น
           ถ้าอายุ 19-30 = "Workers" = วัยทำงาน
           ถ้าอายุ 31-60 = "Elderly" = วัยทอง
           มากกว่า 60 = "Geezer" = คนแก่

จะสามารถทำได้ 2 รูปแบบนะครับ แบบแรกคือ ทำโดยใช้ IF แบบที่สอง คือทำโดยใช้ Case

แบบแรก If

program it4x;
uses crt;
var name,surname:string;
    old:integer;
begin
     clrscr;
     write('Input Your Name = ');
     readln(name);
     write('Input Your SurName = ');
     readln(surname);
     write('How Old Are You ? = ');
     readln(old);
     clrscr;
     writeln('Your name = ',name,' ',surname);
     if old<=0 then
     writeln('Your old Error')
     else
     if old<=10 then
     writeln('Your old Baby')
     else
     if old<=18 then
     writeln('Your old Teens')
     else
     if old<=30 then
     writeln('Your old Workers')
     else
     if old<=60 then
     writeln('Your old Elgerly')
     else
     if old>=61 then
     writeln('Your old Workers');
     ;;;;;;
     readln;
end.
ลอง Copy ไปรันดูครับ

แบบที่สองแบบ Case

program it4x;
uses crt;
var name,surname:string;
    old:integer;
begin
     clrscr;
     write('Input Your Name = ');
     readln(name);
     write('Input Your SurName = ');
     readln(surname);
     write('How Old Are You ? = ');
     readln(old);
     clrscr;
     writeln('Your name = ',name,' ',surname);
     case old of
     0..10:writeln('Your Old Baby');
     11..18:writeln('Your Old Teens');
     19..30:writeln('Your Old Workers');
     31..60:writeln('Your Old Elderly');
     61..100:writeln('Your Old Geezer');
     else
     writeln('Your Old ERROR');
     end;
     readln;
end.
                                                         นี้อะึัคับ  ช่วยผมที  !!  ด่วนมาก
หัวข้อ: Re: คัยรู้ ช่วยทีคับบ ด่วนมากๆ !!รบกวนหน่อยคับบ (adminยิ่งดีคับบ)
เริ่มหัวข้อโดย: By MisS ที่ ธันวาคม 22, 2009, 18:33:25
ขุดๆ ช่วยหน่อยคับบ ๆจำเป็นจิงๆ คับบ บบ บ บ 




ปล. พี่ๆ ที่มีน้ำใจช่วยล่วงหน้าคับบบ
หัวข้อ: Re: คัยรู้ ช่วยทีคับบ ด่วนมากๆ !!รบกวนหน่อยคับบ (adminยิ่งดีคับบ)
เริ่มหัวข้อโดย: Moshi ที่ ธันวาคม 22, 2009, 19:00:19
แบบ IF ก่อนนะครับ

program it4x;    --- >    ชื่อโปรแกรม it4x
uses crt;   --- >  เรียกฟังก์ชั่น crt เพื่อใช้ล้างหน้าจอ
var name,surname:string;   --- > ประกาศตัวแปร name และ surname เป็นแบบ ข้อความ string
    old:integer;  --- > ประกาศตัวแปร old เป็น ตัวเลขจำนวนเต็ม integer
begin  --- > เริ่มโปรแกรม
     clrscr; --- > ล้างหน้าจอ
     write('Input Your Name = ');  --- > แสดงคำว่า  Input Your name ออกทางหน้าจอ
     readln(name); --- > รับค่าเค้าตัวแปร name
     write('Input Your SurName = '); --- > แสดงคำว่า  Input Your Surname ออกทางหน้าจอ
     readln(surname); --- > รับค่าเค้าตัวแปร surname
     write('How Old Are You ? = ');  แสดง ** เหมือนเดิม
     readln(old);  รับค่าเหมือนเดิม
     clrscr;   ล้างหน้าจอ
     writeln('Your name = ',name,' ',surname);  แสดงคำว่า Your name = และดึงค่าในตัวแปร name , surname มาแสดง
     if old<=0 then   ถ้า ตัวแปร old น้อยกว่า หรือ = 0  ให้ทำ
     writeln('Your old Error')  อายุ เอ๋อ
     else  ถ้าไม่ใช่ให้ทำ
     if old<=10 then  ถ้า ตัวแปร old น้อยกว่า หรือ = 10  ให้ทำ
     writeln('Your old Baby')  คุณเด็กน้อย  ที่เหลือก็เหมืิอนเดิม
     else
     if old<=18 then
     writeln('Your old Teens')
     else
     if old<=30 then
     writeln('Your old Workers')
     else
     if old<=60 then
     writeln('Your old Elgerly')
     else
     if old>=61 then
     writeln('Your old Workers');
     ;;;;;;
     readln;  รับค่าเพื่อให้ Enter ครั้งสุดท้าย
end.  จบโปรแกรม



Case


program it4x;    หัวเหมือนเดิม ทุกอย่างเหมือนเดิม
uses crt;
var name,surname:string;
    old:integer;
begin
     clrscr;
     write('Input Your Name = ');
     readln(name);
     write('Input Your SurName = ');
     readln(surname);
     write('How Old Are You ? = ');
     readln(old);
     clrscr;
     writeln('Your name = ',name,' ',surname);
     case old of   เลือก อายุ เป็นคำสั่ง ตัวแปล เหมือน If แต่ให้เขียนสั้นกว่า
     0..10:writeln('Your Old Baby');   ถ้าอายุ 0-10 ให้แสดง = เด็กน้อย
     11..18:writeln('Your Old Teens');  ถ้าอายุ 11-18 ให้แสดง = วัยรุ่น  ต่อเอา
     19..30:writeln('Your Old Workers');
     31..60:writeln('Your Old Elderly');
     61..100:writeln('Your Old Geezer');
     else  ถ้าไม่ใช่ในเงื่อนไชทั้งหมด
     writeln('Your Old ERROR');  แสดงว่า error
     end;
     readln;
end.