IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Помогите Рекурсии!
nekkit
сообщение 9.09.2006 10:51
Сообщение #1





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


--------------------------------------------------------------------------------
Вот решить не могу! Надо по данному примеру вот этой программы сделать 2.
Пример:

Program Rekurs;
Var
  N : integer;
  F : Longint;
Function RecFact(N:integer) : LongInt;
Begin
  if N <= 1 
    then
      ReсFact := 1
    else
      ReсFact := N*ReсFact(N-1);
End;
Begin
  writeln('Введите число N > ';
  read(N);
  F := RecFact(N);
  writeln('Для числа ',N,' значение факториала равно ',F);
End.

Не могу сделать их еще надо в рекруссивном и интеративном варианте сделать обе.

Интеративном т.е чтобы постоянно спрашивало
до определенного числа раз.

1) На печать выводится сказка ”О попе и его собаке” определенное число раз. ("У попа была собака, он ее любил. Она съела кусок мяса - он ее убил. В землю закопал, надпись написал ...)


2) Напишите рекурсивный алгоритм нахождения степени числа. ах=ах-1*а, а0=1\


Зарание всем благодарен.

Сообщение отредактировано: volvo - 3.11.2006 19:22
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 9.09.2006 10:54
Сообщение #2


Гость






Цитата
Напишите рекурсивный алгоритм нахождения степени числа
Поиск и еще раз поиск... Во первых есть в FAQ-е, во вторых - есть специальная тема для интересных рекурсивных решений, там тоже выкладывалось...
 К началу страницы 
+ Ответить 
nekkit
сообщение 10.09.2006 10:55
Сообщение #3





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


Где в FAQ-е найти не могу?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 10.09.2006 11:05
Сообщение #4


Гость






FAQ -> Общие вопросы по математике -> Возведение в степень.

Первый способ это что по-твоему? Не рекурсия?
 К началу страницы 
+ Ответить 
nekkit
сообщение 11.09.2006 14:40
Сообщение #5





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


А примерно начало хотябы решения показать можно?!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 11.09.2006 14:57
Сообщение #6


Гость






Какое начало? Тебе дали ссылку на полное решение, что ТЕПЕРЬ не хватает?

Или ты про первое задание?

const story = 
  'У попа была собака, он ее любил. Она съела кусок мяса - он ее убил. В землю закопал, надпись написал ...';

procedure print_story(n: integer);
begin

  if n > 0 then begin
    writeln(story);
    print_story(n - 1);
  end;

end;

begin
  print_story(7); { <-- Печатать 7 раз }
end.

Какое может быть начало? Полная программа занимает 15 строк...
 К началу страницы 
+ Ответить 
nekkit
сообщение 12.09.2006 10:32
Сообщение #7





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


вторую как делать я уже понял. А вот первую на половину нехватает вроед 3 строчки?! rolleyes.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
nekkit
сообщение 12.09.2006 12:03
Сообщение #8





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


Спасибо. первую допетрил. А вторую не могу со своей данной формулой из FAQ слить.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 29.07.2025 20:55
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"