Program Funkcja kwadratowa


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;


end.

Wyszukiwarka