Основы современных компьютерных технологий


                


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


  • 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 :: Содержание


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