Задания для самостоятельной работы
ЗАДАНИЕ 1. Составить программы для построения графиков заданных функций, предварительно выбрав расположение координатных осей и масштаб на них.
Варианты задания 1:
ЗАДАНИЕ 2. Составить программы для построения заданного изображения, применив какой-нибудь способ раскраски, и размножить его на экране (получить не менее трех изображений).
Варианты задания 2:
11. Модули, определяемые пользователем
Модуль – программная единица, текст которой компилируется независимо. Модуль включает в себя определения констант, типов данных, переменных, процедур и функций, доступных для использования в вызывающих данный модуль программах. Модули бывают стандартные (например, CRT и GRAPH) и определяемые пользователем.
Модуль состоит из следующих частей:
заголовок;
интерфейсная часть (или интерфейс);
исполнительная (или исполняемая) часть;
инициирующая часть.
Все разделы, кроме последнего, обязательны.
Заголовок модуля имеет вид: Unit <имя модуля>;
Имя модуля служит для его связи с другими модулями и основной программой, где для этого используется специальное предложение Uses <имя модуля>; .
Интерфейсная часть начинается со служебного слова Interface. Затем объявляются все глобальные объекты модуля (типы, переменные, константы, подпрограммы), которые будут доступны основной программе и/или другим модулям. При объявлении глобальных процедур и функций указывают только их заголовки.
Исполняемая часть начинается со служебного слова Implementation. Далее располагаются описания подпрограмм, объявленных в интерфейсной части, при этом заголовки подпрограмм могут быть указаны в сокращенном виде. Также здесь располагаются локальные объекты модуля, которые используются только в модуле (например, вспомогательные подпрограммы).
Инициирующая часть начинается со слова Begin. Затем размещаются операторы, которые исполняются до передачи управления основной программе и обычно используются для подготовки ее работы. Эта часть может отсутствовать или быть пустой. Заканчивается часть служебным словом End, которое является признаком конца модуля.
Чтобы оформить программу как модуль, необходимо сохранить ее на диске с тем же именем, что и модуль, и расширением .PAS. Для опции <Compile/Destination> установить значение <Disk> и выполнить прогон (Ctrl + F9). По служебному слову Unit распознается текст модуля и автоматически создается файл с расширением .TPU (Turbo Pascal Unit). При этом выдается сообщение “Cannot run a unit” (невозможно выполнить модуль).
Пример 20. Создать модуль Math_Fun – библиотеку процедур и функций, с помощью которых можно вычислять часто используемые в математике функции, не встроенные в язык Турбо-Паскаль 7.0. Например, возведение в целую положительную степень, факториал, тангенс.
Unit Math_Fun;
Interface
Function Power (X: Real; N: Byte): Real; {XN}
Function Fact (N: Byte): Longint; {N!}
Procedure Tg (X: Real; Var T: Real; Var Error:Byte);
{T=Tg X; Error – код ошибки – равен 0, если Tg определен, иначе равен 1}
Implementation
Function Power;
Var P: Real; I: Byte;
Begin
P:=1;
For I:=1 to N do P:=P*X;
Power:=P
End;
Function Fact;
Var F: Longint; I: Byte;
Begin
F:=1;
For I:=2 to N do F:=F*I;
Fact:=F
End;
Procedure Tg;
Begin
If Cos(X)<>0 Then
Begin Error:=0; T:=Sin(X)/Cos(X) End
Else
Error:=1
End;
End.
Использовать этот модуль можно, например,
при вычислении выражения:
Program Example_20;
Uses Math_Fun;
Var S,X: Real; K: Byte;
Begin
Write (‘Введите Х:’);
Readln (X);
S:=0; K:=1;
While K<=11 do
Begin
S:= S+ Power (X, K) / Fact(K);
K:= K+2
End;
Writeln (‘Значение выражения =’, S)
End.