UC知道pascal高手来~几个简单的问题
来源：百度知道 编辑：UC知道 时间：2024/05/23 00:02:25
这2个程序为什么错?
program sanjiao2;
var a,b,c:real;
begin
write('a,b,c is ');readln(a,b,c);
if a=b=c
then writeln('DB')
else
if (a=b)or(a=c)or(b=c)
then writeln('DY')
else writeln('YB');
readln;
end.
program daxiao;
var a,b,c:real;
begin
write('a,b,c is ');readln(a,b,c);
if (a>b>c)
then writeln(a)
else
if (b>a>c)
then writeln(b)
else writeln(c);
readln;
end.
program sanjiao2;
var a,b,c:real;
begin
write('a,b,c is ');readln(a,b,c);
if a=b=c
then writeln('DB')
else
if (a=b)or(a=c)or(b=c)
then writeln('DY')
else writeln('YB');
readln;
end.
program daxiao;
var a,b,c:real;
begin
write('a,b,c is ');readln(a,b,c);
if (a>b>c)
then writeln(a)
else
if (b>a>c)
then writeln(b)
else writeln(c);
readln;
end.
这不是c语言！
修改：
program sanjiao2;
var a,b,c:real;
begin
write('a,b,c is ');readln(a,b,c);
if (a=b) and (b=c)
then writeln('DB')
else
if (a=b)or(a=c)or(b=c)
then writeln('DY')
else writeln('YB');
readln;
end.
program daxiao;
var a,b,c:real;
begin
write('a,b,c is ');readln(a,b,c);
if (a>b）and (b>c)
then writeln(a)
else
if (b>a) and (b>c)
then writeln(b)
else writeln(c);
readln;
end.
a=b=c a>b>c b>a>c
这几个表达式都是不合法的，在pascal里面不允许连等于。。。
可以改成
(a=b) and (b=c)
(a>b) and (b>c)
(b>a) and (a>c)