В чем ошибка?

[hitman12]

вот решил вроде простенькие задачки а в каждой выпрыгивает ошибка как ее исправить чет уму не приложу подскажите плиз

первая задача:

var
A,B,D,S,h,V,x,y:real;
U:real;
begin
write('A='); readln(a);
write('B='); readln(b);
write('D='); readln(d);
write('S='); readln(s);
write('shag H='); readln(h);
U:=a+exp(ln(b)*2)+s;
 while y<0 do
  begin
   x:=x+h;
   if (a*cos(b*x))>(s-d*x) then
   v:=a*cos(b*x);
   if (a*cos(b*x))=(s-d*x) then
   v:=24;
   if (a*cos(b*x))<(s-d*x) then
   v:=s-d*x;
   y:=-exp(x)+u+v;
  end;
 write('y=',y);
 readln
end.

вторая задача:

var
a,t1,t2,h,b,c,i,d,x1,x2:real;
begin
write('shag H='); readln(h);
write('B='); readln(b);
write('C='); readln(c);
t1:=0;
t2:=2.1;
 while t1<=t2 do
  begin
   t1:=t1+h;
   if t1>b then a:=t1;
   if t1=b then a:=10;
   if t1<b then a:=3*t1;
   d:=exp(ln(b)*2)-4*a*c;
   if d>=0 then
    begin
     x1:=(-b+exp(ln(d)*(1/2)))/(2*a);
     x2:=(-b-exp(ln(d)*(1/2)))/(2*a);
     write('X1=',x1); writeln(' X2=',x2);
    end
   else
   writeln('NET KORHEI');
 end;
end.

[Скандербег]

И какие же ошибки "выпрыгивают"? Или это секретная информация?
Если в первой задаче переменная y при входе в программу инициализируется паскалем в 0, то условие входа в цикл (while y < 0 do ...) никогда не выполняется. Какая тут может ошибка "выпригивать"? Программа благополучно заканчивается без вычислений.
Во второй задаче "Invalid floating point operation" обязательно будет, если значение переменной b отрицательное. Если положительное, то также прога заканчивается нормально с выдачей сообщения "NET KORNEI".
Вопрос в чем?

[Stilet]

выпрыгивает ошибка

Ну и пусть выпрыгивает. Не мешает же.

[hitman12]

в обеих задачах выходит ошибка: Invalid floating point operation в первой задаче она выпрыгивает на уровне U:=a+exp(ln(b)*2)+s со второй спасибо за помощь

[ОДИНОЧЕСТВО В СЕТИ]

а вы данные как вводите с . или с , надо с .

[hitman12]

все данные ввожу с точкой во второй задаче коэфиценты у меня такие вот A=11.2 B=-0.13 D=0.001 S=244.1 H=0.5 и выходит ошибка на уровне U:=a+exp(ln(b)*2)+s цикл в задаче заменил с while на until

[Скандербег]

Не знаю как у вас, но по первой задаче никаких вычислений не производится, поэтому у меня ошибок вообще нет.
По второй странновато получается. перед вычислением выражения d:=exp(ln(b)*2)-4*a*c; нет проверки на отрицательность аргумента b, хотя именно отрицательное значение и дает ошибку. Здесь вообще то надо упростить выражение.
Для чего возводить в квадрат таким странным способом (который, к тому же ошибку дает). Надо просто умножить параметр сам на себя - и все дела:
d:=b*b-4*a*c; Тогда и на отрицательное значение b можно проверку не делать.
Разве в отладке сложно посмотреть что происходит?

[hitman12]

во второй все исправил проблема только с первой

[Скандербег]

Опять таимся. Проблема то в чем? Я только одну пока увидел (два раза уже говорил про нее).

[hitman12]

проблема в том что я не знаю как сделать рабочей программу 1 с начальными данными A=11.2 B=-0.13 D=0.001 S=244.1 H=0.5 как исправить ошибку Invalid floating point operation что бы она наконец стала работать?