Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Программирование

Программирование - вопрос №503000

Вычислить последнюю сумму членов ряда при которой модуль разности между текущим и предыдущим членами ряда остается меньше 1.вывести на экран значение последнего слагаемого и его номер 1+1/2+1*2,4+1*2*3/8

Павел
23.12.12
Учеба и наука / Информатика
1 ответ

Ответы

Валентина

program pr;

var a1,a2,s:real;

pf,p:longint;

i:integer; 

begin

a1:=1;

a2:=1/2;

pf:=1;

i:=2; 

p:=i; 

s:=a1; 

while abs(a2-a1)<1 do

begin

 s:=s+a2; 

  a1:=a2;

  pf:=pf*i;

  p:=p*2;

  a2:=pf/p; 

  i:=i+1;

end; 

writeln('s=',s:8:3); 

writeln('a=',a1:8:3);

writeln('nom=',i-1);

readln

end. 

Буду благодарна, если отметите 
24.12.12
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее