MAm prosbe, wie ktos moze gdzie jest blad w tym zrodle (Turbo Pascal 7.0) ?
Prosze o szybka odpowiedz...
Z gory THX 4 all
---<cut>---
uses crt;
var a,b,c:integer;
delta,x1,x2,x0,x:real;
begin
clrscr;
If (a=0) and (b=0) and (c=0) then writeln('Nieskonczenie wiele rozwiazan');
if (a=0) and (b=0) then writeln ('Brak rozwiazan');
if a=0 then x0:=-c/a;
writeln(x0);
if a<>0 then delta:=(sqr(
-4*a*c);
if delta<0 then writeln('Brak pierwiastkow');
if delta=0 then x0:=-b/2a;
writeln(x);
if delta>0 then (x1):=-b-sqrt(delta)/(2*a) and (x2):=-b+sqrt(delta)/(2*a);
writeln(x1,x2);
repeat until keypressed;
end.
---<cut>---
Prosze o szybka odpowiedz...
Z gory THX 4 all
---<cut>---
uses crt;
var a,b,c:integer;
delta,x1,x2,x0,x:real;
begin
clrscr;
If (a=0) and (b=0) and (c=0) then writeln('Nieskonczenie wiele rozwiazan');
if (a=0) and (b=0) then writeln ('Brak rozwiazan');
if a=0 then x0:=-c/a;
writeln(x0);
if a<>0 then delta:=(sqr(
if delta<0 then writeln('Brak pierwiastkow');
if delta=0 then x0:=-b/2a;
writeln(x);
if delta>0 then (x1):=-b-sqrt(delta)/(2*a) and (x2):=-b+sqrt(delta)/(2*a);
writeln(x1,x2);
repeat until keypressed;
end.
---<cut>---