blad w Turbo Pascalu

[m4k3r_x]

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>---

 

[zork]

if delta=0 then x0:=-b/2a; tutaj chyba powinno byc if delta=0 then x0:=-b/2*a;

a tak poza tym to gdzie jest reszta tego skryptu ;-)
brakuje procedury wprowadzania zmiennych a b i c
i z tego powodu (jako ze sa zadeklarowane) przyjmuja domyslna wartosc 0, wiec przy
if delta>0 then (x1):=-b-sqrt(delta)/(2*a) and (x2):=-b+sqrt(delta)/(2*a);
2*a przyjmuje wartosc 0 i masz dzielenie przez 0 (w tym przykladzie powyzej zreszta tez) i debuger nie pozwoli ci wykonac takiego programu ;-)

ale takich wpadek pewnie jest tu wiecej: proponuje najpierw zajrzec do podrecznikow matematyki ;-)