VPF::Вычисление ряда в цикле - Форум программистов

zetxi815eb

Дата 23.2.2007, 22:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 17.1.2007

Репутация: нет
Всего: нет

Помогите решить данный ряд sqrt(1+2*sqrt(2+3*sqrt(3+...+n*sqrt(n)))) Долго бьюсь и не могу вывести формулу.

Код


var s,temp:real;
    n:integer;
    tin,tout:text;
begin
    assign (tin,'input.txt');
    reset (tin);
    read (tin,n);
    close (tin);
    s:=0;
    for n:=n downto 1 do begin
       s:=
{??????????????}
    end;
    assign (tout,'output.txt');
    rewrite (tout);
    write (tout,s:0:8);
    close (tout);
end.

Rodman

Дата 23.2.2007, 23:26 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

Код


var s,temp:real;
    n:integer;
    tin,tout:text;
begin
    assign (tin,'input.txt');
    reset (tin);
    read (tin,n);
    close (tin);
    s:=0;
    for n:=n downto 1 do begin
       s:=s+(n*sin(n)+(n-1));
{вроде так, но наверно надо еще в градусы перевести?!}
    end;
    assign (tout,'output.txt');
    rewrite (tout);
    write (tout,s:0:8);
    close (tout);
end.

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

volvo877

Дата 24.2.2007, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(zetxi815eb @ 23.2.2007, 21:25

)

Помогите решить данный ряд sqrt(1+2*sqrt(2+3*sqrt(3+...+n*sqrt(n))))

Рекурсия, однако:

Код

var
  n: integer;
  s: real;
  tin, tout: text;

function func(level: integer): real;
begin

  if level > n then func := 0
  else func := level + (level + 1) * sqrt(func(level + 1));

end;


begin
  assign (tin,'input.txt'); reset (tin);
  read (tin,n);
  close (tin);

  s := func(0);

  assign (tout,'output.txt'); rewrite (tout);
  write (tout,s:0:8);
  close (tout);
end.

Crot

Дата 26.2.2007, 04:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 31.1.2004

Репутация: нет
Всего: 3

Одной строкой, без рекурсии и лишних нагромождений:

Код


var s,temp:real;
    n:integer;
    tin,tout:text;
begin
    assign (tin,'input.txt');
    reset (tin);
    read (tin,n);
    close (tin);
    s:=0;
    for n:=n downto 1 do begin
       s:= n*sqrt(n+s);  { <--- вот твоя формула }
{??????????????}
    end;
    assign (tout,'output.txt');
    rewrite (tout);
    write (tout,s:0:8);
    close (tout);
end.

volvo877

Дата 26.2.2007, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Crot, а ничего, что оно:
1) изменяет параметр цикла внутри цикла, что недопустимо
2) не работает (выдает неверный результат, проверь при N =2, например, с чего бы это результат = 1?)

??

Это сообщение отредактировал(а) volvo877 - 26.2.2007, 13:28

Crot

Дата 27.2.2007, 04:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 31.1.2004

Репутация: нет
Всего: 3

Цитата

Crot, а ничего, что оно:
1) изменяет параметр цикла внутри цикла, что недопустимо
...

Насколько я понимаю, "внутрь цикла" - это тело цикла.
Так вот, если посмотреть повнимательней, видно, что в теле цикла изменяется только значение переменной s.
А то, что в заголовке цикла выполняется первичное присваивание n:=n, так это ничего страшного. Всё равно n в дальнейшем уже не используется.

Цитата

Crot, а ничего, что оно:
...
2) не работает (выдает неверный результат, проверь при N =2, например, с чего бы это результат = 1?)

Я не знаю как проверял ты, но у меня всё работает.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »