Практическая работа на тему "Графические операторы в Pascal ABC"

1. Постановка ТЕМЫ ЧТО МЫ БУДЕМ ИЗУЧАТЬ? Оцениван ие КАКИЕ ЗНАНИЯ НАМ НЕОБХОДИМЫ ЧТОБЫ ИЗУЧИТЬ НОВЫЙ МАТЕРИАЛ 2.Формулирование цели (чему научимся) 3. Графический экран PasсalABC (по умолчанию) содержит 640 точек по горизонтали и 480 точек по вертикали. {подключение модуля GraphAbc} Program z1 ; uses graphabc; begin setwindowsize(640,480); {устанавливает размеры графического окна} 4. Рисуем точку красного цвета Оператор: SetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом color Измените программу Нарисуйте точку, которая находится ближе к левому верхнему углу, цвет синий О выполнении сообщи учителю Наберите программу и посмотрите результат: program z1; uses GraphABC; begin SetPixel(300,200,clred); end. 5. Рисуем линию Операторы: Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color. SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям. Измените программу: - уменьшите толщину; - измените цвет на синий; - горизонтальное расположение линии О выполнении сообщи учителю Наберите программу и посмотрите результат: Program z2; uses GraphABC; begin setpenwidth(20); setpencolor(clred); line(30,30,400,350); end. 6. Рисуем треугольник Оператор: FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с точки (x,y). Наберите программу и посмотрите результат: Program tz3; uses GraphABC; begin setpenwidth(20); setpencolor(clred); line(300,100,500,300); line(100,300,500,300); line(300,100,100,300); floodfill(300,200,clgreen); end. 7. Рисуем прямоугольник Оператор: Rectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2). Наберите программу и посмотрите результат: Program pryamougolnik; uses GraphABC; begin Rectangle(50,50,200,200); end. Наберите программу и посмотрите результат: Измените программу: Нарисуйте треугольник (измените координаты) О выполнении сообщи учителю Измените программу: Нарисуйте прямоугольник (вытянутый по горизонтали, измените координаты) О выполнении сообщи учителю Program pryamougolnik; uses GraphABC; begin SetPenColor(clre d); SetPenWidth(20 ); Rectangle(50,50 ,200,200); FloodFill(100,10 0,clBlue); end. 8. Рисуем круг, эллипс, дугу Операторы: Ellipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2). Circle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r. Arc(x,y,r,a1,a2) - Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки). Наберите программу и посмотрите результат: Program circle1; uses GraphABC; begin Circle(500,200,100); FloodFill(500,200,clred); end. Наберите программу и посмотрите результат: Program oval; uses GraphABC; begin Ellipse(50,50,200,350); Цвета в PascalABC: clBlack – черный clPurple – фиолетовый clWhite – белый clMaroon – темно-красный clRed – красный clNavy – темно-синий clGreen – зеленый clBrown – коричневый clBlue – синий clSkyBlue – голубой clYellow – желтый clCream – кремовый Нарисуйте FloodFill(150,150,clred); Ellipse(250,150,550,300); FloodFill(350,250,clBlue); end. Наберите программу и посмотрите результат: Program duga; uses GraphABC; Begin SetPenWidth(10); Arc(300,250,150,45,135); end.