♥♥♥♥♥♥ AS ♥♥♥♥

program quadratische_gleichung;

{$APPTYPE CONSOLE}

uses
SysUtils;

var p, q, x1, x2 : extended;

function dis (pe, qu : extended) : extended;
begin
result := sqr (pe/2)-qu

end ;

begin
write ('p = '); readln(p) ;
write ('q = '); readln(q) ;
if dis(p,q) < 0 then
writeln ('keine reele Lösung')
else
begin
x1 := -p/2 +sqrt(dis(p,q));
x2 := -p/2 -sqrt(dis(p,q))
end;
writeln(x1:6:2);
writeln(x2:6:2);
readln

end.

jaja du kleiner lümel

RedBull verleiht flügel

Gesponsort von RedBull!

#gegenSabineSmaschenix#ichHab'nStändaa#SchelleOfDeinFaddiSeinMUddi