บทที่ 8 การใช้ case of

บทที่ 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