Пример

[wOOp]

Помогите пжл составить блок-схему по данной программе =)

var n, i, t: integer;
     x, s: real;

 function fact(m: integer): real;
 begin
  if m=0
   then fact:=1
   else fact:=fact(m-1)*m;
 end;

 function stepen(m: integer): real;
 begin
  if m=0
   then stepen:=1
   else stepen:=stepen(m-1)*x;
 end;

begin
 writeln('Введите x: ');
 read(x);
 writeln('Введите n (n>0): ');
 read(n);
 t:= 1;
 s:=0;
 for i:=0 to n do
  begin
   s:=s+t*stepen(2*i)/fact(2*i);
   t:= -t;
  end;
 writeln('Ответ: ', s);
end.

[wOOp]

Ну или хотябы описать алгоритм =)

[denisbrain]

кнопа добавить рейтинг

[wOOp]

во спасибо =)