Цитата:
Сообщение от Pashka1991
Здравствуйте, помогите пожалуйста с программами на паскале, очень нужны =(:
3) Составить две программы на языке программирования высокого уровня(одну - не используя цикла, другую - используя соответствующий оператор цикла).
Найти сумму ряда:
http://www.tehnari.ru/imagehosting/2...bf6d494c57.jpg
|
А вот тут, извините опять же, но как обойтись БЕЗ цикла - в упор не вижу! Так что:
VAR
x, Sum:REAL;
N, i:INTEGER;
FUNCTION X2np(X:Extended; n:INTEGER):Extended;
Var i:INTEGER;
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:Integer):Extended;
VAR
i:Integer;
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);
Sum:=0;
FOR i:=1 TO N DO
Sum:=Sum+X2np(-1,i)*X2np(2*x,2*i)/Nfact(2*i);
Write('Sum = ',Sum);
ReadLn;
END.