Помощь в Паскале

[Alexxxxxxx]

Помощь в Паскале

Помогите решить пример через цикл For , в Паскале , плз !!! Вот пример

Задание мое звучит так : Составить программу вычисления выражения для заданных натурального числа n и действительного числа x

[mod2]Использование сторонних фотохостингов, не говоря уже о файлообменниках, у нас КАТЕГОРИЧЕСКИ не приветствуется. Вся необходимая информация по размещению рисунков находится здесь:
http://www.tehnari.ru/f8/t32642/
Будьте любезны впредь действовать в соответствии.
Модератор.[/mod2]

 

[Vladimir_S]

Составить программу вычисления выражения для заданных натурального числа n и действительного числа x

Без проблем:

VAR
 P:Extended;
 x:Real;
 k,n:Word;

Function X2np(X:Real; n:Word):Real;
Var i:WORD;
    Y:Extended;
BEGIN
  If n=0 then X2np:=1 else
  IF n=1 then X2np:=X else
  begin
    Y:=X;
    for i:=2 TO n DO Y:=Y*X;
    X2np:=Y;
  end;
END;

Function Nfact(n:Word):Extended;
VAR
  i:Word;
  fact:Extended;
BEGIN
  If n=0 then fact:=1 else
   begin
    fact:=1;
    for i:=1 to n do
    fact:=fact*i;
   end;
  Nfact:=fact;
END;

BEGIN
 Write('x= ');
 Readln(x);
 Write('n= ');
 Readln(n);
 P:=1;
 For k:=1 to n do
  P:=P*(X2np(1-x,k+1)+1)/sqr(Nfact(k-1)+1);
 Writeln('P= ',P);
 Readln;
END.