Стилі заповнення геометричних фігур

Floodfill (х, у, <колір межі>) — заповнює замкнену область з точкою (х;у) у середині.

Closegraph — закриває графічний режим.

Outtext (<текст>) — виводить заданий текст з поточної позиції.

Outtextxy (х, у, <текст>) — виводить заданий текст у заданому місці.

Settextstyle (<шрифт>, <напрямок>, <розмір>) — задає вигляд символів, напрямок виведення: 0 — горизонтально чи 1 -вертикально, і розміри символів: 1, 2, 3.

Розглянемо деякі функції модуля Graph.

Graphresult — повертає код помилки, якщо неможливо задати графічний режим, і 0 — у разі задания.

Getmaxx — повертає значения розміру екрана по горизонталі.

Getmaxy — повертає значення розміру екрана по вертикалі.

Getcolor — повертає значення поточного кольору.

Getx, gety — повертають координати поточного пікселя.

Приклад 1. Намалювати емблему. У верхній лівій частині графічного екрана на чорному тлі намалювати блакитний квадрат, а в ньому - чорне коло, зафарбований жовтими кольорами. У центрі емблеми чорними буквами написати слово «Львів».

program Emblema;

usesCrt, Graph;

vardriver, mode, i, xl, yl : integer;

x, y: real;

Begin

clrscr;

driver := detect;

initgraph(driver, mode,' ');

setbkcolor(0);

setcolor(3);

rectangle(100, 0, 300, 200);

setfillstyle(l, 3);

floodfill(200, 100, 3);

setcolor(14);

circle(200, 100, 100);

setfillstyle(l, 14);

floodfill(200, 100, 14);

setcolor(0);

circle(200, 100, 100);

settextstyle(0, 0, 3);

outtextxy(135, 100, 'Львів');

readln

End.

Приклад 2. Побудувати графік функції y=2sin(2x)+1 на проміжку [0;2p], табулюючи функцію з кроком h=0,1.

Program grafik;

uses Crt, Graph;

const a=0; b=2*pi; h=0.1; h1=5; x0=60; y0=240; M=50;

var driver, mode, x1, y1: integer; x, y: real;

function f(x: real): real;

Begin

f:= 2*sin(2*x)+1;

end;

Begin

clrscr; driver:=detect; initgraph(driver, mode,' ');

setcolor(14); setbkcolor(1);

line(20,y0,600,y0); line(x0,440,x0,20); {координатні осі}

x:=a; x1:=x0+trunc(M*x); {x, y – математичні координати}

y:=f(x); y1:=y0-trunc(M*y); {x1, y1- графічні координати}

moveto(x1,y1); setcolor(15);

while x<=b do

Begin

y:=f(x); y1:=y0-trunc(M*y); lineto(x1,y1);

x1:=x1+h1; x:=x+h

end;

settextstyle(0,0,1);

outtextxy(60,245,'0'); outtextxy(360,245,'6.3');

settextstyle(0,0,2);

outtextxy(200,380,'Графік функції y=2sin(2x)+1'); readln;

End.

Завдання

1.У заданій частині графічного екрана нарисувати фігуру 1, у середині фігури 1 – фігуру 2, а у середині фігури 2 – текст: своє прізвище та ініціали. Усі елементи рисунка виконати різними кольорами. Замкнені області залити кольорами.

2. Скласти програму побудови графіка функції на деякому проміжку (проміжок задати самостійно)

варіант	функція

3. Записати відповідний текст та результат виконання програми у звіт.

Список літератури

1. Глинський Я.М. та ін. Turbo Pascal і Delphi: Навчальний посібник, Львів: Деол, СПД Глинський, 2005

2. Круподерова Е.П. Методические рекомендации к лабораторным работам по программированию на языке Турбо Паскаль. Мурманск, Отдел образования Октябрьского административного округа, СШ 43, 1996, стр. 99

3. Культин Н.Б. Turbo Pascal в задачах и примерах, СПб: БХВ-Петербург, 2004

4. Оніщенко С.М. Програмування мовою Паскаль. Лабораторний практикум: навчальний посібник. – К.: Логос, 2004

5. Рапаков Г.Г., Ржеуцкая С.Ю. Turbo Pascal для студентов и школьников., СПб: БХВ-Петербург, 2005

6. Ускова О.Ф. Программирование на языке Паскаль: задачник. СПб.: Питер, 2005.

7. Фаронов В.В. Turbo Pascal 7.0. Начальный курс. Учебное пособие., М.: «Нолидж», 2001

8. Шост Д.М. Основи інформатики та обчислювальної техніки. Turbo Pascal. Зошит-конспект., Тернопіль: «навчальна книга», 2001

Зміст

Лабораторна робота № 1. 2

Лінійні програми.. 2

Теоретичні відомості 2

Завдання. 7

Лабораторна робота № 2. 8

Використання операторів умовного та безумовного переходів.. 8

Теоретичні відомості 8

Завдання. 9

Лабораторна робота № 3. 11

Використання операторів циклу.. 11

Теоретичний матеріал. 11

Завдання. 13

Лабораторна робота № 4. 15

Обробка табличних елементів.. 15

Теоретичний матеріал. 15

Завдання. 18

Лабораторна робота № 5. 20

Сортування елементів масиву.. 20

Теоретичний матеріал. 20

Завдання. 21

Лабораторна робота № 6. 22

Робота з даними типу String.. 22

Теоретичний матеріал. 22

Завдання. 23

Лабораторна робота № 7. 23

Використання множин даних.. 23

Теоретичний матеріал. 23

Завдання. 24

Лабораторна робота № 8. 25

Обробка даних типу запис.. 25

Теоретичний матеріал. 25

Завдання. 26

Лабораторна робота № 9. 27

Файлові типи даних.. 27

Теоретичний матеріал. 27

Завдання. 28

Лабораторна робота № 10. 30

Типизовані файли.. 30

Теоретичний матеріал. 30

Завдання. 31

Лабораторна робота № 11. 33

Організація підпрограм з використанням функцій.. 33

Теоретичний матеріал. 33

Завдання. 33

Лабораторна робота № 12. 34

Організація підпрограм з використанням процедур.. 34

Теоретичний матеріал. 34

Завдання. 36

Лабораторна робота № 13. 37

Модульна організація програм... 37

Теоретичний матеріал. 37

Завдання. 38

Лабораторна робота № 14. 40

Створення графічних зображень.. 40

Теоретичний матеріал. 40

Завдання. 42

Список літератури.. 43

Зміст.. 44