Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 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.

Объяснение кода листинга программы

  1. uses crt; — данная строка подключает библиотеку для работы с консолью.
  2. var e,t,s:real; — объявление переменных. Здесь e — это погрешность, t — это значение функции в текущей итерации, s — это сумма ряда.
  3. n:integer; — объявление переменной для хранения номера итерации.
  4. clrscr; — очистка экрана перед выводом результатов.
  5. e:=0.001; — присваивание значения погрешности.
  6. n:=1; — присваивание начального значения номера итерации.
  7. t:=-1/2; — присваивание начального значения функции.
  8. s:=t; — присваивание начального значения суммы ряда.
  9. while abs(t)>e do — цикл выполняется пока абсолютное значение t больше погрешности.
  10. begin — начало блока процедур цикла.
  11. n:=n+1; — увеличение номера итерации.
  12. t:=-t/(2n-1)/(2n); — вычисление нового значения функции.
  13. s:=s+t; — прибавление нового значения функции к сумме ряда.
  14. end; — конец блока процедур цикла.
  15. s:=s+1; — увеличение значения суммы ряда на единицу (для получения значения функции в конечной точке).
  16. writeln('S=',s:0:4); — вывод значения суммы ряда с точностью до 4 знаков после запятой.
  17. write('cos(1)=',cos(1):0:4); — вывод значения функции cos(1) с точностью до 4 знаков после запятой.
  18. readln; — чтение строки с клавиатуры (для завершения работы программы).
  19. end. — конец программы.
  20. uses crt; — данная строка подключает библиотеку для работы с консолью.

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы