Основы современных компьютерных технологий
Работа с текстом - часть 2
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 :: Содержание
Содержание
Назад
Вперед