Вариант 11

1. Вывести сетку из квадратов со стороной 10 пикселей (10 рядов по вертикали и 10 по горизонтали).

2. Организовать работу подпрограммы пользователя (нарисовать треугольник, закрашенный по произвольному шаблону) при нажатии левой кнопки мыши одновременно с клавишей Shift в активном окне.

3. Создать движущееся изображение: часы с маятником.

Вариант 12

1. Вывести по краям экрана рамку из разноцветных ромбов.

2. В графическом режиме задать характеристики шрифта и выполнить вывод двух произвольных надписей, перемещающихся навстречу друг другу.

3. Вместо стандартного меню View создать пустое меню Control.

1Допускается также вызов графической библиотекиFortranPowerStationMSFLIB

2По умолчанию цвет фона черный.

3WRITEиPRINTможно использовать и в графическом режиме, но вывод будет осуществляться так же, как и в алфавитно-цифровом режиме.

4Получить текущий индекс цвета текста можно с помощью функцииGETTEXTCOLOR( ).

5Узнать характеристики окна можно с помощью функцииGETWINDOWCONFIG (result=GETWINDOWCONFIG(wc))

6По умолчанию заголовок окнаGraphic1.

25