Мета:Уміти створювати лінійні програми, використовуючи функції і процедури модуля Graph, розрізняти роботу текстового і графічного режимів екрану
Теоретичні відомості
Графічний екран дисплея складається з точок, що світяться різним кольором: пікселів. Кількість точок, що підтримує Turbo Pascal 640 по горизонталі і 480 по вертикалі, при чому точка з координатами (0;0) знаходиться в лівому верхньому куті екрану.
Для роботи з графічним екраном створений модуль Graph.Обов’язково потрібен файл egavga.bgi.
Графічний режим спочатку треба задати. Це виконують так:
Var driver, mode: integer; {для характеристики дисплея}
Begin
Driver:=detect; { стандартна стала}
Initgraph (driver, mode, ‘’); {задання графічного режиму}
If graphresult < > 0 then
Begin
Writeln(‘граф. режим не задано’);
Halt
End;
Приклад програми в графічному режимі:
Program emblema;
Uses crt, graph;
Var
dr, mode: integer;
begin clrscr;
Driver:=detect; { стандартна стала}
Initgraph (driver, mode, ‘’); {задання графічного режиму}
SetBkColor(2);
SetColor(3);
Rectangle (100,0,300,200);
Setfillstyle(1,3);
Floodfill(200,100,3);
Setcolor(14);
Circle (200,100,100);
Setfillstyle(1,14);
Floodfill(200,100,14);
SetColor(0);
Circle (200,100,100);
Settextstyle(0,0,3);
OutTextxy(135,95,’АТВ’);
Readln;
Closegraph;
End.
