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

+ 0 -

Voronczova

21 янв. 2016 г., 19:30:09 (8 лет назад)

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.