Question

napisz program obliczający pierwiastki równania kwadratowego z wykorzystaniem modułu użytkownika.

Wykres funkcji liniowej

Dev-Pascal

Answer 1

program rownanie;

uses crt;

var a,b,c,delta,wynik, wynik2:real;

begin

clrscr;

writeln('Podaj a:');

readln(a);

writeln('Podaj b:');

readln(b);

writeln('Podaj c:');

readln(c);

delta:=-b-4*a*c

 

if delta<0 then

writeln('Brak pierwiastków');

 

if delta=0 then

begin

wynik:=(-b-delta)/2*a;

writeln('Pierwiastek wynosi:', wynik:0:0);

end

else

begin

wynik:=(-b-delta)/2*a;

wynik2:=(-b+delta)/2*a;

writeln('Pierwiastek wynosi:', wynik:0:0, ' i ', wynik2:0:0);

end;

readln;

end.