Mail.RuПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискВсе проекты

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

Знаток (337), на голосовании 3 года назад
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.
Голосование за лучший ответ
Сначала ты присваеваешь X значение A (которое не объявлено) , а потом умножаешь его на Y (который тоже не объявлен) . В результате и получается деление на ноль. Перед While переменным X и Y должны быть присвоены значения, отличные от нуля. А вообще - паскаль тошнятина, учи C++ или, если уж совсем все плохо, Basic.
Переменной r присвоено значение. Оно нигде далее не используется..
Похожие вопросы
Также спрашивают