Не могу разобраться как в модуле вызвать процедуру из основной программы? Из модуля понятное дело, подключил в библиотеках и все, а тут возникла проблема.
Код к задаче: «Как в модуле вызвать процедуру из основной программы»
Листинг программы
(тест меню) 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;
Источник: studassistent.ru
Вызов процедуры в основной программе
Описывается пользовательская процедура в разделе описания программы (после описания переменных, перед begin). Структура процедуры повторяет структуру программы:
Программирование на Си — Урок 6 — процедуры, функции, параметры и разгадка тайны int main
Procedure имя процедуры (список формальных параметров);
раздел описания процедуры;
Begin
тело процедуры;
End;
Вызов процедуры в основной программе
Для обращения к процедуре используется оператор вызова процедуры. Он состоит из имени процедуры и списка фактических параметров:
имя процедуры (список фактических параметров);
При вызове процедуры указывается ее название и в скобках через запятую числа или переменные, которые функция будет использовать как исходные данные и результаты. При начале работы она берет эти данные и переименовывает в соответствии с теми названиями переменных, которые указаны в скобках после названия процедуры. Порядок переменных (как и в функции) играет очень важную роль, т. е. его нельзя изменять.
Пример 1: Составить программу нахождения НОДа трёх натуральных чисел, имея в виду, что НОД (a,b,c)=НОД (НОД(a,b),c).
Источник: studopedia.ru
2.4.4Вызов процедур и функций в основной программе
Вызов процедуры представляет в программе самостоятельную команду:
Типы фактических параметров должны быть такими же, что и у соответсвующих им формальных.
Вызов функции должен входить в выражение. При вычислении значения такого выражения функция будет вызвана, действия, находящиеся в ее теле, будут выполнены, в выражение будет подставлено значение результата функции.
2.4.5Пример
Приведем простейший пример использования подпрограммы.
Обратите внимание на краткость тела основной программы и на прозрачность действий внутри функции. Формальные параметры A и B, используемые в подпрограмме, не имеют никакого отношения переменным A и B, описанным в основной программе.
#6. Процедуры и Функции на PascalABC.net
type matrica=array[1..20,1..20] of real;
vector=array[1..20] of real;
for i:=1 to k do z:=-z;
procedure part1(n: integer; var A:matrica);
for j:=1 to n do a[i,j]:=znak(i+j)*ln(i*j);
procedure part2(n:integer; a:matrica; var x:vector);
for j:=1 to n do if min>a[j,i] then min:=a[j,i];
procedure part3(n:integer; var a:matrica);
var i,j,l,k:integer; c:real;
for i:=1 to n-1 do
for j:=i+1 to n do
procedure print_m(n:integer; a:matrica);
for j:=1 to n-1 do write(a[i,j]:6:3);
procedure print_V(n:integer; x:vector);
for i:=1 to n-1 do write(x[i]:6:3);
2.5Использование библиотек стандартных процедур в программах. Модуль Crt. Текстовые режимы использования экрана.
Язык программирования Паскаль содержит ряд предопределенных процедур, разделенных по темам на несколько библиотек (модулей). Файлы с библиотеками процедур имеют расширение tpu и хранятся в папке units основной директории tp. Подключение библиотек к программе производится сразу за заголовком программы. Для этого используется служебное слово uses.
За ним перечисляются через запятую имена файлов библиотек. Модуль Crt содержит процедуры и функции, испльзующиеся для работы на текстовом экране. Примером процедуры этого модуля может служить очистка экрана clrscr. Процедуры этого модуля всегда работают в активном окне. Окном считается прямоугольная область, определяемая координатами верхнего левого и нижнего правого угла.
По умолчанию активным окном является экран. Размеры экрана, по умолчанию, — 80×25 знакомест. Заданный по умолчанию режим экрана можно изменить, используюя процедуру textmode (). Константа 0 задает черно/белый режим с размером экрана 40×25. 1 — цветной режим 40×25 2 — черно/белый режим 80×25 3 — цветной режим 80×25 7 — черно/белый режим и монохромный дисплей 256 — загружаемый шрифт — 43 строки в EGA и 50 строк в VGA.
Процедуры этого модуля могут обеспечивать работу со звуком. Частоту звука определяет процедура sound (). Длительность звука регулируется процедурой delay () и процедурой nosound — отключение звука. Короткий звуковой сигнал можно обеспечить, используя символ #7 в списке вывода оператора write.
В списке вывода также можно использовать еще 4 специальных символа: #8 — смещение курсора влево на одну позицию #10 — сдвиг курсора на одну строку вниз #13 — перемещение курсора на левую границу окна Комбинация #13#10 соответствует нажатию клавиши Enter. Для активирования нового окна следует определить его границы. Для этого используется процедура window (x1, y1, x2, y2).
Координаты x1, y1, x2, y2 — абсолютные, все остальные координаты в окне — относительные, а точкой отсчета считается верхний левый угол окна. В пределах окна курсор можно переместить на овую позицию, используя процедуру gotoxy (x, y). Если x, y выходят за пределы окна, то процедура игнорируется. Для изменения цветовой гаммы окна используются следующие процедуры: textbackground () — изменяет цвет фона; в качестве аргументов выступают числа 0..7 textcolor () — изменяет цвет текста; в качестве аргументов выступают числа 0..15. Для организации
Ограничение
Для продолжения скачивания необходимо пройти капчу:
Источник: studfile.net