Константа
| Код
| Опис
|
EmptyFill
|
| Суцільне заповнення кольором фону
|
SolidFill
|
| Суцільне заповнення заданим кольором
|
LineFill
|
| Заповнення горизонтальними лініями
|
LtSlashFill
|
| Діагональне заповнення (///)
|
SlashFill
|
| Діагональне заповнення товстими лініями (///)
|
BkSlashFill
|
| Зворотне діагональне заповнення товстими лініями (\\\)
|
LtBkSlashFill
|
| Зворотне діагональне заповнення (\\\)
|
HatchFill
|
| Клітчасте заповнення
|
XhatchFill
|
| Косе клітчасте заповнення
|
InterleaveFill
|
| Чергуюче лінійне заповнення
|
WideDotFIll
|
| Рідко розташовані точки
|
CloseDotFill
|
| Часто розташовані точки
|
UserFill
|
| Стиль визначений користувачем
|
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 – текст: своє прізвище та ініціали. Усі елементи рисунка виконати різними кольорами. Замкнені області залити кольорами.
Варіант
| Частина екрана
| Фігура 1
| Фігура 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