Программа
CONST Eps=0.0001; { Точность вычислений }
VAR F,x:real; { Значение функции и аргумент }
u:real; { Слагаемое ряда }
i:integer; { Счетчик цикла }
BEGIN
Write('Введите x '); { Вывод приглашения }
ReadLn(x); { Ввод x }
u:=1; { Начальное определение слагаемого }
F:=u; { Начальное определение функции }
i:=0; { Начальное определение счетчика }
while Abs(u)>=Eps do { Цикл набора суммы ряда }
begin
i:=i+1; { Набор счетчика цикла }
u:=-u*x*x/((2*i-1)*2*i); { Пересчет слагаемого }
F:=F+u; { Набор значения функции }
end;
WriteLn(' F(',x:5:2,')=',F,' i=',i); { Вывод значения функции и счетчика }
WriteLn('cos(',x:5:2,')=',cos(x)); { Вывод контрольного значения }
END.
Бесплатные примеры программ
Примеры написанных программ
Помощь студентам по программированию