上一篇文章说了case语句的语法和功能，这一篇文章就针对case语句提供一个例题，供大家练习用：

例题：
编写程序将学生成绩的百分制分数转换成等级字符输出：
100~90为A级
89~80为B级
79~70为C级
69~60是D级
59~0是E级
当输入一个成绩后，则输出它对应的等级字母。

解答：

program dengji(input,output);
var s:integer;g:char;
begin
write('please input a data:');
read(s);
case s div 10 of
10,9:g:='a';
8:g:='b';
7:g:='c';
6:g:='d';
0,1,2,3,4,5:g:='e';
end;
writeln('grade=',g);
end.