45 lines
909 B
ObjectPascal
45 lines
909 B
ObjectPascal
program rownanie_kwadratowe;
|
|
var
|
|
a,b,c : Double;
|
|
x,x1,x2 : Double;
|
|
Delta : Double;
|
|
begin
|
|
write('Podaj a: ');
|
|
ReadLn(a);
|
|
write('Podaj b: ');
|
|
ReadLn(b);
|
|
write('Podaj c: ');
|
|
ReadLn(c);
|
|
|
|
|
|
|
|
if a=0 then
|
|
begin
|
|
x:=c/b;
|
|
writeln('To jest rownanie liniowe');
|
|
writeln(x:0:5); // Wypisze pięć miejsc po przecinku zamiast naukowej notacji
|
|
end else
|
|
begin
|
|
Delta:=b*b-4*a*c;
|
|
if Delta < 0 then
|
|
writeln('Brak rozwiazan')
|
|
else
|
|
begin
|
|
if Delta > 0 then
|
|
begin
|
|
x1:=(-b - Sqrt(Delta))/(2*a);
|
|
x2:=(-b + Sqrt(Delta))/(2*a);
|
|
writeln('Dwa pierwiastki');
|
|
writeln(x1:0:5);
|
|
writeln(x2:0:5);
|
|
end else
|
|
begin
|
|
x:=b/(2*a);
|
|
writeln('Jeden pierwiastek');
|
|
writeln(x:0:5);
|
|
end;
|
|
end;
|
|
|
|
end;
|
|
end.
|