我老師要我寫一個程式係當人地打quadratic equation 既a,b,c三個數時,可以指出佢既nature of root,條式係b^2-4ac
如果個三個數可以 form two real roots或者double roots,姐係D>0或者D=0,個程式都run到,但如果D<0,姐係b^2-4ac細過0,就出現runtime error,我唔知點解決,我試過寫if b*b<4*a*c,then writeln('It has no real roots'),都係照樣出runtime error,希望有人幫我解決,thx
中四電腦問題(Pascal programme)
2007-09-29 3:31 am
回答 (2)
2007-09-29 3:44 am
✔ 最佳答案
program quaratic_equation;uses
wincrt;
var
a,b,c,d:longint;
begin
writeln('ax^2+bx+c=0');
write('Enter the number of a: ');
readln(a);
write('Enter the number of b: ');
readln(b);
write('Enter the number of c: ');
readln(c);
d:= b*b-4*a*c;
if d<0 then
writeln('No real roots')
else
begin
if d=0 then
writeln('The root is ',((-b+sqrt (d))/(2*a)):0:20,'(Repeated)');
if d>0 then
begin
writeln('the roots are:');
writeln((-b+sqrt (d))/(2*a):0:20);
writeln((-b-sqrt (d))/(2*a):0:20);
end
end
end.
參考: me
2007-09-29 8:02 pm
program quaratic_equation;
uses wincrt;
var
a,b,c,d:integer;
begin
writeln('ax^2+bx+c=0');
write('Enter the number of a: ');
readln(a);
write('Enter the number of b: ');
readln(b);
write('Enter the number of c: ');
readln(c);
d:= b*b-4*a*c;
if d > 0 then writeln('Two double roots');
if d = 0 then writeln('double root');
if d < 0 then writeln('no real roots');
end.
uses wincrt;
var
a,b,c,d:integer;
begin
writeln('ax^2+bx+c=0');
write('Enter the number of a: ');
readln(a);
write('Enter the number of b: ');
readln(b);
write('Enter the number of c: ');
readln(c);
d:= b*b-4*a*c;
if d > 0 then writeln('Two double roots');
if d = 0 then writeln('double root');
if d < 0 then writeln('no real roots');
end.
參考: me
收錄日期: 2021-04-13 18:44:28
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20070928000051KK02873