Программа
{ Цикл while }
VAR X:real; { Переменная X }
PowerX:real; { Степень:[(-1)^i*X^(i-1)] }
Factorial:real; { Факториал от (i+1) }
Mult:real; { Произведение }
i:integer; { Счетчик цикла }
BEGIN
Write('Введите X '); { Вывод приглашения }
ReadLn(X); { Ввод X }
i:=1; { Инициализация счетчика }
PowerX:=-1; { Инициализация степени }
Factorial:=2; { Инициализация факториала }
Mult:=1; { Инициализация произведения }
while i<=10 do
Begin
Mult:=Mult*PowerX/Factorial; { Набор произведения }
PowerX:=-PowerX*X; { Набор степени }
i:=i+1; { Переопределение счетчика }
Factorial:=Factorial*(i+1); { Набор факториала }
end;
WriteLn('P=',Mult) { Вывод результата }
END.
Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию