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

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

Форум «Всё о Паскале» _ Задачи _ Вычисление суммы членов последовательности

Автор: Kenzo 19.09.2009 22:14

Составить алгоритм и программу вычисления суммы таких членов последовательности аi=х/(1*2*3*...*i), i=1,2,..., значения которых больше 0,001. Вводимое значение 0<x<1. mega_chok.gif ................Я так понимаю, что последовательность должна продолжаться так: аi=х/1+х/1*2+х/1*2*3+х/1*2*3*4 и т.д

Я сегодня добрый, но в следующий раз называй тему так, чтобы с главной страницы было видно, о чем речь, а то "Описание темы" оттуда не видать, и получается, что тема названа не пойми как...

Автор: TarasBer 19.09.2009 23:22

А там точно икс, а не икс в степени и? А то он выходит лишний - его спокойно можно за скобку вынести.

Автор: Kenzo 19.09.2009 23:25

Просто 'х', а 'a'-итая (i)

Автор: TarasBer 19.09.2009 23:32

Хорошо, сумма до n или до бесконечности?

По вопросу. Сначала предъявите то, что уже попытались сделать.

Автор: sheka 20.09.2009 1:27

Цитата(TarasBer @ 19.09.2009 19:32) *

Хорошо, сумма до n или до бесконечности?

Если до бесконечности, то решается в одну формулу, без циклов и.т.д.
до "значения которых больше 0,001" TarasBer, читайте внимательно условие!"

Автор: Kenzo 2.10.2009 13:08

Все, программка получилась:

program F1;
uses crt;
var x,s,z,t: real;
k,i,n: integer;
begin
clrscr;
readln(x);
i:=1;
z:=1;
s:=0;
n:=0;
while x/z>0.0001 do
begin
inc(n);
t:=s;
s:=s+x/z;
i:=i+1;
z:=1;
for k:=1 to i do
z:=z*k;
end;
writeln(t:0:4);
writeln(n);
readln;
end.