IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: Moshi ที่ สิงหาคม 07, 2009, 15:41:21
-
บทที่ 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 (http://www.it4x.com)
-
:-*