Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
 Аватар для greeting
5 / 5 / 4
Регистрация: 15.03.2013
Сообщений: 99

Как в модуле вызвать процедуру из основной программы

15.03.2013, 11:40. Показов 3170. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Не могу разобраться как в модуле вызвать процедуру из основной программы? Из модуля понятное дело, подключил в библиотеках и все, а тут возникла проблема.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.03.2013, 11:40
Ответы с готовыми решениями:

Как правильно объявить в модуле переменную, тип данных которой описан в основной программе?
Как обратиться из модуля к записе, которая определена в программе? Например, есть такой код основной программы: uses add_sub1; ...

Как вызвать процедуру
Procedure Level1; begin PlaySound(button); menu1.visible:=false; menu2.visible:=false; menu3.visible:=false;...

Как вызвать процедуру?
Вопщем, мне нада вызвать процедуру Krest_1 с ввода клавиатуры. Например, ввожу "1" и получаю процедуру "Krest_1". нада как то...

6
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
15.03.2013, 12:25
Цитата Сообщение от greeting Посмотреть сообщение
как в модуле вызвать процедуру из основной программы
Никак, только из другого модуля.
1
 Аватар для greeting
5 / 5 / 4
Регистрация: 15.03.2013
Сообщений: 99
15.03.2013, 13:04  [ТС]
поместил в другой модуль, но тут такая проблема возникла "рекурсивное подключение модулей". Суть в том, что в главной программе вызывается модуль "menu", но и в другом модуле "vtoroi_modul" его тоже нужно вызывать для доступа к процедуре.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
15.03.2013, 13:08
Цитата Сообщение от greeting Посмотреть сообщение
но и в другом модуле "vtoroi_modul" его тоже нужно вызывать для доступа к процедуре.
Естественно..., А зачем его вызывать в основной программе?
0
 Аватар для greeting
5 / 5 / 4
Регистрация: 15.03.2013
Сообщений: 99
15.03.2013, 14:15  [ТС]
никак не получается из модуля "dlia_kursovoi" и из основной программы "Kursovaia" вытянуть меню в отдельный модуль.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
(тест меню)     
 {процедура основного меню}
procedure menu;         
begin
clrscr;
writeln;
writeln;
writeln;
writeln ('                                Справочник газет');
writeln;
writeln ('                      _____________________________________');
writeln ('                         1. Добавление записей в файл');
writeln ('                         2. Вывод всех записей на экран');
writeln ('                         3. Изменение записи');
writeln ('                         4. Замена записи');
writeln ('                         5. Добавление записи');
writeln ('                         0. Выход из программы');
writeln ('                      _____________________________________');
writeln;
write   ('                                   >>> ');
readln (sel);
case sel of
1:vvod;
2:vivod;
3:izmenenie;
4:zamena;
5:dobavlenie;
0:exit;
end;
end;
рекурсивное подключение всегда идет
Вложения
Тип файла: rar kursovaya_pravilnaya.rar (2.8 Кб, 3 просмотров)
0
 Аватар для greeting
5 / 5 / 4
Регистрация: 15.03.2013
Сообщений: 99
15.03.2013, 16:31  [ТС]
Из основной программы получилось удалить без препятствий, осталось только из модуля преместить в другой модуль.
Вложения
Тип файла: rar kursovaya_pravilnaya.rar (2.5 Кб, 6 просмотров)
0
 Аватар для greeting
5 / 5 / 4
Регистрация: 15.03.2013
Сообщений: 99
19.03.2013, 10:34  [ТС]
разобрался, перенес два меню в один модуль, добавил в case begin end и все получилось.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.03.2013, 10:34
Помогаю со студенческими работами здесь

Как в процедуре вызвать процедуру?
Добрый день. Не могу в процедуре вызвать другую процедуру, ибо первая процедура просто не видит вторую и пишет, что не известное имя. Как...

Как правильно вызвать процедуру?
как правильно вызвать данную процедуру? procedure n1(i:integer; A:T1); begin for I := 1 to 3 do begin if...

Попытка вызвать процедуру, как функцию
Привет. Прошу переделать код и скинуть результат. желательно с комментариями. uses crt; var s,res:string; i:integer; begin ...

Попытка вызвать процедуру как функцию
В 6 строке (if reset(FST)=false then) выдает ошибку "Попытка вызвать процедуру как функцию" Procedure SetupData; var ...

Попытка вызвать процедуру, как функцию
Всем привет. uses crt; var s,res:string; i:integer; begin write('Введите предложение: '); readln(s); for i:=1 to length(s)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 30.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru