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



              

Работа с текстом - часть 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 :: Содержание




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