Арифметическая прогрессия в Паскале

[Serge_Bliznykov]

Naive

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

m-овый член последовательности разве тут считается?

угу. каждый раз в цикле A изменяется: A := A + h;

А вот у Вас есть БОЛЬШАЯ ошибка!
Это же АРИФМЕТИЧЕСКАЯ прогрессия!
Любой член последовательности можно посчитать по формуле.
но эта формула An = A1+(n-1)*H
Но не умножение, как у Вас!
возьмите шаг прогрессии 1
и начальное A, например, 100
и посчитайте произведение первых трёх членов прогрессии..
ручками и вашим кодом..
подсказка, правильный ответ: 1030200

и вторая ошибка
у Вас посчитается не m,
а m+1 членов последовательности

можно и так, как Вы хотите:

   Pro := 1;
   for i:=1 to m do begin
     Pro := Pro * (A + (i-1)*h);
   end;

p.s. вместо integer в качестве типа данных лучше использовать longint

[Naive]

И правда...
Неудержимая мания сделать этот мир лучше затмила мое детское сознание. Я захлебнулся в строчках кода, когда пытался помочь всем, не осознавая, что это не возможно.
Вывод: не пишите код "на скорую руку".

[NSvirus]

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

И правда...
Неудержимая мания сделать этот мир лучше затмила мое детское сознание. Я захлебнулся в строчках кода, когда пытался помочь всем, не осознавая, что это не возможно.
Вывод: не пишите код "на скорую руку".

Да ну, это все магнитные бури виноваты..