Program Rownanie;
uses crt;
var
a,b,c,delta,x1,x2 : real;
s:string;
label
start;
begin
start;
clrscr;
writeln('Program rozwiazuje rownanie kwadratowe o postaci : y=axx+bx+c');
write('Podaj wspolczynnik a : ');
readln(a);
write('Podaj wspolczynnik b : ');
readln(b);
write('Podaj wspolczynnik c : ');
readln(c);
delta:=sqr(b)-(4ac);
If delta<0 then writeln ('Rownanie nie posiada pierwiastkow!')
else
begin
if (c/a >0) then
begin
if (-b/a) >0 then writeln('pierwiastki dodatnie');
else
if (-b/a)=0 then exit
else writeln ('Pierwiastki sa ujemne.')
end
else
if (c/a)=0 then exit
else writeln ('Pierwiastki maja rozne znaki.')
end;
readln;
Writeln('Czy chesz zakończyć dzialanie programu ?? [T=Tak, N=Nie]');
Readln(S);
if (S = 'N') or (S = 'n') then goto Start;
end.
no i teraz mi niedziała .nie wiem dlaczego?Ma wyswietlac czy dodatnie czy ujemne czy rozne znaki siedze juz 3 godziny i nie wiem po prostu jestem ciota!