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

[chapotai]

1.
Вычислить произведение m членов арифметической прогрессии, если известны значения первого члена a1 и разность арифметической прогрессии h.

[WitaliG]

Я только учусь, но у меня получился вот такой код, который, кстати, работает:
const h=2;
var
a1,m,i,pro :integer;
begin
readln(a1,m);
pro :=1;
for i :=1 to m do
pro :=pro*i;
writeln(pro); readln
end.
С уважением Виталий.

[chapotai]

Спасибо,щас попробую.

[NSvirus]

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

Я только учусь, но у меня получился вот такой код, который, кстати, работает:
const h=2;
var
a1,m,i,pro :integer;
begin
readln(a1,m);
pro :=1;
for i :=1 to m do
pro :=pro*i;
writeln(pro); readln
end.
С уважением Виталий.

Вы прочитали значение "а1", а где вы его используете?
Вы задали шаг "h", а где вы его используете?

[chapotai]

а как правильно тогда написать?

[WitaliG]

Вы правы. Напишите, пожалуйста, правильный код: и chapotai надо и мне для знания.

[WitaliG]

Тогда может быть так правильно:
const h=2;
var
a1,m,i,pro :integer;
begin
readln(a1,m);
pro :=1;
a1 :=1;
for i :=1 to m do
pro :=pro*i;
writeln(pro); readln
end.

[Serge_Bliznykov]

нет. правильно примерно так:

var A, h, i, m, Pro : integer;
begin 
   writeln('Введите первый член прогрессии (A1): ');
   Readln(A);
   writeln('Введите шаг прогрессии (h): ');
   Readln(h);
   writeln('Введите количество перемножаемых членов (m): ');
   Readln(m);

   {собственно вычисление}
   Pro := 1;
   for i:=1 to m do begin
     Pro := Pro * A;
     A := A + h;
   end;
  
  WriteLn('Произведение равно: ',Pro);
  Readln;
end;

WitaliG, если не хотите получать штрафы,
то не нарушайте правила:
код должен оформляться специальными тэгами [СODE] ...[/CODE], это кнопочка с решёточкой (#)!

[WitaliG]

Спасибо Serge_Bliznykov за науку.
А насчет кода исправлюсь, я не знал как это делается.

[Naive]

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

Pro := A;
   for i:=1 to m do begin
     Pro := Pro * A*i*h;
   end;