Написать программу, которая выводит на экран изображение заданного графического объекта - Turbo Pascal

Формулировка задачи:

Написать программу, которая выводит на экран изображение заданного графического объекта (с соблюдением заданной цветовой гаммы). Спасибо.

Код к задаче: «Написать программу, которая выводит на экран изображение заданного графического объекта - Turbo Pascal»

textual
uses graph;
var
Gd, Gm: Integer;
 
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);
 
SetBkColor(15);
 
SetLineStyle(0,0,3);
 
SetColor(1);
Line(120, 320, 470, 320);
Line(470, 320, 380, 400);
Line(380, 400, 120, 400);
Line(120, 400, 120, 320);
 
SetColor(12);
Line(303, 20, 303, 320);
SetColor(8);
Line(300, 20, 300, 320);
 
Line(490, 50, 160, 50);
Line(160, 50, 160, 260);
Line(160,260, 450, 260);
Line(450,260, 450, 50);
 
Readln;
CloseGraph;
end.

11   голосов, оценка 4.364 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы