Составить программу на Turbo Pascal: вычислить приблизительное значение числа п , используя представление: п/8= 1/1*3+1/5*7+1/9*11 + ...;

1

Ответы и объяснения

2013-06-22T00:41:34+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.


Program funduk46;
uses crt;
const
  eps=0.00001;
var
  t,sum:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет приблизительное значение числа п,');
  writeln('используя представление: п/8=1/1*3+1/5*7+1/9*11+...');
  writeln();
  writeln('Вычисление прекратится, когда очередноe слагаемоe станет меньше 0,00001');
  writeln();
  sum:=0;
  i:=1;
  t:=1;
  while t>=eps do
    begin
      t:=1/((i)*(i+2));
      sum:=sum+t;
      i:=i+4;
    end;
  sum:=sum*8;
  writeln('Полученный результат: ',sum:14:12);
  writeln('             Число п: ',pi:14:12);
  writeln('Приближение к п равно ',abs(sum-pi):14:12);
end.