ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
บทที่ 8 การใช้ case of
แสดงแล้ว 7974 ครั้ง /
สิงหาคม 07, 2009, 15:41:21

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
บทที่ 8 การใช้ case of
-------------------

การใช้ Case ก็คล้ายๆ กับ if then else แต่ถ้าใช้ Case จะเป็นคำสั่งที่สั้นกว่า

โครงสร้างของ case

case ตัวแปร of
       เงื่อนไข : คำสั่ง;
       เงื่อนไข : คำสั่ง;
       เงื่อนไข : คำสั่ง;
       เงื่อนไข : คำสั่ง;
       เงื่อนไข : คำสั่ง;
else
       คำสั่ง <<< ถ้าไม่มีในเงื่อนไขข้างต้นให้ทำ
end;

หมายเหตุ : สามารถใช้ begin และ end ได้ หากมีหลายคำสั่ง คล้ายๆกับ if เช่น

case ตัวแปร of
       เงื่อนไข : begin
                          คำสั่ง;
                          คำสั่ง;
                          คำสั่ง;
                  end;
        เงื่อนไข : begin
                          คำสั่ง;
                          คำสั่ง;
                          คำสั่ง;
                  end;
else
       begin
                  คำสั่ง;
                  คำสั่ง;
                  คำสั่ง;
        end;
end.

เรามาลองทำโปรแกรมตัดเกรดโดยใช้ Case Of กันนะครับ จะได้แบบนี้

program Cut_Grade_Case;
uses crt;
var score:integer;
begin
      clrscr;
      write('Input Your Score = ');
                readln(score);
      writeln('******************');
                writeln;
                writeln;
      case score of
                0..49  : writeln('Your Grade E');
      50..59 : writeln('Your Grade D');
      60..69 : writeln('Your Grade C');
      70..79 : writeln('Your Grade B');
      81..100: writeln('Your Grade A');
      else
               writeln('Score Error');
      end;
      writeln;
      writeln;
      writeln('Press Any Key To Exit');
      readln;
end.

ลอง Copy ลงดูนะครับ แล้วลองรันดู

Copy ไปไว้ที่ไหน กรุณาให้ Credit กันด้วยนะครับ

Credit : www.it4x.com

« แก้ไขครั้งสุดท้าย: สิงหาคม 29, 2009, 21:43:16 โดย admin »

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
สิงหาคม 29, 2009, 21:47:44
 :-*

 

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

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

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