Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 37 стр.

                                                                             37




1. Инициализацию графического режима организовать в виде отдельной
процедуры с анализом GraphResult.
2. Определить размеры и центр экрана в графическом режиме.
3. Переместить курсор в точку с координатами (500,150) с помощью
процедуры MoveTo и затем в точку (500,200) процедурой MoveRel.
4. Нарисовать в верхней левой четверти экрана 200 точек, выбирая
координаты и цвета случайным образом.
5. Очистить экран.
6. Нарисовать на экране множество линий разного стиля и цвета,
используя все возможные процедуры рисования линий.
7. Определить положение графического курсора.
8. Перейти в текстовый режим и вывести на экран координаты графического
курсора и размеры экрана. Вернуться в графический режим.
9. Разделить экран на четыре части: провести диагонали через центр экрана.
10. В верхней четверти нарисовать три окружности, имеющие общий центр и
радиусы 26, 32, 38. Линии окружностей должны быть разного цвета.
11. В левой и нижней четверти, аналогично п.10, нарисовать эллипсы и дуги
(радиусы и углы выбрать самостоятельно).
12. В оставшейся четверти нарисовать 5 прямоугольников, имеющих
линии контура различных стилей и толщины, причем для самого внешнего
контура шаблон разработать самостоятельно.
13. Очистить экран.
14. Нарисовать два шестиугольника, линии контуров которых
должны иметь различный цвет.
15. Закрыть графический режим.
Примечание: перед выводом каждого нового изображения останавливать
процесс решения для просмотра.

                                   Вариант 5
1.Инициализацию графического режима организовать в виде            отдельной
процедуры с анализом GraphResult.
2. Определить размеры и центр экрана в графическом режиме.
3. Переместить курсор в точку с координатами (380,380) с помощью
процедуры MoveTo и затем в точку (310,380) процедурой MoveRel.
4. Нарисовать в нижней, левой четверти экрана 120 точек, выбирая
координаты и цвета случайным образом.
5. Очистить экран.
6. Нарисовать на экране множество линий разного стиля и цвета,
используя все возможные процедуры.
7. Определить положение графического курсора.
8. Перейти в текстовый режим и вывести на экран координаты графического
курсора и размеры экрана. Вернуться в графический режим.
9. Разделить экран на четыре равные части.
10. В верхней, левой четверти нарисовать три окружности, имеющие общий
центр и радиусы 34, 38, 42. Линии окружностей должны быть разного цвета.
                                                                             37