Вычислить сумму членов ряда

[pubertat]

Вычислить сумму 120 членов ряда, n-ый член которого определяется формулой а =x^(2n+1)/(2n+1)! Значение х вводится с клавиатуры. Решение реализовать двумя способами: в первом использовать оператор цикла for, а во втором организовать циклическое вычисление с помощью оператора if.

[newerow1989]

const n = 120;
var a, a0, x: real;
    i: integer;
begin
   Write('x = '); Readln(x);
   a:=x;
   a0:=a;
   for i:=1 to n do
   begin
      a0:=a0*x*x/(2*i*(2*i+1));
      a:=a+a0;
   end;
   Writeln(a:0:8);
   Readln;
end.

По поводу 2-го способа (организовать циклическое вычисление с помощью оператора if) я не могу сообразить. И причем тут if???

[digitalis]

Inc (i) ; 
if i < n then goto начало цикла.

Этот приём называется "чесать левой ногой правое ухо"