Вычисление суммы членов бесконечного ряда - Turbo Pascal

  1. вычислить сумму членов рядом при заданном значении eps. определить число членов ряда, использованых для нахождения суммы. pi=S=4(1-1/3+1/5-1/7+1/9-...+(-1)^(n+1)*1/(2n-1)+...) eps=0.0001 [a,b]=-


textual

Код:

program pi;
{вычислить сумму членов рядом при заданном значении eps. определить число членов ряда, использованых для 
нахождения суммы.
pi=S=4(1-1/3+1/5-1/7+1/9-...+(-1)^(n+1)*1/(2n-1)+...)
eps=0.0001}
uses
  crt;
var
  eps, s : real;
  i, j, k : longint;
begin
  clrscr;
  write('eps = ');
  readln(eps);
  j := 1;
  k := 1;
  i := 0;
  s := 0;
  while abs(j/k)>=eps do
   begin
    inc(i);
    s := s + j/k;
    j := j * (-1);
    k := k + 2;
   end;   
  s := s * 4; 
  writeln('Число членов ряда : ',i,' pi = s = ',s:0:9); 
  readln;
end.


Похожие ответы
  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. 1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

  1. 1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

  1. В прямоугольной матрице размером М*К, , имеющей имя ММ содержаться целые числа. М- число строк, К- число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму положительных элементов в каждом столбце. Определить столбец с максимальным значением этой суммы и вывести его номер на экран. Как сделать? Сижу туплю капец!

  1. Как найти суму элементов в тех столбцах в которых нет отрицательных чисел;минимум среди сумм модулей элементов диагоналей параллельных к побочной диагонали матрицы.Матрица квадратная.

  1. Написать программу для вычисления суммы натуральных чисел отрезка [a,b]. и Написать программу для вычисления выражения по заданной формуле: y=cos(n)+cos(n-1)+...+cos(2)+cos(1), n- вводится с клавиатуры. Если можно, то без reapet

  1. Вычислить площадь поверхности и объем правильной пирамиды, в основании которой квадрат со стороной a и высотой h.

  1. составить программу вычисления суммы чисел от 15 до 195

  1. Вычислить значение суммы членов бесконечного ряда с заданной точностью.Определить число членов ряда, вошедших в сумму.

  1. Помогите написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. Заранее спасибо!