VPF::Написание рекурсивной функции

Kosya4ok

Дата 10.12.2007, 00:02 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем добрый вечер!

Надо написать вычисление функции вида user posted image

для каждой fi

Вот её реализация

Код


function fi(p: integer): real;
var i : integer;
    sum : real;
begin
     sum := sqrt(3 * p);
     for i := p downto 1 do
         if (i = 1) then
             fi := sum
         else
             sum := sqrt(sum + 3 * (i - 1));
end;

А можно ли её переписатьчерез рекурсию? smile

volvo877

Дата 10.12.2007, 11:20 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Kosya4ok @ 9.12.2007, 23:02

)

А можно ли её переписать через рекурсию?

Вот так рекурсивно:

Код


function fi(i, n: integer): real;
begin
  if i > n then fi := 0
  else fi := sqrt(3 * i + fi(i + 1, n));
end;

begin
  writeln(fi(1, 4));
end.

Это сообщение отредактировал(а) volvo877 - 10.12.2007, 11:21

Kosya4ok

Дата 10.12.2007, 13:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

volvo877 спасибо за ответ!
Читаю код и думаю и как до такого простого я сам не смог додуматься??? smile

Потестил твоё код всё работает как надо!

Вопрос не по теме:
Мне интересно, а что ты имеешь с того что вот помогаешь народу у которого траблы появляются в проге?
Тебе за это платят деньги?Или ты получаешь от этого моральное удовольствие или ещё что то? smile

Ведь что бы следить за форумом и отвечать на темы надо иметь немало времени...

Kosya4ok

Дата 10.12.2007, 14:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

Кста. volvo877 а ты не знаешь как можно настроить форум так что бы как то видеть какие тебе со всего форума приходят ответы?

Snowy

Дата 10.12.2007, 14:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

M
Snowy

Для личных сообщений существует PM.
В тематических разделах только обсуждение вопросов топика.

Kosya4ok

Дата 10.12.2007, 14:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

Ба! Какой строгий модератор... smile

А вы не могли бы помось настроить форум так что бы как то видеть какие тебе со всего форума приходят ответы?

Snowy

Дата 10.12.2007, 15:42 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Вверху панель навигации.
Просто нажми на слово "Мои" в
(Мои) Новые сообщения

Kosya4ok

Дата 10.12.2007, 16:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

Так там показываеются только последние сообщения. А мне надо чтобы все мои темы показывались...

volvo877

Дата 10.12.2007, 16:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

Значит, добавь темы в Избранное (первое сообщение темы - самая правая кнопка: "Опции темы" -> "Добавить в избранное") и проверяй, заходя в Избранное (рядом с Правилами есть кнопка)... Если новые ответы есть - тебе будет это показано...

А вообще - это уже давно оффтоп...

Это сообщение отредактировал(а) volvo877 - 10.12.2007, 16:23

Kosya4ok

Дата 10.12.2007, 16:43 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо за объяснения. Тема закрыта.

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