关于Pascal语言的习题

11 |

输入一个字符将它们转换成相应数值并输出,现在将A,B,C,D或a,b,c,d转换成1,2,3,4,其它转换成5

千问 | 2011-5-23 22:09:48 | 显示全部楼层

vara:char;beginreadln(a);case a of'A','a':writeln(1);'B','b':writeln(2);'C','c':writeln(3);'D','d':writeln(4); else writeln(5);end;end.

千问 | 2011-5-23 22:09:48 | 显示全部楼层

Program exp;var ch:char;beginreadln(ch);if ('A'q-1 then c:=false;
if c then write(a:8);

千问 | 2011-5-23 22:09:48 | 显示全部楼层

vari,j:set of char;k:char;beginreadln(k);i:=['A','B','C','D'];j:=['a','b','c','d'];if k in i then writeln(ord(k)-64)
else if k in j then writeln(ord(

主题	0 回帖	4882万积分

Rank: 8 Rank: 8

热门排行