level 11
你设是，的，额做什么》
2014年04月20日 00点04分
level 13
function不是这样子用的
var x1,x2,y1,y2,a,b:real;
function f(x:longint):longint;//求一元二次方程的解用不着它
begin
f:=a*x*x+b*y+c;
end;
begin
a:=1;b:=3;c:=2;
if △<0 then 输出错误;
x1:=求根公式1;
x2:=求根公式2;
writeln('X1=',x1,' X2=',x2);
end.
2014年04月20日 00点04分
5
var x1,x2,y1,y2,a,b:real;
function f(x:longint):longint;//求一元二次方程的解用不着它
begin
f:=a*x*x+b*y+c;
end;
begin
a:=1;b:=3;c:=2;
if △<0 then 输出错误;
x1:=求根公式1;
x2:=求根公式2;
writeln('X1=',x1,' X2=',x2);
end.
可不可以去掉if语句 ， 方程是x∧2＋3*x＋3＝0
2014年04月20日 01点04分
已经知道方程了啊
2014年04月20日 01点04分
回复 Super_one3级 :当然可以
2014年04月20日 05点04分
![[委屈]](/static/emoticons/u59d4u5c48.png)
怎么定义？
level 12
