UC知道判断三个整数是否相邻
来源：百度知道 编辑：UC知道 时间：2024/06/23 16:53:25
判断三个整数是否相邻，是输出"TRUE"，否则输出"FALSE"。
我的答案是这样的：
program P228;
var
a,b,c,d:longint;
begin
readln(a,b,c);
d:=a;
if b-d=1 then d:=b else writeln('FALSE');
if c-d=1 then writeln('TURE');
end.
各位仁兄，有哪里不对吗？
应该怎样改？？？
我用的是Pascal语言。
我的答案是这样的：
program P228;
var
a,b,c,d:longint;
begin
readln(a,b,c);
d:=a;
if b-d=1 then d:=b else writeln('FALSE');
if c-d=1 then writeln('TURE');
end.
各位仁兄，有哪里不对吗？
应该怎样改？？？
我用的是Pascal语言。
//先排个序
Program P228;
var
a:array[1..3] of longint;
i,j,temp:integer;
begin
readln(a[1],a[2],a[3]);
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]>a[j] then begin
temp:=a[i];a[i]:=a[j];a[j]:=temp;
end;
if (a[3]-a[2]=1)and(a[2]-a[1]=1) then writeln('TRUE')
else writeln('FALSE');
end.
楼主有没有考虑过a,b,c的顺序并不是按照从大到小的顺序？