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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

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




                                Варианты заданий

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

                                   Вариант 2
1. Инициализацию графического режима организовать в виде отдельной
процедуры с анализом GraphResult.
2. Определить размеры и центр экрана в графическом режиме.
3. Переместить курсор в точку с координатами (50,150) с помощью
процедуры MoveTo и затем в точку (350,200) процедурой MoveRel.
4. Нарисовать в верхней левой четверти экрана 200 точек, выбирая
координаты и цвета случайным образом.
5. Очистить экран.
6. Нарисовать на экране множество линий разного стиля и цвета,
используя все возможные процедуры рисования линий.
7. Определить положение графического курсора.
8. Перейти в текстовый режим и вывести на экран координаты графического
курсора и размеры экрана. Вернуться в графический режим.
                                                                          35

Страницы