Паскаль выдаёт ошибку: Вещественное деление на 0! в 7 строке

Question

Паскаль выдаёт ошибку: Вещественное деление на 0! в 7 строке

ВЛАД луценко Знаток (375), на голосовании 9 лет назад

Program Z_1;

Var x,r,a,b,h,y:Real;

Begin

x:=a;

While x<=b do

Begin

r:=EXP(x)*EXP(y)+EXP(-x)*EXP(-y)/x*y;

Writeln ('x','r=');

x:=x+h;

END;

END.

Answer 1

Сначала ты присваеваешь X значение A (которое не объявлено) , а потом умножаешь его на Y (который тоже не объявлен) . В результате и получается деление на ноль. Перед While переменным X и Y должны быть присвоены значения, отличные от нуля. А вообще - паскаль тошнятина, учи C++ или, если уж совсем все плохо, Basic.

Answer 2

Переменной r присвоено значение. Оно нигде далее не используется..