 Рекурсия |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| Merlin |
 18.05.2006 17:21
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 114 Пол: Мужской Реальное имя: Ден Репутация:  0   |
Можете показать на примере как находится :
 Рекурсивная функция должна возвращать среднее из n элементов массива чисел. -------------------- |
   |
 
|
  |
Ответов(1 - 3)
| klem4 |
18.05.2006 17:55
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
type
TArr = array[1..100] of integer;
function Sr(x : TArr; i : integer; n : integer) : single;
begin
if i <= n then Sr := Sr(x, i + 1, n) + x[i] / n;
end;
var
n,i : integer;
x : TArr;
...
writeln(sr(x, 1, n):2:2);
...
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| volvo |
18.05.2006 18:14
Сообщение
#3
|
|
Гость |
Merlin,
Цитата Можете показать на примере как находится: А это зачем писалось: Цитата(Правила Раздела) 5. Самое главное - это раздел теоретический, т.е. никаких задач и программ - для этого есть отдельный раздел! ? |
|
|
|
| Merlin |
18.05.2006 22:17
Сообщение
#4
|
|
Пионер Группа: Пользователи Сообщений: 114 Пол: Мужской Реальное имя: Ден Репутация: 0 |
klem4 Спасибо
 -------------------- |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 28.07.2025 3:28 |