Определить и вывести на экран последовательную сумму членов ряда

@kraaasoootka · Регистрация: 18.01.2012

Author24 — интернет-сервис помощи студентам

ПОМОГИ ПОЖАЛУЙСТА ЧЕМ СМОЖИТЕ....((
определить и вывести на экран последовательную сумму членов ряда при которой модуль разности между текущим и предыдущим членами ряда остается меньше заданного числа Е. Кроме суммы вывести на экран значение последнего члена ряда и его номер.

1*2/4 + 1*2*3/8 + 1*2*3*4/16 + ....

magirus · 18.01.2012, 22:24

Сообщение от kraaasoootka

ПОМОГИ ПОЖАЛУЙСТА ЧЕМ СМОЖИТЕ....((

могу отправить почитать правила форума, пока будете ожидать решения.
могу порекомендовать воспользоваться поиском.

@Andyc · 18.01.2012, 23:23

Pascal

uses crt;
var
  e, s, y, yk: Real;
  i: Integer;
begin
  ClrScr;
  Write('Введите e = ');
  Readln(e);
  i:=2;
  yk:=2/4;
  s:=yk;
  repeat
    y:=yk;
    Inc(i);
    yk:=y*i/2;
    s:=s+yk;
  until Abs(yk-y)>=e;
  Writeln('Сумма ряда s =', s:12:5);
  Writeln('Последний член ряда yk =', yk:12:5 );
  Writeln('Номер последнего члена k =', i-1);
  Readkey;
end.

@kraaasoootka 3 / 3 / 0 Регистрация: 18.01.2012 Сообщений: 67
		1
	Определить и вывести на экран последовательную сумму членов ряда 18.01.2012, 22:23. Показов 1295. Ответов 2 Метки нет (Все метки) ПОМОГИ ПОЖАЛУЙСТА ЧЕМ СМОЖИТЕ....(( определить и вывести на экран последовательную сумму членов ряда при которой модуль разности между текущим и предыдущим членами ряда остается меньше заданного числа Е. Кроме суммы вывести на экран значение последнего члена ряда и его номер. 12/4 + 123/8 + 1234/16 + .... 0

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	18.01.2012, 22:24	2
	Сообщение от kraaasoootka ПОМОГИ ПОЖАЛУЙСТА ЧЕМ СМОЖИТЕ....(( могу отправить почитать правила форума, пока будете ожидать решения. могу порекомендовать воспользоваться поиском. 0

	18.01.2012, 23:23

Опции темы

Определить и вывести на экран последовательную сумму членов ряда

Решение