Проверте пожалуйсто верна ли задача!

[Dialon]

Проверте пожалуйсто верна ли задача!
Составить блок-схему и программу для вычисления значения функции при заданных значениях аргумента. Ввод аргументов осуществить через Const.
Program F;
const x=-2,4;
var x,y: Real;
Begin
y:=(exp(3-x)+exp(x-3))/2+exp((1/4)*ln((x*x*x*x*x-5)/(pi+x)));
writeln (y);
End;
End.

[alex_fcsm]

Во-первых, 2.4
Во-вторых, x- const поэтому удаляйте ее из var
В-третьих, ругается на ln((x*x*x*x*x-5) - логарифм отрицательного числа???

[Dialon]

а может тогда вот так
y=(exp(3-x)+exp(x-3))/2+exp((1/4)*ln((exp(5*ln(x)-5)/(Pi+x)))

[alex_fcsm]

Сообщение от Dialon

а может тогда вот так
y=(exp(3-x)+exp(x-3))/2+exp((1/4)*ln((exp(5*ln(x)-5)/(Pi+x)))

ln(x) - область определения x>0, поэтому x под знаком логарифма должен быть в четной степени(если x=-2.4)


Выложите свою формулу

[Dialon]

вот она здесь

[alex_fcsm]

const x=-2.4;
var y: Real;
Begin
y:=(exp(3-x)+exp(x-3))/2+exp((1/4)*ln(abs(x*x*x*x*x-5)/(pi+x)));
writeln (y);
End.

Вы забыли про модуль(если все остальное правильно)

[puporev]

У тебя же в формуле корень 4й степени из МОДУЛЯ выражения, куда его девал?
y:=(exp(3-x)+exp(x-3))/2+exp((1/4)*ln(abs((x*x*x*x*x-5)/(pi+x))));

[puporev]

Кстати, на блок-схеме чего это в начале начало и в конце тоже начало?

[Dialon]

Огрооооомная Вам благодарность, а в блок схеме это я копировал да забыл поменять начало на конец