超简单PASCAL 程序问题

来源：百度知道 编辑：UC知道 时间：2024/06/02 19:45:59
读入一串字符，将a,b,c,d或A,B,C,D转换成1，2，3，4，其余的字符转换成5，然后输出。请编程实现。

var s:string;
i:integer;
begin
readln(s);
writeln;
for i:=1 to length(s) do
if s[i] in ['a'..'d'] then write(ord(s[i])-ord('a')+1) else
if s[i] in ['A'..'D'] then write(ord(s[i])-ord('A')+1) else
write(5);
end.

var
c:char;
num:integer;

begin
while not eoln do
begin
read(ch);
ch:=upcase(ch);

num:=ord(ch)-ord('A')+1;

if (num>5)or(num<=0) then num:=5;
write(num);
end;
end.

program exp;
var s:string; i:integer;
begin
readln(s);
for i:=1 to len(s) do
if (s[i]>='a')and(s[i]<='d')
then s[i]:=chr(ord(s[i])-ord('a')+1)
else if (s[i]>='A')and(s[i]<='D')
then s[i]:=chr(ord(s[i])-ord('A')+1)
else s[i]:='5';
writeln(s);
end.