программирование алгоритмов циклической структуры

[arai uzbekova]

даны действительное число а,натурально число n,Вычислить:
P=a(a+1)x...x(a+n-1)

[BDA]

p := a;
for i := 1 to n - 1 do
  p := p * (a + i);

[arai uzbekova]

а можете полностью программу написать?а то я только начинаю учить..пожаалуйста

[BDA]

Нет
По-моему, цикл написать может быть сложно, если только начинаешь учиться, но объявить 4 переменные, запросить 2 переменные от пользователя, вставить кусок из поста выше и вывести 1 переменную на экран должно быть легко, т.к. эти знания дают на первом же уроке/лекции по языку программирования.

[arai uzbekova]

хорошо)..но у нас не так((

[BDA]

Даже если Вам плохо объяснили, всегда можно прочесть необходимое в интернете.
Вот статья - http://comp-science.hut.ru/Progr/Begin.html. По-моему, после ее прочтения Вы уже сможете написать эту программу. Если что-то не получится, то выкладывайте получившийся (извините за тавтологию) код сюда, и Вам помогут исправить ошибки и неточности.

[Stilet]

у нас не так

А как? Показывай что уже проходили.

[arai uzbekova]

var n,a,i,p:integer;
begin
writeln('vvedite deistv.chislo');
readln(a);
p:=a;
for i:=1 to n-1 do begin
writeln('vv.naturalnoe chislo');
readln(n);
p:=p*(a+i);
end;
writeln('summa=',p);
readln(p);
readln;
end.

(при запуске выходит действ число..,и тут сразу сумма=..)

вот я набрала число 5,оно выводит summa=5

[Mad_Cat]

ну а n кто вводить будет?

var n,i:integer;a,p:real;
begin
writeln('vvedite deistv.chislo');
readln(a);
p:=a;
writeln('vv.naturalnoe chislo');
readln(n);
for i:=1 to n-1 do begin
p:=p*(a+i);
end;
writeln('proizvedenie=',p);
readln(p);
readln;
end.

[BDA]

Ну вот, почти все получилось.
Чуть исправил:

var
  a, p: real;
  n, i: integer;
begin
  writeln('vvedite deistv.chislo');
  readln(a);
  p := a;
  writeln('vv.naturalnoe chislo');
  readln(n);
  for i := 1 to n - 1 do
    p := p * (a + i);
  writeln('f = ', p:0:0);
  readln;
end.

ПС Опоздал)