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

UptoLike

Составители: 

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




9. Разделить экран на четыре части: провести диагонали через центр экрана.
10. В верхней четверти нарисовать три окружности, имеющие общий центр и
радиусы 25, 30, 35. Линии окружностей должны быть разного цвета.
11. В левой и нижней четверти, аналогично п.10, нарисовать эллипсы и дуги
(радиусы и углы выбрать самостоятельно).
12. В оставшейся четверти нарисовать 5 прямоугольников, имеющих
линии контура различных стилей и толщины, причем для самого внешнего
контура шаблон разработать самостоятельно.
13. Очистить экран.
14. Нарисовать 5 треугольников, линии контуров которых должны иметь
различный цвет.
15. Закрыть графический режим.
Примечание: перед выводом каждого нового изображения останавливать
процесс решения для просмотра.

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

                                  Вариант 4
                                                                             36