Ошибки в программе. Кто найдет?

[Fatalita]

program n49;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a,b,c,h,d, x1, x2 :real ;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('Vvedite h=');
Readln(h);
a:=Sqrt(Abs(sin(8*h))+17/(sqr(1-sin(4*h)*cos((h*h)+18))));
b:=1-(Sqrt(3/(3+abs(Sin(a*(h*h))/cos(a*(Sqr(h))-sin(a*h))))));
c:=a*H*h*sin(b)*h+b*(h*h*h)*cos(a)* h;
d:=Sqrt(b*b-4*a*c);
if
d<0
then
begin
x1:=(-b+d)/(2*a*c);
x2:=(-b-d)/(2*a*c);
end
writeln('x1 = ', x1, 'x2=',x2 )
else
writeln('korney net');
Readln;
end.

[Niro]

Для начала - здрасьте

d:=Sqrt(b*b-4*a*c);

а если "b*b-4*a*c" уже меньше нуля? и вы пытаетесь извлечь из него корень - ошибка

if d<0 then

наоборот

if d>0 then

[Вадим Мошев]

Что конкретно не получается и в чём выражаются ошибки?

[Mad_Cat]

функция корня всегда возвращает положительное число так что ваш if не отрабатывает. И проверку d нужно поставить до извлечения корня.

[Hacker19_90]

А ошибочка типо "Error in stateming"??
смотрим

if 
 d<0 
 then
 begin
 x1:=(-b+d)/(2*a*c); 
 x2:=(-b-d)/(2*a*c); 
 end 
 writeln('x1 = ', x1, 'x2=',x2 )
 else

после блока then идёт Writeln а потом else!
эДобавте writeln в блок then

[iCaesy]

Код нужно вставлять вот так

код

Вот рабочая версия

program n49;

var
a,b,c,h,x1,x2,d:real;
begin

write('Vvedite h=');
Readln(h);
a:=Sqrt(Abs(sin(8*h))+17/(sqr(1-sin(4*h)*cos((h*h)+18))));
b:=1-(Sqrt(3/(3+abs(Sin(a*(h*h))/cos(a*(Sqr(h))-sin(a*h))))));
c:=a*H*h*sin(b)*h+b*(h*h*h)*cos(a)* h;
d:=Sqrt(b*b-4*a*c);
if d>0 then
begin
x1:=(-b+d)/(2*a*c);
x2:=(-b-d)/(2*a*c);
end;
writeln('x1 = ', x1, 'x2=',x2 );
if d<0 then begin
writeln('korney net');
end;
Readln;
end.

[Fatalita]

Компилятор не удерживает. вводим h и все пропадает.
В этом и проблема.
Куда еще воткнуть readln?

[Fatalita]

[QUOTE= И проверку d нужно поставить до извлечения корня.[/QUOTE]
Тогда в чем будет заключаться условие?

[Hacker19_90]

Компилятор не удерживает. вводим h и все пропадает.
В этом и проблема.

Дак ёпт он и в реал-тайме не чё не выдаёт?
Чё тогда гадать пошагово прогони программу!

[Fatalita]

Все исправила. Ошибки устранены. Программа работает. Спасибо)