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