pascal程序 从键盘上读入小写的pascal,利用chr()和ord()函数,输出大写pascal
来源:百度知道 编辑:UC知道 时间:2024/05/14 21:45:51
Var
a:string;
i:Integer;
Begin
Readln(a);
for i:=1 to Length(a) do a[i]:=chr(ord(a[i])-22);
Writeln(a);
End.
手打的 不知道有没有什么地方编译错误
望采纳
var
a:char;
b:byte;
begin
readln(a);
b:=ord('A')+ord(a)-ord('a');
writeln(chr(b));
end.