PASCAL 简单顺序结构程序设计

发布网友发布时间：2022-10-16 03:28

共3个回答

热心网友时间：2023-10-15 10:15

var
a,b,c,x1,x2,d:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
d:=b*b-4*a*c;
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
writeln('x1=',x1);
writeln('x2=',x2);
readln;
end.

热心网友时间：2023-10-15 10:16

var
a,b,c,d,x1,x2:real;
begin
readln(a,b,c);
d:=sqrt(sqr(b)-4*a*c);
x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a);
writeln(x1:2:2); writeln(x2:2:2);
end.

我没查错，将就一下。

zhenlanbing@sina.com

热心网友时间：2023-10-15 10:16

var
a,b,c,d,x1,x2:real;
begin
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then exit;
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln(x1,' ',x2);
end.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com