Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ помогите найти хотя бы похожие задачи на сумму рядов.

Автор: inomarka 5.12.2006 1:43

я искала у вас в поисковике и в faq, но там не было ничего подходящего. были задачи на сумму рядов, но другого рода. плиз, дайте ссылку на ПОХОЖУЮ задачу или помогите решить эту!

получить s=2+4+8+... суммировать до тех пор, пока сумма не превысит 10000. вывести на экран значение суммы, последнего слагаемого и номер последнего слагаемого.
ну пожалуйста, ПОМОГИТЕ!!!! !mol1.gif

Автор: klem4 5.12.2006 2:02

var
s, t, count: Integer;

begin
s := 0;
t := 2;

repeat
s := s + t;
t := t * 2;
count := count + 1;
until s > 10000;

writeln('s = ', s, ' last = ', t div 2 , ' count = ', count);
end.

Автор: мисс_граффити 5.12.2006 2:09

решение "в лоб". зато работает.
при желании можно красивее.

program inomarka;
var s,i,kol:integer;
begin
i:=1;
s:=0;
kol:=0;
while s<10000 do
begin
i:=i shl 1;
inc(s,i);
inc(kol);
end;
writeln(s);
writeln(i);
writeln(kol);
readln;
end.


опять опоздала.

Автор: klem4 5.12.2006 2:44

Экхм я тут пораскинул немножко smile.gif)

  repeat
s := s + s + 2;
count := count + 1;
until s > 10000;

writeln('s = ', s, ' last = ', s div 2 + 1 , ' count = ', count);


Осталось только с count-ом побороться smile.gif

Автор: volvo 5.12.2006 2:59

А чего с ним бороться? Геометрическая прогрессия smile.gif

writeln('s = ', s, ' last = ', s div 2 + 1 , ' count = ', trunc(ln(s div 2 + 1)/ln(2)) );