Roots of a quadratic function: Difference between revisions
m
→{{header|Ada}}: was wrong
Thundergnat (talk | contribs) m (Fix Perl 6 -> Raku in comments) |
m (→{{header|Ada}}: was wrong) |
||
Line 46:
begin
if B < 0.0 then
X := (- B + SD) / (2.0 * A);
return (X, C / (A * X));
else
X := (- B - SD) / (2.0 * A);
return (C / (A * X), X);
end if;
|