Futaba

O Martuch ;o!

Liska

{program rozwiazuje rownania kwadratowe. Autor:Sweetie :)}
program rownanie_kwadratowe;
uses crt;
var a,b,c:integer;
delta:integer;
x1,x2,x0:real;
begin
clrscr;
writeln('podaj wsp˘lczyniki:');
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if a<>0 then
begin
delta:=b*b-4*a*c;
writeln('delta wynosi:',delta);
if delta=0 then
begin
x0:=(-b)/2*a;
write('jest jedno rozwiazanie:',x0:0:2);
end;
if delta>0 then
begin
x1:=(-b-sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);
writeln('Sa dwa rozwiazania');
writeln('x1=',x1:0:2);
writeln('x2=',x2:0:2);
end;
if delta<0 then write ('brak rozwiazan');
end
else write ('Wsp˘lczynik "a" musi byc rozny od 0');
readln;
End.