编程题vf

来源：百度知道 编辑：UC知道 时间：2024/05/30 23:44:31
1、判断一元二次方程ax^2+bx+c=0是否有实数根，如果有，输出其实根abc由键盘输入
2、由键盘输入若干非零实数，直到输入0时停止，统计其中的正数个数，负数个数

我就偷懒打个过程，至于片头定义变量，您自己来吧。
(1)
procedure panduan(a,b,c:real);
var delta:real;
x:real;
begin
delta:=b*b-4*a*c;
if r>0 then begin
x:=((-1*b)+sqrt(delta))/(2*a);
writeln(x:0:10);
x:=((-1*b)-sqrt(delta))/(2*a);
writeln(x);
end;
end;

(2){这个打完整一点}
var pos,neg,i:longint;
this:real;
begin
readln(this);
while this<>0 do begin
if this<0 then inc(neg)
else inc(pos);
readln(this);
end;
writeln(pos);
writeln(neg);
end;