Стандартные модули Turbo Pascal
Библиотеки модулей
End
Begin
End.
Readln(W)
Else
SqEqRoots(a,b,c,x)
Readln(a,b,c)
Repeat
Begin
Writeln('Нахождение корней квадратных уравнений');
Write('Введите коэффициенты a, b, c через пробел');
If Error=false then
Writeln('Корни: x1=',x[1],' x2=',x[2])
Writeln('У этого уравнения нет вещественных
корней');
Writeln('Решить еще одно уравнение? (Y/N) >');
Until (W='n') or (W='N')
Текст модуля.
Unit Roots;
Interface {====раздел интерфейса=====}
Type Rdim=array[1..2] of real
Var a,b,c:real; x:Rdim;Error: Boolean;
Procedure SqEqRoots(coef1, coef2, coef3:Real;
Var Root:Rdim; Var Err:Boolean);
Implementation{====раздел реализации=====}
Procedure SqEqRoots;
Var d:real;
d:=Coef2* Coef2-4* Coef1* Coef3; {вычисление
дискриминанта}
If d>=0 then begin
d:=sqrt(d);
Root[1]:=(-Coef2-d)/(2*Coef1);
Root[2]:=(-Coef2+d)/(2*Coef1);
Err:=False
else Err:=true
End;
Обычно исходные тексты модулей и откомпилированные модули хранятся в виде отдельных файлов с расширением ".tpu". В Turbo Pascal предусмотрена библиотека модулей, в которой может содержаться одновременно несколько откомпилированных модулей в виде одного файла turbo.tpl. Для управления библиотекой модулей (добавление в нее модулей и извлечение из нее модулей) предусмотрена специальная утилита-библиотекарь tpumover.exe.
|
|
В состав системы Turbo Pascal включены стандартные модули, которые являются аналогами библиотек стандартных подпрограмм.
Модуль Назначение
System Содержит самые необходимые типы, процедуры и функции, как характерные для стандартного Паскаля (такие, как функции sin, abs, odd и др.) так и дополнительные типы, процедуры и функции для работы со строками, файлами, динамической памятью, обеспечивающие работу с расширенным синтаксисом Turbo Pascal. Этот модуль не надо включать в описание Uses, так как он автоматически подключается ко всем программам и модулям.
Crt Содержит типы, константы, процедуры и функции для работы с дисплеем в символьном режиме. Его компоненты позволяют управлять режимами экрана, цветом символов и фона, положением курсора на экране, контролировать нажатие клавиш и вводить коды нажатых клавиш.
Dos Компоненты этого модуля предназначены для взаимодействия программы с операционной системой и ее подсистемами. С их помощью можно получать информацию о файловой системе и файлах, работать с подсистемой ввода-вывода, управлять системными часами, создавать обработчики прерываний и т.д.
Overlay Содержит средства для организации программ с оверлейной структурой.
Printer Содержит несколько констант и структур данных для работы с принтером.
Graph Содержит средства управлением дисплеем в графическом режиме – определение типа графического адаптера, выбор графического режима, управление цветом, рисование пикселов и геометрических фигур и т.п.
|
|
Обычно эти модули (кроме модуля Graph) включены в стандартную библиотеку turbo.tpl. Сюда же входят и некоторые другие модули, предназначенные для обеспечения совместимости исходных текстов, написанных для более ранних версий Turbo Pascal. Модуль Graph обычно хранится в отдельном файле graph.tpu, но как и другие модули, он может быть включен в библиотеку модулей turbo.tpl. Для работы модуля Graph требуются также так называемые графические драйверы, поставляемые в файлах с расширением ".bgi".
Все стандартные модули, кроме модуля System, нужно подключать к программе при необходимости с помощью описания Uses. Модуль System подключен по умолчанию.
Подробное описание состава модулей – константы, переменные, типы данных, процедуры и функции, которые можно использовать в программе в готовом виде, подключив каждый из модулей, можно найти во многих изданиях, и конечно, в документации на систему программирования и в ее справочной службе. Здесь мы ограничимся кратким рассмотрением особенностей ввода-вывода в Turbo Pascal.