Теперь напишем небольшой модуль. Назовем
Теперь напишем небольшой модуль. Назовем его IntLib и вста- вим в него две простые подпрограммы для целых чисел - процедуру и функцию:
unit IntLib;
interface procedure ISwap(var I,J : integer); function IMax(I,J : integer) : integer; implementation procedure ISwap; var Temp : integer;
begin Temp := I; I := J; J := Temp end; { конец процедуры ISwap } function IMax; begin if I > J then IMax := I else IMax := J end; { конец функции IMax } end. { конец модуля IntLib }
Наберите этот модуль, запишите его в файл INTLIВ.PAS, а за- тем скомпилируйте, задав в качестве целевой платформы защищенный режим DOS. В результате получим код модуля в файле INTLIВ.ТРP. Перешлем его в каталог модулей (если такой имеется), или оставив в том же каталоге, где находится следующая программа, которая ис- пользует модуль IntLib:
program IntTest; uses IntLib; var A,B : integer; begin Write('Введите два целочисленных значения: '); Readln(A,B); ISwap(A,B); Writeln('A = ',A,' B = ',B); Writeln('Максимальное значение равно ',IMax(A,B)); end. { конец программы IntTest }
