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