Вычислить по формуле (найти произведение элементов ряда)

[Катарина5]

Это на цикл for?

[whatever]

Он самый:

D:=1;
for m:=1 to 8 do
  D:=D*(((m*m*m-1)*exp(m*ln(x)))/(exp(m*m)+1));

Кстати, условие то корректно? Там всегда 0 получаться будет/

[Катарина5]

А можно подробнее? я почему-то думала что это так

D:=x*m*((m*m*m-1)/(exp*(m*m)+1))

[BDA]

Катарина5, во-первых, большая П это произведение, поэтому, как минимум, D:=D*(...). Во-вторых, x^m (x в степени m) равен, как указал выше whatever, exp(m*ln(x)), а не x*m (m умножить на x).

[Катарина5]

хм... теперь я запуталась... могли бы Вы написать как тогда целая программка выглядит? А то я не понимаю как она тогда работает...

[BDA]

uses
  crt;

var
  m: integer;
  D, x: real;

begin
  readln(x);
  D := 1;
  for m := 1 to 8 do
    D := D * (((m * m * m - 1) * exp(m * ln(x))) / (exp(m * m) + 1));
  writeln(D:0:4);
  readln;
end.

Но, как уже отметил whatever, ответом всегда будет 0.

[s-andriano]

Тогда Вы написали неправильную программу.
Правильная программа, всегда выдающая 0 должна быть не сложнее:

begin
  writeln('0');
end.

(это не шутка)

[BDA]

Ох, s-andriano, вы настолько серьезны
Если это школьное задание, то оно заключается в программировании формулы, как бы она ни работала. То, что ответом всегда будет 0, является проблемой задающего задание. Никто не заставляет проводить анализ формулы. Хотя никто не мешает блеснуть знаниями на уроке и сказать: "вот такая программа получилась, но у вас вот тут ошибочка, и будет всегда 0".

[s-andriano]

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

Никто не заставляет проводить анализ формулы.

Отнюдь.
Анализ задания - один из важнейших (притом, обязательных) этапов создания программы.

[BDA]

Сообщение от s-andriano

Анализ задания - один из важнейших (притом, обязательных) этапов создания программы.

Соглашусь с вами, если обсуждается написание серьезной программы. Но школьное задание обычно выглядит так: "Вот формула. Сделай программу, которая считает по данной формуле". Конечно же оптимальность решения - важная составляющая, но в данном случае преподаватель захочет увидеть подсчет по формуле, а не просто "0". Это как написать контрольную, написав только ответ и мотивируя тем, что все действия сделал в голове (проанализировал задание).

ПС Преподаватель может "прикопаться" в любом случае:
Провел подсчет по формуле - "почему не посмотрели, что всегда 0?"
Вывел 0 - "а если m поменяем, то что произойдет с вашей программой?"