Kvardraticka rovnice – Pascal – Fórum – Programujte.com

Zdravim,
potreboval bych vedet, jestli mam spravne tenhle program. Compile probehne v pohode, ale kdyz ho spustim a zadam cisla, tak hned zmizi.

Program: http://rapidshare.com/files/158378626/kvadr.rar.html

Diky.

a co kdyby si to spustil z prikazove radky?

Pridaj readln; na koniec programu pred end.

nemáš tam správně výpočet kořenů. Má tam být odmocnina z diskriminantu. Kdybys tam připsal sqrt(D) tak by při D<0 došlo k běhové chybě, protože to jaké znaménko má D kontroluješ až na konci. upravil bych to teda takhle:

if a=0 then begin
writeln;
writeln ('Neni kvadraticka rovnice');
end

else begin
D:=b*b-4*a*c;

if D>0 then
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln('dve reseni');
writeln('x1=',x1);
writeln('x2=',x2);
end

else if D=0 then
begin
x:=-b/2*a;
writeln('jedno reseni');
writeln(x);
end

else writeln('Nema reseni');
end;

Jo, diky vsem. Pak jsem si vsiml, ze tam nemam odmocninu a nakonec jsem to i dotahl do uspesneho konce.