Лабораторная работа №19

End.

Begin

Программирование модулей.

Лабораторная работа №18

Цель: научиться составлять программы с использованием модулей в программе Turbo Pascal.

Теоретические сведения:

Модуль — это набор ресурсов (функций, процедур, констант, переменных, типов и т.д.), разрабатываемых и хранимых незави­симо от использующих их программ. Модуль может содержать достаточно большой набор про­цедур и функций, а также других ресурсов для разработки про­грамм. Существуют стандартные модули Турбо Пас­каля (system, crt, graph и т.д.).

Модуль имеет следующую структуру:

Unit <имя модуля>; {заголовок модуля}

Interface {интерфейсная часть}

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

{раздел инициализации модуля}

После служебного слова Unit записывается имя модуля, кото­рое должно совпадать с име­нем файла, содержащего данный модуль.

В разделе Interface объявляются все ресурсы, которые будут в дальнейшем доступны программисту при подключении модуля.

В разделе Implementation описываются все подпрограммы, которые были ранее объявлены. Кроме того, в нем могут содер­жаться свои константы, переменные, типы, подпрограммы и т.д., которые носят вспомогательный характер и используются для на­писания основных подпрограмм. В отличие от ресурсов, объявлен­ных в разделе Interface, все, что дополнительно объявляется в Implementation, уже не будет доступно при подключении моду­ля. При описании основной подпрограммы достаточно указать ее имя, а затем записать тело подпрограммы.

Раздел инициализации со­держит операторы, которые должны быть выполнены сразу же после запуска программы, использующей модуль.

Порядок выполнения работы:

1) Запустите программу Turbo Pascal.

2) Создать программу: Реализовать в виде модуля на­бор подпрограмм для выполнения следующих операций над обык­новенными дробями вида P/Q (Р — целое, Q — натуральное):

1) сложение; 2) вычитание; 3) умножение; 4) деление; 5) сокращение дроби;

5) возведение дроби в степень TV (7V — натуральное);

6) функции, реализующие операции отношения (равно, не равно, больше или равно, меньше или равно, больше, меньше).

Дробь представить следующим типом: Type Frac =Record

Р: Integer;

Q: 1..32767; End;

Используя этот модуль, решить задачу:

1. Дан массив А, элементы которого — обыкновенные дроби. Найти сумму всех элементов и их среднее арифметическое; ре­зультаты представить в виде несократимых дробей.

2. *Дан массив А, элементы которого — обыкновенные дроби. Отсортировать его в порядке возрастания.

Откомпилируйте программу. Проверьте правильность решения задачи.

3) Создать программу: Реализовать в виде модуля на­бор подпрограмм для выполнения следующих операций над векторами:

1) сложения;

2) вычитания;

3) скалярного умножения векторов;

4) умножения вектора на число;

5) нахождения длины вектора.

Вектор представить следующим типом:

Type Vektor =Record

X, Y: Real;

End;

Используя этот модуль, решить задачу:

Дан массив А — массив векторов. Отсортировать его в порядке убывания длин векторов.

Откомпилируйте программу. Проверьте правильность решения задачи.

4) Запишите полученные результаты в тетрадь. Оформите отчет о проделанной работе, который должен содержать тему, цель работы, формулировки задач с решениями.

5) Выйдите из программы Turbo Pascal.

Графика Турбо – Паскаля.

Цель: Рассмотреть основные операторы модуля GRAPH,

реализовать их в конкретных программах

Выполнение работы.

1. Набрать программу и описать действие операторов в виде комментариев.

Program Animacia;

Uses crt,graph;

const

osn:array[1..14] of integer =(485,355,605,355,605,375,385,375,385,365,485,365,485,355);

kab:array[1..14] of integer=(485,365,485,305,455,305,445,335,395,345,395,365,485,365);

ok1:array[1..10] of integer=(480,335,467,335,467,308,480,308,480,335);

ok2:array[1..10] of integer=(463,335,448,335,457,308,463,308,463,335);

var dr,md,kod,i:integer;

size:word;

p:pointer;

Procedure Fillcolor (a,b:byte);

begin

setcolor(a);

setfillstyle(1,b);

end;

begin

dr:=Detect;

initGraph(dr,md,'C:\bp.7\bgi');

kod:=graphresult;

if kod=0 then

begin

fillcolor(0,11);bar(0,0,639,399);

fillcolor(0,10);bar(0,400,639,479);

fillcolor(14,14);pieslice(590,50,0,359,40);

fillcolor(15,15);pieslice(50,50,0,359,30);

pieslice(160,50,0,359,50);

pieslice(150,50,0,359,40);

fillcolor(6,6);bar(495,325,625,355);

fillcolor(8,8);

fillpoly(7,kab);

fillcolor(9,9);

fillpoly(5,ok1);

fillpoly(5,ok2);

fillcolor(0,0);

circle(425,375,25);

circle(565,375,25);

floodfill(425,375,0);

floodfill(565,375,0);

fillcolor(7,7);

circle(425,375,10);

circle(565,375,10);

floodfill(425,375,7);

floodfill(565,375,7);end;

repeat until keypressed;

end.

Дата добавления: 2015-06-26