Налагодження і отримання результатів
Виконати самостійно
Приклад. Написати програму побудови графіка функції y = x 2 для x в€€ [-1; 1].
Етапи розробки програми зведені в таблицю.
Таблиця
N
Етапи програмування
Виконання
1. /Td>
Постановка завдання
Побудувати графік функції y = x 2 для x в€€ [-1; 1]. /Td>
2. /Td>
Математичний опис
Зобразимо вигляд екрану, який ми хотіли б отримати після виконання програми.
В
3. /Td>
Розробка структограмми
В
4. /Td>
Написання програми
Program P6;
Uses graph;
Var gd, gm: integer;
x, y: real;
x0, y0, xm, ym, Mx, My: integer;
begin
gd: = detect;
InitGraph (gd, gm, '');
Mx: = 300; x0: = 320; My: = 440; y0: = 460;
{ обрані для монітора 640 Г— 480 пікс. }
For xm: = 20 to 620 do
Begin
x: = (xm-x0)/Mx;
y: = sqr (x);
ym: = round (y0-y * My);
PutPixel (xm, ym, 1);
End;
Readln;
CloseGraph;
End.
5. /Td>
Налагодження і отримання результатів
Виконати самостійно
В
Модуль Graph
ТР має досить різноманітними засобами для роботи зі стандартним VGA екраном (можливо також використання і та інших типів відеоадаптерів).
VGA адаптер має дозвіл 640х480 піксел (точка (0,0) в лівому верхньому кутку екрану), 16 кольорів. p> Перед початком роботи з графікою необхідно її ініціалізувати, а по закінченні - "закрити". Всі графічні процедури і функції знаходяться в модулі Graph, тому також необхідно його підключення.
Загальна структура графічної програми :
Uses crt, graph;
var Gd, Gm: Integer;
begin
Gd: = Detect;
InitGraph (Gd, Gm, 'c: bp bgi');
...
{Тут побудова зображення}
...
ReadKey;
CloseGraph;
end.
Шлях c: bp bgi вказує розташування файлу egavga. bgi (драйвер графічного адаптера). На різний комп'ютерах цей шлях може бути різним. Якщо файл egavga. bgi помістити в каталог з програмою, то шлях можна не вказувати.
Основні графічні процедури та функції :
Побудова фігур
PutPixel (x, y, c) - відображає на екрані точку з координатами (x, y) і кольором c
Line (x1, y1, x2, y2) - малює лінію з початком у точці (x1, y1) і кінцем - (x2, y2)
Rectangle (x1, y1, x2, y2) - малює контур прямокутника з діагоналлю (x1, y1) - (x2, y2)
Bar (x1, y1, x2, y2) - малює зафарбований прямокутник з діагоналлю (x1, y1) - (x2, y2)
Circle (x, y, r) - малює коло з центром (x, y) і радіусом r
Ellipse (x, y, ba, ea, xr, yr) - малює дугу еліпса з центром в (x, y), горизонтальним і вертикальним радіусом xr і yr, і початковим і кінцевим кутом ba і ea
FillEllipse (x, y, xr, yr) - малює зафарбований еліпс з центром в (x, y), горизонтальним і вертикальним радіусом xr і yr
Визначення кольорів і стилів
GetPixel (x, y) - повертає колір пікселя з координатами (x, y)
SetColor (c) - встановлює колір зображення (для ліній)
SetFillStyle (p, c) - встановлює поточний стиль p і колір c (для "зафарбованих" фігур)
FloodFill (x, y, b) - зафарбовує замкнуту область з внутрішньою точкою (x, y) і кольором контуру b
Робота з текстом
OutTextXY (x, y, st) - виводить на екран рядок st з позиції (x, y)
SetTextStyle (f, d, s) - встановлює шрифт f, його напрямок d і розмір
Повідомлення про помилки
function GraphErrorMsg (ErrorCode: integer): String; Повертає рядок повідомлення про помилку для заданого коду ErrorCode.
function GraphResult: integer; Повертає код помилки для останньої графічної операції. p> Визначення адаптера, ініціалізація і перехід між текстом і графікою
procedure DetectGraph (var GraphDriver, GraphMode: integer); Перевіряє апаратуру і...
