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

Alexxxxxxx · 23.10.2011, 01:30

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

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

Замечание:

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

Vladimir_S · 23.10.2011, 08:53

Цитата:

Сообщение от Alexxxxxxx

Составить программу вычисления выражения для заданных натурального числа 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.

23.10.2011, 01:30
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Пока участники форума думают над вашей проблемой, обратите внимание на это Помощь в Паскале Требуется помощь в Паскале

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070