Вывод прямоугольника, нарисованного зеленой сплошной

Program Zast;

Uses Graph, Crt;

Var DriverVar, ModeVar:integer;

xm.ym :integer;

с :char;

Begin

{ Инициализация графического режима }

DriverVar:=Detect;

InitGraph(DriverVar, Modevar,'');

xm:=GetMaxX; ym:=GetMaxY;

{ Вывод прямоугольника, нарисованного зеленой сплошной жирной линией }

SetColor(2);Setl_ineStyle(0,0,2);

Rectangle(0,0,xm,ym);

{ Вывод прямоугольника, нарисованного голубой сплошной тонкой линией }

SetColor(S); SetLineStyle(0,0,1);

Rectangle(20,20,xm-20,ym-20);

{ Вывод прямоугольника, нарисованного красной пунктирной тонкой линией }

SetColor(4); SetLineStyle(3,0,1);

Rectangle(40,40,xm-40,ym-40);

{ Вывод синего текста с увеличенным размером букв }

SetColor(1); SetTextStyle(0,0,2);

OutTextXY( 100,60,'Демонстрация заставки');

{ Вывод коричневого текста с обычным размером букв }

SetColor(6); SetTextStyle(0,0,1);

OutTextXY( 150,100,'Демонстрация заставки');

{ Ожидание нажатия клавиши }

c:=readkey;

{ Закрытие графического режима }

CloseGraph;

End.

388

387 :: 388 :: Содержание


Содержание  Назад  Вперед

---

---

---

---