|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.06.2009, 00:06 | #1 |
Пользователь
Регистрация: 31.05.2009
Сообщений: 13
|
переполнение стека. помогите решить эту проблему
Задача:
Дан вектор X из n вещественных чисел. Найти минимальный элемент вектора, используя вспомогательную рекурсивную функцию, находящую минимум среди последних элементов вектора X, начиная с n -гo. вот программная реализация ее: program rec; uses crt; Var a:arrray [1..30] of real; i,n:integer; min:real; Procedure CreateMass; Begin for i:=1 to n do begin a[i]:=random*30-10; write(a[i]:3:2); end; End; Function compare(n:integer):real; Begin i:=n; if a[i]<=a[i-1] then compare:=a[i] else compare:=a[i-1]; compare:=compare(n-1); End; Begin clrscr; write('введите количество элементов массива ') read(n); CreateMass; writeln('Минимальный элемент '); min:=compare(n); readkey; End. при вызове программы выдается ошибка 202 - Stack overflow error. помогитe, пожалуйста, решить эту проблему. |
01.06.2009, 18:58 | #2 |
Форумчанин
Регистрация: 01.06.2009
Сообщений: 108
|
Код:
Код:
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переполнение стека | Ake | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 30.05.2009 22:39 |
Переполнение Стека | Викдон | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 19.12.2008 19:16 |
Переполнение стека при передачи функциям массивов большой размерности | graphoman | Общие вопросы Delphi | 2 | 07.01.2008 21:47 |
Помогите решить эту задачку | Magic Blood | Microsoft Office Excel | 1 | 16.05.2007 18:17 |