Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0.001 - Turbo Pascal (247650)
Формулировка задачи:
Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0.001. Значение аргумента выбрать самостоятельно.
Решение задачи: «Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0.001»
textual
Листинг программы
uses crt; var e,t,s:real; n:integer; begin clrscr; e:=0.001; n:=1; t:=-1/2; s:=t; while abs(t)>e do begin n:=n+1; t:=-t/(2*n-1)/(2*n); s:=s+t; end; s:=s+1; writeln('S=',s:0:4); write('cos(1)=',cos(1):0:4); readln end.
Объяснение кода листинга программы
- uses crt; — данная строка подключает библиотеку для работы с консолью.
- var e,t,s:real; — объявление переменных. Здесь e — это погрешность, t — это значение функции в текущей итерации, s — это сумма ряда.
- n:integer; — объявление переменной для хранения номера итерации.
- clrscr; — очистка экрана перед выводом результатов.
- e:=0.001; — присваивание значения погрешности.
- n:=1; — присваивание начального значения номера итерации.
- t:=-1/2; — присваивание начального значения функции.
- s:=t; — присваивание начального значения суммы ряда.
- while abs(t)>e do — цикл выполняется пока абсолютное значение t больше погрешности.
- begin — начало блока процедур цикла.
- n:=n+1; — увеличение номера итерации.
- t:=-t/(2n-1)/(2n); — вычисление нового значения функции.
- s:=s+t; — прибавление нового значения функции к сумме ряда.
- end; — конец блока процедур цикла.
- s:=s+1; — увеличение значения суммы ряда на единицу (для получения значения функции в конечной точке).
- writeln('S=',s:0:4); — вывод значения суммы ряда с точностью до 4 знаков после запятой.
- write('cos(1)=',cos(1):0:4); — вывод значения функции cos(1) с точностью до 4 знаков после запятой.
- readln; — чтение строки с клавиатуры (для завершения работы программы).
- end. — конец программы.
- uses crt; — данная строка подключает библиотеку для работы с консолью.