Вычислить сумму ряда

@dimasik2 · Регистрация: 20.12.2012

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

Всем привет, ребята помогите пожалуйста решить уравнение такое в паскаль, не охото чтобы выгнали(.

@CodeR · 20.12.2012, 13:59

Pascal

Var i,pr,e,a,s:real;
Begin
    write('Введите точность: ');readln(e);
    i:=0;pr:=1;
    Repeat
     i:=i+1;
     pr:=pr*2;
     a:=i/pr;
     s:=s+a;
    Until a<e;
    writeln('S = ',s:0:4);
    readln;
End.

@dimasik2 · 20.12.2012, 19:22 **[ТС]**

Спасибо большое! просто выручили от души!!!

Комментарий модератора

Правило форума 5.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@dimasik2 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 3
		1
	Вычислить сумму ряда 20.12.2012, 13:49. Показов 1061. Ответов 2 Метки нет (Все метки) Всем привет, ребята помогите пожалуйста решить уравнение такое в паскаль, не охото чтобы выгнали(. Миниатюры 0

	20.12.2012, 19:22

Вычислить сумму ряда

Решение