Лабораторна робота №6. Тема: Модулі користувача. Модулі crt і graph.

Мета роботи: створювати і використовувати власні модулі, навчитися працювати із стандартними модулями Crt і GRAPH.

Хід роботи

1. Запустіть програму TURBO PASCAL.

2. Створення і використання модуля користувача.

   1. Створення власного модуля .

• Відкрийте програму з лаб. роботи №4 п.3 (робота з відкритими масивами).

• Використовуючи програму LabR4_3.pas, створіть модуль, що складається з трьох процедур: введення, сортування і виводу відкритого масиву:

Unit КМ<№ групи >; { заголовок модуля }

interface { початок інтерфейсної частини }

var {оголошення загальнодоступних змінних )

procedure { заголовки загальнодоступних процедур }

implementation { початок виконуваної частини }

procedure { заголовки і тіла процедур }

end. { кінець модуля }

• Збережіть створений модуль з ім'ям КМ<№ групи>.pas в своїй папці.

• Встановіть значення Disk в пункті меню Compile  Destination.

• Виконайте компіляцію Compile  Compile. На диску з'явиться файл об'єктного коду програми КМ<№групи>.tpu

• Засобами операційної системи скопіюйте файл КМ<№групи>.tpu в папку TP7\UNITS.

1. Використання модуля.

• Задача: використовуючи модуль КМ<№групи> своріть 2 масиви за допомогою генератора випадкових чисел, відсортуйте їх і виведіть на екран.

3. Намалюйте спіраль з різнокольорових зірочок. Процедура delay уповільнює процес заповнення екрану по спіралі різнокольоровими зірочками, тому часто використовується при виводі різних зображень, що змінюються, на екрані.

uses crt;

tуре direction=(right,down,left,up);

var с,x,y,h,k: integer;

procedure go(d:direction; n:integer);

begin

for к:=1 to n do

begin

case d

right: x:=x+2; down: у:=y+1;

left: x:=x-2; up: у:=y-1;

end;

с:=random(15)+l; textcolor(c);

gotoxy(x,y); write('*’); delay(10000);

end;

end;

begin

clrscr; x:=39; у:=13; h:=1;

gotoxy(x, у); write('*');

repeat

go(right,h); go(down,h); h:=h+1;

go(left,h); go(up,h); h:=h+1;

until h>24;

end.

4. Намалюйте 3 геометричні фігури будь-якими символами.

5. Робота із стандартним модулем GRAPH. (При роботі користуйтеся довідковою системою).

   1. Намалюйте різними кольорами десять концентричних кіл із загальним центром посередині екрану, тобто в точці з графічними координатами (320; 240), і опишіть навкруги них червоний прямокутник.

Program RisCircle10;

uses Crt,Graph;

var driver,mode,r,n:integer;

begin

clrscr; driver:=detect;

initgraph(driver,mode,' ');

r:=10;

while r<=100 do

begin

setcolor(r div 10);

circle(320,240,r); r:=r+10;

end;

setcolor(red);

rectangle(220,140,420,340); readln;

end.

2. Зобразити рух сонця на блакитному небі в горизонтальному напрямі.

program MySun;

uses Crt, Graph;

var driver, mode, i : integer;

begin

clrscr;

driver := detect;

initgraph(driver, mode ");

i := 0;

while i <= 750 do

begin

setcolor(14); setbkcolor(3); setfillstyle(l, 14); circle(i, 100, 50);

floodfill(i, 100, 14); delay(200); setfillstyle(l, 3); setcolor (3);

circle(i, 100, 50); floodfill(i, 100, 3);

i := i + 5

end; readln

end.

6. Виконайте завдання свого варіанту. Пожвавте зображення. Задача: Створіть емблему: В заданій частині графічного екрану намалюйте фігуру 1, в середині фігури 1 - фігуру 2, а в середині фігури 2 - текст: прізвище і ініціали. Всі елементи малюнка виконайте різними кольорами. Замкнуті області зафарбуйте.

№	Частина екрану	Фігура 1	Фігура 2
	Верхня половина	Коло	Квадрат
	Нижня половина	Прямокутник	Коло
	Ліва половина	Трикутник	Еліпс
	Права половина	Еліпс	Прямокутник
	Верхня права чверть	Квадрат	Трикутник
	Нижня ліва чверть	Коло	Еліпс
	Нижня права чверть	Прямокутник	Коло
	Верхня ліва чверть	Трикутник	Прямокутник
	Весь екран	Еліпс	Трикутник

7. Вийдіть з програми TURBO PASCAL, для чого виконайте команду File-Exit.

8. Оформіть звіт про лабораторну роботу, в якому запишіть: тема і мета роботи; тексти задач і програми, створені на лабораторній роботі.