PASCAL的题

来源：百度知道 编辑：UC知道 时间：2024/05/16 13:04:56
任意输入三个字母，由程序判断其中是否包含字母表的相邻字母。如果是，输入出TRUE，否则为FLASE
三楼的
还是有点麻烦

program k(input,output);
var a:char;
k:1..3;
b:array[1..3] of char;
begin
k:=1;
repeat
read(a);
b[k]:=a;
k:=k+1;
until k=3;
if (succ(a)=b) or (succ(a)=c) or (succ(b)=a) or (succ(b)=c) or
(succ(c)=a) or (succ(c)=b) then writeln('TRUE')
else writeln('FALSE');
readln;
end.{比楼上的简单}

用asc，判断+1 或 -1 是否等于中间的数

var
a:array [1..3]of char;
procedure init;
begin
read(a[1],a[2],a[2],a[3],a[3]);
end;
procedure chck;
var
i:array[1..3]of byte;
x,y:integer;
begin
i[1]:=ord(a[1]);
i[2]:=ord(a[2]);
i[3]:=ord(a[3]);
for x:=1 to 3 do
for y:=1 to 3 do
if abs(i[x]-i[y])=1 then
begin
writeln('TRUE');
halt;
end;
writeln('FA