CaseOfElseEnd Case Selector Of Selector 1 Statement Selector
- Slides: 6
Case/Of/Else/End คำสงสำหรบการทำงานทมเงอนไขทหลา ยทางเลอก รปแบบ Case Selector Of Selector 1 : Statement; Selector 2 : Statement; : Selector. N : Statement; Else Statement;
Program Case_Example; Uses crt; Var ans: char; num 1, num 2: integer; Begin write('Type first number = '); read. Ln(num 1); write('Type second number = '); read. Ln(num 2); write('Select + - * / ==> '); read. Ln(ans); Case ans of '+': write. Ln(num 1, ' + ', num 2, ' = ', num 1+num 2); '-': write. Ln(num 1, ' - ', num 2, ' = ', num 1 -num 2); '*': write. Ln(num 1, ' * ', num 2, ' = ', num 1*num 2); '/': write. Ln(num 1, ' / ', num 2, ' = ', num 1/num 2); Else write. Ln('Error') End; End.
program grade; uses wincrt; var score : integer; begin write('input your score'); readln(score); case score of 80. . 100 : write('A'); 75. . 79 : write('B+'); 70. . 74 : write('B'); 65. . 69 : write('C+'); 60. . 64 : write('C'); 55. . 59 : write('D+'); 50. . 54 : write('D'); else write('E'); end.
