Модули Crt, Graph

Begin

Основная программа

End

Begin

Begin

Модуль

UNIT MOL; {заголовок модуля}

INTERFACE {раздел интерфейса}

Type mas= array [1..4] of real;

Var MD,MM:mas;

i:integer;

{объявление функции и процедуры}

Function K(ko,e,r,t:real):real;

Procedure MASS(ММ,МD:mas; var MS:real);

IMPLEMENTATION {раздел реализации}

Function K(k0,e,r,t:real):real;

var k1:real;

i:integer;

k1:=k0*exp(-e/(r*t));

k:=k1

end;

Procedure MASS(ММ,МD:mas; var MS:real);

var i:integer;

MS:=0;

for i:=1 to 4 do

MS:=MS+MM[i]*MД[i];

end.

Текст модуля записывается в файл с именем MOL.pas и транслируется.

Program MolMas;

Uses Mol; {подключение модуля}

Var MM,MД:mas;

C1,C2,W,k0,e,r,t,ms:real;

write(’Введите k0 e r t C1 C2’);

readln(k0,e,r,t,C1,C2);

for i:=1 to 4 do

readln(MM[i],MD[i]);

MASS(MM,МД,MS); {обращение к процедуре}

writeln(’Значение молекулярной массы=’, MS:7:3);

W:= k(k0,e,r,t) *C1* C2));{обращение к функции k(k0,e,r,t)}

writeln (’Значение скорости=’,W:10:5);

end.

Запишем программу в файл, например с именем Skor.pas, и запустим её на выполнение. В каталоге библиотеки, в которой вы работаете, должны находиться файлы: Skor.pas; Mol.pas; Mol.tpu.

Богатство алгоритмических возможностей языка Турбо-Паскаль в значительной степени достигается благодаря использованию модулей. Так, все математические функции, в том числе sqr, sqrt, exp, ln и другие, описаны в модуле System, который автоматически (по умолчанию) подключается при компиляции программы.

Модуль представляет собой набор констант, типов данных, переменных, процедур и функций, что позволяет использовать его как своеобразную библиотеку описаний (как правило, используются процедуры и функции).

Турбо-Паскаль располагает восемью стандартными модулями. Это System, Dos, Overlay, Graph, Crt, Printer, Turbo3, Graph3. Два последних модуля предназначены для совместимости программ, написанных в версии 3.0. Файл, содержащий модуль, имеет расширение *.tpu. Все перечисленные модули (кроме Graph, Graph3, Turbo3) объединены и хранятся в файле Turbo.tpl.

Модуль System поддерживает все стандартные процедуры и функции, обеспечивает ввод-вывод данных, обработку строк, динамическое распределение оперативной памяти и ряд других возможностей Турбо-Паскаля.

Модуль Dos содержит многочисленные стандартные процедуры и функции, многие из которых по своему действию эквивалентны соответсвующим командам MS-DOS (GetTime, DiskSize и др.).

Модуль Overlay обеспечивает поддержку оверлеев.

Модуль Crt поддерживает ряд стандартных процедур и функций, которые обеспечивают работу с экраном дисплея в текстовом режиме, управление звуком и работу с клавиатурой.

Модуль Printer содержит драйвер печатающего устройства и позволяет организовывать вывод информации на принтер.

Модуль Graph обеспечивает работу с экраном дисплея в графическом режиме.

Для того чтобы использовать модули в программах, их имена следует указать в предложении uses, всегда находящемся после заголовка программы. Например,

program Pr;

uses Crt, Graph;

...

Дата добавления: 2014-01-14