ЛР№13_Модуль_Graph
.pdfПрограммирование
Лабораторная работа Процедуры и функции модуля GRAPH
Цель: составить и отладить программу, использующую внешний модуль. Задачи: рассмотреть структуру модуля; научиться создавать модули; изучить
основные процедуры и функции модуля GRAPH.
Оборудование и ПО: компьютер, ОС Windows XP, Turbo Pascal (или ABC Pascal).
Указание 1. Перед выполнением практических заданий изучите материал лекции по теме «Процедуры и функции модуля GRAPH».
Указание 2. Задания выполняются по вариантам. Номер варианта каждого задания совпадает с номером студента в списке группы (подгруппы).
ПРАКТИЧЕСКИЕ ЗАДАНИЯ
Задание 1. Разработать программу с использованием процедур и функций модуля Graph.
Варианты заданий
Вариант 1,6.
1.Инициализацию графического режима организовать в виде отдельной процедуры с анализом GraphResult.
2.Определить размеры и центр экрана в графическом режиме.
3.Переместить курсор в точку с координатами (180,180) с помощью процедуры MoveTo и затем в точку (310,180) процедурой MoveRel.
4.Нарисовать в нижней, левой четверти экрана 150 точек, выбирая координаты и цвета случайным образом.
5.Очистить экран.
6.Нарисовать на экране множество линий разного стиля и цвета, используя все возможные процедуры.
7.Определить положение графического курсора.
8.Перейти в текстовый режим и вывести на экран координаты графического курсора и размеры экрана. Вернуться в графический режим.
9.Разделить экран на четыре равные части.
1
Программирование
10.В верхней, левой четверти нарисовать три окружности, имеющие общий центр и радиусы 24, 28, 32. Линии окружностей должны быть разного цвета.
11.В правой верхней и левой нижней четвертях аналогично п.10
нарисовать эллипсы и дуги (радиусы и углы выбрать самостоятельно).
12.В оставшейся четверти нарисовать 5 прямоугольников, имеющих линии контура различных стилей и толщины, причем для самого внешнего контура шаблон разработать самостоятельно.
13.Очистить экран.
14.Нарисовать несколько многоугольников, линии контуров которых должны иметь различный цвет.
15.Закрыть графический режим.
Примечание: перед выводом каждого нового изображения останавливать процесс решения для просмотра.
Вариант 2,7.
1.Инициализацию графического режима организовать в виде отдельной процедуры с анализом GraphResult.
2.Определить размеры и центр экрана в графическом режиме.
3.Переместить курсор в точку с координатами (50,150) с помощью процедуры
MoveTo и затем в точку (350,200) процедурой MoveRel.
4.Нарисовать в верхней левой четверти экрана 200 точек, выбирая координаты и цвета случайным образом.
5.Очистить экран.
6.Нарисовать на экране множество линий разного стиля и цвета, используя все возможные процедуры рисования линий.
7.Определить положение графического курсора.
8.Перейти в текстовый режим и вывести на экран координаты графического курсора и размеры экрана. Вернуться в графический режим.
9.Разделить экран на четыре части: провести диагонали через центр экрана.
10.В верхней четверти нарисовать три окружности, имеющие общий центр и радиусы 25, 30, 35. Линии окружностей должны быть разного цвета.
2
Программирование
11.В левой и нижней четверти, аналогично п.10, нарисовать эллипсы и дуги (радиусы и углы выбрать самостоятельно).
12.В оставшейся четверти нарисовать 5 прямоугольников, имеющих линии контура различных стилей и толщины, причем для самого внешнего контура шаблон разработать самостоятельно.
13.Очистить экран.
14.Нарисовать 5 треугольников, линии контуров которых должны иметь различный цвет.
15.Закрыть графический режим.
Примечание: перед выводом каждого нового изображения останавливать процесс решения для просмотра.
Вариант 3,8.
1.Инициализацию графического режима организовать в виде отдельной процедуры с анализом GraphResult.
2.Определить размеры и центр экрана в графическом режиме.
3.Переместить курсор в точку с координатами (80,180) с помощью процедуры
MoveTo и затем в точку (210,180) процедурой MoveRel.
4.Нарисовать в нижней, правой четверти экрана 100 точек, выбирая координаты и цвета случайным образом.
5.Очистить экран.
6.Нарисовать на экране множество линий разного стиля и цвета, используя все возможные процедуры.
7.Определить положение графического курсора.
8.Перейти в текстовый режим и вывести на экран координаты графического курсора и размеры экрана. Вернуться в графический режим.
9.Разделить экран на четыре равные части.
10.В верхней, левой четверти нарисовать три окружности, имеющие общий центр и радиусы 14, 26, 36. Линии окружностей должны быть разного цвета.
11.В правой верхней и левой нижней четвертях аналогично п.10 нарисовать эллипсы и дуги (радиусы и углы выбрать самостоятельно).
3
Программирование
12.В оставшейся четверти нарисовать 5 прямоугольников, имеющих линии контура различных стилей и толщины, причем для самого внешнего контура шаблон разработать самостоятельно.
13.Очистить экран.
14.Нарисовать 3 пятиугольника, линии контуров которых должны иметь различный цвет.
15.Закрыть графический режим.
Примечание: перед выводом каждого нового изображения останавливать процесс решения для просмотра.
Вариант 4,9.
1.Инициализацию графического режима организовать в виде отдельной процедуры с анализом GraphResult.
2.Определить размеры и центр экрана в графическом режиме.
3.Переместить курсор в точку с координатами (500,150) с помощью процедуры MoveTo и затем в точку (500,200) процедурой MoveRel.
4.Нарисовать в верхней левой четверти экрана 200 точек, выбирая координаты и цвета случайным образом.
5.Очистить экран.
6.Нарисовать на экране множество линий разного стиля и цвета, используя все возможные процедуры рисования линий.
7.Определить положение графического курсора.
8.Перейти в текстовый режим и вывести на экран координаты графического курсора и размеры экрана. Вернуться в графический режим.
9.Разделить экран на четыре части: провести диагонали через центр экрана.
10.В верхней четверти нарисовать три окружности, имеющие общий центр и радиусы 26, 32, 38. Линии окружностей должны быть разного цвета.
11.В левой и нижней четверти, аналогично п.10, нарисовать эллипсы и дуги (радиусы и углы выбрать самостоятельно).
4
Программирование
12.В оставшейся четверти нарисовать 5 прямоугольников, имеющих линии контура различных стилей и толщины, причем для самого внешнего контура шаблон разработать самостоятельно.
13.Очистить экран.
14.Нарисовать два шестиугольника, линии контуров которых должны иметь различный цвет.
15.Закрыть графический режим.
Примечание: перед выводом каждого нового изображения останавливать процесс решения для просмотра.
Вариант 5,10.
1.Инициализацию графического режима организовать в виде отдельной процедуры с анализом GraphResult.
2.Определить размеры и центр экрана в графическом режиме.
3.Переместить курсор в точку с координатами (380,380) с помощью процедуры MoveTo и затем в точку (310,380) процедурой MoveRel.
4.Нарисовать в нижней, левой четверти экрана 120 точек, выбирая координаты и цвета случайным образом.
5.Очистить экран.
6.Нарисовать на экране множество линий разного стиля и цвета, используя все возможные процедуры.
7.Определить положение графического курсора.
8.Перейти в текстовый режим и вывести на экран координаты графического курсора и размеры экрана. Вернуться в графический режим.
9.Разделить экран на четыре равные части.
10.В верхней, левой четверти нарисовать три окружности, имеющие общий центр и радиусы 34, 38, 42. Линии окружностей должны быть разного цвета.
11.В правой верхней и левой нижней четвертях аналогично п.10 нарисовать эллипсы и дуги (радиусы и углы выбрать самостоятельно).
5
Программирование
12.В оставшейся четверти нарисовать 5 прямоугольников, имеющих линии контура различных стилей и толщины, причем для самого внешнего контура шаблон разработать самостоятельно.
13.Очистить экран.
14.Нарисовать треугольник и шестиугольник, линии контуров которых должны иметь различный цвет.
15.Закрыть графический режим.
Примечание: перед выводом каждого нового изображения останавливать процесс решения для просмотра.
Задание 2. Разработать программу с использованием процедур и функций модуля Graph.
Варианты заданий
Вариант 1.
1.Построить залитый прямоугольник с координатами х1 = 20, y1 = 20, x2 = maxx-20, y2 = maxy-20, maxx, maxy - размеры экрана (тип заливки - 5, цвет -
красный).
2.Построить три одинаковых по высоте и различных по ширине и глубине параллелепипеда, c различными типами заливки и различным цветом.
3.На каждой из построенных фигур указать площадь, предварительно их вычислив.
4.Изменить цвет красный в палитре на цвет синий, используя процедуру
SetPalette.
5.Определить и вывести в центр экрана сообщение о количестве цветов в палитре. Очистить экран.
6.Нарисовать залитые сектор, многоугольник, круг, подписать их названия, используя шрифты различного размера.
7.Очистить экран.
8.Разделить экран на две части, для чего провести диагональ из левого верхнего угла.
6
Программирование
9.В верхней половине вывести любой текст различными шрифтами и разных размеров (начиная с самого большого) в горизонтальном направлении, а в нижней -
ввертикальном.
10.Очистить экран.
Вариант 2.
1.Построить залитый прямоугольник с координатами х1=25, y1=25, x2=maxx25, y2=maxy-25, где maxx, maxy - размеры экрана (тип заливки - 4, цвет - желтый).
2.Построить три одинаковых по высоте и различных по ширине и глубине параллелепипеда, закрашенных различными типами заливки и различным цветом.
3.На каждой из построенных фигур указать площадь, предварительно их вычислив.
4.Изменить цвет yеlloy в палитре на цвет blue, используя процедуру SetPalette.
5.Определить и вывести в центр экрана сообщение о количестве цветов в палитре. Очистить экран.
6.Нарисовать залитые сектор, многоугольник, круг, подписать их названия, используя шрифты различного размера.
7.Очистить экран.
8.Разделить экран на две части, для чего провести диагональ из правого верхнего угла.
9.В верхней половине вывести любой текст различными шрифтами и разных размеров (начиная с самого большого) в горизонтальном направлении, а нижней - в вертикальном.
10.Очистить экран.
Вариант 3.
1.Построить залитый прямоугольник с координатами х1 = 40, y1 = 20, x2 = maxx-40, y2 = maxy-20, maxx, maxy - размеры экрана (тип заливки - 2, цвет -
зеленый).
2.Построить три одинаковых по высоте и различных по ширине и глубине параллелепипеда, c различными типами заливки и различным цветом.
7
Программирование
3.На каждой из построенных фигур указать площадь, предварительно их вычислив.
4.Изменить цвет зеленый в палитре на цвет красный, используя процедуру
SetPalette.
5.Определить и вывести в центр экрана сообщение о количестве цветов в палитре. Очистить экран.
6.Нарисовать залитые сектор, многоугольник, круг, подписать их названия, используя шрифты различного размера.
7.Очистить экран.
8.Разделить экран на две части, для чего провести диагональ из левого верхнего угла.
9.В верхней половине вывести любой текст различными шрифтами и разных размеров (начиная с самого большого) в горизонтальном направлении, а в нижней -
ввертикальном.
10.Очистить экран.
Вариант 4.
1.Построить залитый прямоугольник с координатами х1 = 25, y1 = 10, x2 = maxx-25, y2 = maxy-10, maxx, maxy - размеры экрана (тип заливки - 3, цвет - ярко-
красный).
2.Построить три одинаковых по высоте и различных по ширине и глубине параллелепипеда, c различными типами заливки и различным цветом.
3.На каждой из построенных фигур указать площадь, предварительно их вычислив.
4.Изменить цвет ярко-красный в палитре на цвет голубой, используя процедуру SetPalette.
5.Определить и вывести в центр экрана сообщение о количестве цветов в палитре. Очистить экран.
6.Нарисовать залитые сектор, многоугольник, круг, подписать их названия, используя шрифты различного размера.
7.Очистить экран.
8
Программирование
8.Разделить экран на две части, для чего провести диагональ из правого верхнего угла.
9.В верхней половине вывести любой текст различными шрифтами и разных размеров (начиная с самого большого) в горизонтальном направлении, а в нижней -
ввертикальном.
10.Очистить экран.
Вариант 5.
1.Построить залитый прямоугольник с координатами х1 = 20, y1 = 20, x2 = maxx-20, y2 = maxy-20, maxx, maxy - размеры экрана (тип заливки - 5, цвет -
красный).
2.Построить три одинаковых по высоте и различных по ширине и глубине параллелепипеда, c различными типами заливки и различным цветом.
3.На каждой из построенных фигур указать площадь, предварительно их вычислив.
4.Изменить цвет красный в палитре на цвет синий, используя процедуру
SetPalette.
5.Определить и вывести в центр экрана сообщение о количестве цветов в палитре. Очистить экран.
6.Нарисовать залитые сектор, многоугольник, круг, подписать их названия, используя шрифты различного размера.
7.Очистить экран.
8.Разделить экран на две части, для чего провести диагональ из левого верхнего угла.
9.В верхней половине вывести любой текст различными шрифтами и разных размеров (начиная с самого большого) в горизонтальном направлении, а в нижней -
ввертикальном.
10.Очистить экран.
Вариант 6.
1. Построить залитый прямоугольник с координатами х1=25, y1=25, x2=maxx25, y2=maxy-25, где maxx, maxy - размеры экрана (тип заливки - 4, цвет - желтый).
9
Программирование
2.Построить три одинаковых по высоте и различных по ширине и глубине параллелепипеда, закрашенных различными типами заливки и различным цветом.
3.На каждой из построенных фигур указать площадь, предварительно их вычислив.
4.Изменить цвет yеllow в палитре на цвет blue, используя процедуру
SetPalette.
5.Определить и вывести в центр экрана сообщение о количестве цветов в палитре. Очистить экран.
6.Нарисовать залитые сектор, многоугольник, круг, подписать их названия, используя шрифты различного размера.
7.Очистить экран.
8.Разделить экран на две части, для чего провести диагональ из правого верхнего угла.
9.В верхней половине вывести любой текст различными шрифтами и разных размеров (начиная с самого большого) в горизонтальном направлении, а нижней - в вертикальном.
10.Очистить экран.
Вариант 7.
1.Построить залитый прямоугольник с координатами х1 = 40, y1 = 20, x2 = maxx-40, y2 = maxy-20, maxx, maxy - размеры экрана (тип заливки - 2, цвет -
зеленый).
2.Построить три одинаковых по высоте и различных по ширине и глубине параллелепипеда, c различными типами заливки и различным цветом.
3.На каждой из построенных фигур указать площадь, предварительно их вычислив.
4.Изменить цвет зеленый в палитре на цвет красный, используя процедуру
SetPalette.
5.Определить и вывести в центр экрана сообщение о количестве цветов в палитре. Очистить экран.
10