|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2010, 23:04 | #1 |
Новичок
Джуниор
Регистрация: 23.12.2010
Сообщений: 4
|
ошибка в модуле (отсутствует определение процедуры). паскаль.
Паскаль упорно выдает ошибку. Помогите пожалуйста, уже понятия не имею в чем дело.
Код HTML:
unit mod_exe1; interface type mas=array[1..10] of string[25]; st=string[25]; procedure findmin(a:mas ; var r:st);//отсутствует определение процедуры findmin// procedure findmax(a:mas ; var r:st); IMPLEMENTATION begin procedure findmin; var s:st; i:byte; a:mas; r:st; begin s:=copy(a[1],1,20); r:=a[1]; for i:=2 to 10 do begin if s>copy(a[i],1,20) then begin s:=copy(a[i],1,20); r:=a[i]; end; end; end; procedure findmax; var s:st; i:byte; a:mas; r:st; begin s:=copy(a[1],22,4); r:=a[1]; for i:=2 to 10 do begin if s<copy(a[i],22,4) then begin s:=copy(a[i],22,4); r:=a[i]; end; end; end; end. |
23.12.2010, 23:07 | #2 |
Участник клуба
Регистрация: 23.12.2010
Сообщений: 1,129
|
Убери begin после слова implementation.
|
23.12.2010, 23:08 | #3 |
Новичок
Джуниор
Регистрация: 23.12.2010
Сообщений: 4
|
нет, это не от этого к сожалению
|
23.12.2010, 23:09 | #4 |
Участник клуба
Регистрация: 23.12.2010
Сообщений: 1,129
|
Ну и дублирующие объявления a и r в тех двух функциях тоже убери.
|
23.12.2010, 23:14 | #5 |
Новичок
Джуниор
Регистрация: 23.12.2010
Сообщений: 4
|
тогда начинает ругаться на неизвестные идентификаторы в самих процедурах)
|
23.12.2010, 23:29 | #6 |
Участник клуба
Регистрация: 23.12.2010
Сообщений: 1,129
|
omg ) какая версия компилятора?
|
23.12.2010, 23:32 | #7 |
Новичок
Джуниор
Регистрация: 23.12.2010
Сообщений: 4
|
pascal abc)
|
23.12.2010, 23:35 | #8 |
Участник клуба
Регистрация: 23.12.2010
Сообщений: 1,129
|
Такого у меня нет. Borland pascal компилирует без ошибок, может этот abc не понимает сокращенных объявлений функций? Попробуй их скопировать из интерфейса в имплементейшн полностью.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема: определение отсутствует. | Deadle | JavaScript, Ajax | 4 | 23.10.2018 14:15 |
Ошибка в Visual Studio 2008, а в 2010 отсутствует :( | Ksy | Visual C++ | 1 | 20.12.2010 13:48 |
Type Missmath при вызове процедуры находящейся в модуле. | iBuTTHead | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 11.12.2010 18:52 |
Простой алгоритм с модулями (Ошибка: отсутствует определение процедуры) | FYBVFPFYBC | Помощь студентам | 4 | 15.05.2010 23:33 |
Процедуры в модуле Pascal | n0rma1 | Помощь студентам | 3 | 01.05.2010 11:10 |