Задача про циклы. Опции

[Tark]

Здрасти. Тут вот такая задача стоит:

Условие:
Введите натуральные числа n и вычислите все значения функции
y=(1+1/1^2)*(1+1/2^2)*...*(1+1/n^2) для значений n, изменяющихся
от 1 до 5 с шагом 1. Решить циклами, 3мя разными способами, используя
операторы for, while, repeat.

Вот. И вроде бы я умею циклы составлять и всё такое, но я не пойму как
написать это произведение, т.е. Я составил цикл

Код

for <переменная>:=1 to 5 do...

но как написать произведение от 1 до 5 я не знаю. И ещё как я не пойму как это
задание делать при помощи repeat. Поможете?

Сообщение отредактировано: Tark - 15.03.2010 10:56

[Lapp]

М

Tark, правила - для всех, в том числе и для новичков. См. Правила Форума (ссылка вверху) п.4 и правила раздела Задачи (п.1 на этой странице повыше). Исправь название, или тема будет удалена.

как написать произведение от 1 до 5 я не знаю

var
  p: double;
  i: integer;
......
  p:= 1.0;
  for i:=1 to n do p:= p*(1.0+1.0/(i*i));

ещё как я не пойму как это
задание делать при помощи repeat

var
  p: double;
  i: integer;
......
  p:= 1.0;
  i:= 0;
  repeat
    Inc(i);
    p:= p*(1.0+1.0/(i*i));
  until p=n;