Сборник заданий для практических занятий по информатике. Крупенников О.Г - 110 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

109
PROGRAM DETAL;
USES GRAPH;
VAR DRIVER, MODE, ERROR: INTEGER;
BEGIN {инициация графического режима с проверкой наличия ошибок
инициации}
DRIVER := DETECT;
INITGRAPH (DRIVER, MODE, ’EGAVGA.BGI’);
ERROR := GRAPHRESULT;
IF ERROR<>GROK THEN WRITELN (GRAPHERRORMSG (ERROR))
ELSE
BEGIN
BAR (0, 0, 640, 480); {задание области экрана}
SETBKCOLOR (15); {задание фона экрана}
SETCOLOR (1); {задание цвета линий}
{отображение рамки}
SETLINESTYLE (0, 0, 1);{задание типа линий рамки}
RECTANGLE (200, 20, 450, 280);{графическое отображение рамки}
{графическое отображение главного вида крышки}
SETLINESTYLE (0, 0, 3);{задание типа основных линий}
RECTANGLE (290, 40, 350, 60);{графическое отображение верхне-
го
прямоугольника}
RECTANGLE (260, 60, 380, 80);{графическое отображение нижне-
го прямоугольника}
SETLINESTYLE (2, 0, 1);{задание типа осевых линий}
LINE (320, 35, 320, 85);{графическое отображение осевой линии}
{графическое отображение вида сверху крышки}
SETLINESTYLE (0, 0, 3);{задание типа основных линий}
RECTANGLE (260, 100, 380, 260);{графическое отображение пря-
моугольника}
CIRCLE (320, 180, 30);{графическое отображение окружности,
расположенной по центру}

Страницы