PROGRAM ex3_5;
uses crt;
const title=' Ex3_5 ตัดเกรดโดยการใช้ nested IF (4 เงื่อนไข) ';
author=' โดย นายองอาจ พรมประไพ';
Var score:integer;
yn:char;
{main}
begin
repeat
clrscr;writeln;
writeln(title);
writeln('===================================================');
writeln(author);
writeln('===================================================');writeln;
writeln(' ป้อนคะแนน');writeln;
repeat
write('คุณได้คะแนน = ');readln(score);
until ((score>=0) and (score<=100));
if score>80 then writeln(' คุณได้เกรด A')
else if score>60 then writeln(' คุณได้เกรด B')
else if score>40 then writeln(' คุณได้เกรด C')
else if score>20 then writeln(' คุณได้เกรด D')
else writeln(' คุณได้เกรด F ตกซะแล้ว');
writeln('==================================================');
write('ทำต่อ ? ' ); readln(yn);
yn:=upcase(yn);
until yn='N';
end.
|
