тип for

[VadimPascal]

Никак не разберусь в типе for , я цикл то могу написать а вот формулу не въеду, помогите пж.



нада вычеслить P

[Stilet]

я цикл то могу написать

Отлично. Напиши )

[VadimPascal]

формулу не могу написать, не знаю как, она просто записывается немного не так как обычные функции. Я прошу помочь написать формулы на языке Pascal.

[Stilet]

Ты же сказал что можешь написать цикл? Напиши. Без формул. Напиши как пробовал.

[VadimPascal]

Program root;
uses crt;
var i: integer;
      s,d,n,p,a : real;
      BEGIN
for i:= 1 to n do
s:=0;
d:=1;
begin 
Write('a',a);
ReadLn(a);
p:=d*(s+a+n-1);
end;
Writeln('p = ',p);
END.

[Stilet]

Ну, красава )
Чего стеснялся то? Неважно что не правильно - важно что пытался.
Та-а-а-кс... формула...

Program root;
uses crt;
var i,n: integer;
      a : real;
      BEGIN
Write('a:');ReadLn(a);
Write('n:');ReadLn(n);
for i:= 1 to n do  a:=a*(a+i-1);
Writeln('p = ',a);
readln;
END.

Проверяй.

[VadimPascal]

а как вторую формулу?
как там степень делать?

[Stilet]

А вторая так:

s:=a*(i+k*exp(ln(i)*a));

И k добавишь типа integer. В цикле ее роль выглядит так:

k:=-k;

Проинициализируй ее перед циклом единицей.

[VadimPascal]

Спасибо, очень выручил. +1 к авторитету )