program Rownanie_kwadratowe; uses Crt; var a,b,c,x0,x1,x2,delta :real;
begin
ClrScr; GoTOXY(1,5); writeln('Program oblicza pierwiastki'); writeln('Rownania kwadratowego dla dowolnych a,b,c'); writeln('Podaj a'); readln(a); if a=0 then writeln('Niedopuszczalna wartosc wspolczynnika a. Koniec programu') else begin writeln('Podaj b:'); readln(b); writeln('Podaj c:'); readln(c); writeln; writeln(' dla a=',a:6:3); writeln(' b=',b:6:3); writeln(' c=',c:6:3); delta:=b*b-4*a*c; if delta<0 then writeln(' Brak pierwiastkow rzeczywistych') else if delta=0 then begin x0:=-b/(2*a); writeln; writeln('Trojmian ma jeden pierwiastek', x0:6:3) end else begin x1:=(-b-sqrt(delta))/(2*a); x2:=(-b+sqrt(delta))/(2*a); writeln; end; end;