Составить программу вычисления всех членов ряда, не меньших погрешности

@Rikki_Irena · Регистрация: 18.10.2011

По заданной формуле члена ряда составить программу вычисления всех членов ряда, не меньших заданной погрешности Е=0.0001.

помогите пожалуйста ^^

@Puporev · 20.06.2012, 13:59

Pascal

uses crt;
var k:integer;
    y:real;
begin
clrscr;
k:=0;
y:=0.5;{нулевое значение}
repeat
 k:=k+1;
 y:=1/(3*k*k+k+2);{очередное}
 writeln(y:0:8);
 if k mod 22=0 then{после 22 задержка для просмотра}
  begin
   write('Нажмите Enter');
   readln
  end;
until 1/(3*sqr(k+1)+k+3)<0.0001;{если следующий меньше 0.0001, то конец}
readln
end.

@Rikki_Irena · 20.06.2012, 14:01 **[ТС]**

спасибо-спасибо Вам большое!

@Rikki_Irena 0 / 0 / 0 Регистрация: 18.10.2011 Сообщений: 102
		1
	Составить программу вычисления всех членов ряда, не меньших погрешности 20.06.2012, 12:44. Показов 1313. Ответов 2 Метки нет (Все метки) По заданной формуле члена ряда составить программу вычисления всех членов ряда, не меньших заданной погрешности Е=0.0001. помогите пожалуйста ^^ Миниатюры 0

@Rikki_Irena 0 / 0 / 0 Регистрация: 18.10.2011 Сообщений: 102
	20.06.2012, 14:01 [ТС]	3
	спасибо-спасибо Вам большое! 0

Опции темы

Составить программу вычисления всех членов ряда, не меньших погрешности

Решение