|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.10.2008, 01:09 | #1 |
Регистрация: 11.10.2008
Сообщений: 2
|
Помогите найти ошибку, очень важно!!!
program PAMax;
{$APPTYPE CONSOLE} uses SysUtils; Type Mas = array[1..50] of double; Function MAX(const Data: mas): double; Var i: integer; AMax: double; begin AMax:=Data[1]; for i:=2 to 50 do if Data[i] > AMax then AMax:=Data[i]; Result:=AMax; end; end. появляется досовское окно и сразу закрывается((( |
13.10.2008, 01:24 | #2 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Допиши ReadLn; перед последним end.
И вообще ты в программе только описал функцию, но в теле ничего не выполняется.
ICQ: 5311314
[SIGPIC][/SIGPIC] |
14.10.2008, 02:13 | #3 |
Регистрация: 11.10.2008
Сообщений: 2
|
AVer, ты можешь остальное напечатать, как должно быть, а то че-то у меня ничего не выходит.
|
14.10.2008, 02:46 | #4 |
Форумчанин
Регистрация: 01.03.2008
Сообщений: 165
|
ну например во так
Код:
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ПОМОГИТЕ! ОЧЕНЬ ВАЖНО! Задача на использование рекурсии | stscolt | Помощь студентам | 1 | 21.04.2008 22:37 |
ОЧЕНЬ ВАЖНО, ПОМОГИТЕ | VVVadim | Помощь студентам | 2 | 28.03.2007 17:32 |