Процедуры графики в языке Turbo Pascal
Вид материала | Документы |
- Программирование на языке высокого уровня, 59.92kb.
- Курс «Программирование на языке Turbo Pascal 0» Цель курса, 19.6kb.
- Компоновать программы из отдельных частей отлаживать программы выполнять программы., 197.76kb.
- Задачи для изучающих программирование самостоятельно 30 Задания на лабораторную работу, 445.21kb.
- Конспект урока по информатике для десятого класса по теме «Условный оператор в Turbo, 32.44kb.
- Доманская Юлия Георгиевна г. Вилейка 2006г пояснительная записка, 74.95kb.
- Задачи работы Научиться создавать программы на языке Turbo Pascal с использованием, 598.05kb.
- Програма на мові Turbo Pascal, лінійні програми Команди галуження, вибору та мітки, 1485.97kb.
- Б. В. Ващук Turbo Pascal, 715.52kb.
- Алгоритмы создания фрактальных изображений в языке программирования Turbo Pascal, 101.97kb.
Процедуры графики в языке Turbo Pascal
Должны знать: Принцип построения графических изображений в компьютере, основные процедуры построения графических изображений.
Должны уметь: Выполнять построении простейших графических изображений в языке программирования.
1. Принципы построения графических изображений в компьютере
Изображение разбивается на отдельные элементы – пиксели (точки). Для каждой точки задаётся координаты, цвет и яркость в цифровом виде. Таким образом в компьютере будет храниться и обрабатываться двоичный код изображения. Графическая информация отображается на дисплее (мониторе).


В современных ПК используются лишь графические дисплеи, которые могут работать в двух режимах – текстовом (элемент экрана – знакоместо) и графическом (элемент экрана – пиксель).
Основная характеристика монитора – его тип: EGA, VGA, SVGA и т.д.
От типа монитора зависят: а) разрешающая способность (общее число пикселей на экране, например 640х480);
б) количество цветов. В современных ПК количество цветов может достигать более 232.
В


Обрабатывает изображение центральный микропроцессор.
2. Процедуры графики в Turbo Pascal.
Graph – модуль графических процедур.
GraphDrive или Gd – параметр для установки графического драйвера.
GraphMode или Gm – параметр для установки графического режима.
Например: Gd := Vga; Gm := VgaHi; (16 цветов, разрешение экрана - 640х480). Если установить Gd := Detect;, то получим автораспознавание графического драйвера и установка параметра Gm в этом случае не требуется.
Графические драйверы находятся в подкаталоге (папке) BGI.
1) Процедура инициализации графического режима:
InitGraph(Gd,Gm,’C:\PROG\TP\BGI’);
2) Процедура остановки графического режима :
CloseGraph;
3) Процедура установки цвета рисования:
SetColor(<цвет>);
цвет: можно задать целым число, например: 1 - синий и т.д.
4) Процедура установки цвета фона:
SetBkColor(<цвет>);
5) Процедура построения точки:
PutPixel(x,y);
x,y – координаты точки (целые числа):

y .
GetMaxY=480
6) Процедура построения отрезка:
L


x1 x2
x1,y1,x2,y2 – целые числа
LineTo(x,y); - продолжа -
y1 ет линию в точку (x,y).
y2
7) Процедура построения прямоугольника:
Rectangle(x1,y1,x2,y2);
x1 x2

y1
y2
x2,y2
8) Процедура построения закрашенного прямоугольника:
Bar(x1,y1,x2,y2);
x1 x2

y1
y2
x2,y2
9) Процедура построения окружности:
Circle(x,y,R);
x

y
R
10) Процедура выбора стиля линии:
SetLineStyle(<стиль>,0,<толщина>);
а) стиль:
S

D

б) толщина:
N


T

11) Процедура выбора типа закраски:
SetFillStyle(<стиль>,0,<цвет>);
а) стиль:
S


XHatchFill – сетчатка ( ). Можно указать цифру 8;
12) Процедура закраски:
FloodFill(x,y,<цвет>);
x,y – координаты точки, с которой начинается закраска; цвет – цвет границы области закраски.
13) Процедура установки текущего шрифта Font и его размера Size:
SetTextStyle(<Font >,<направление>,< Size>);
а) Font – вид шрифта можно указать целым число (от 0 до 4);
б) направление: 0- слева направо, 1 – снизу вверх;
в) Size – размер (целое число) определяет программист.
14) Процедура вывода текста:
OutTextXY(x,y,’<строка текста>’ или <строковая переменная>);
15) Процедура перемещения графического указателя в точку (x,y):
MoveTo(x,y);
16) Процедура перемещения графического указателя на расстояние dx и dy:
LineRel(dx,dy);
3. Примеры программы на Turbo Pascal.

Program gr1;
Uses Crt, Graph;
Var Gd,Gm,i: integer;
BEGIN
ClrScr;
Gd:=Detect;
InitGraph(Gd,Gm,’c:\prog\tp\bgi’);
For i:=0 to 15 do
begin
SetColor(i);
Line(0,20*i,640,20*i)
end;
Until keypressed;
CloseGraph;
END. Результат
4. Задание на дом:
с. 191 – 194
Задача:
1. Построить рисунок – конверт (прямоугольник размером 600х400 с двумя диагоналями.
2. Нарисовать 10 вертикальных отрезков заданного цвета.