2015-03-27
534
Line(x1,y1,x2,y2: integer) – рисует на экране отрезок, соединяющий точки (x1,y1) и (x2,y2).
По умолчанию, цвет линий белый. Для изменения текущего цвета используется процедура
SetColor(Color: word) – нужно указать число, являющееся кодом цвета (0..15).
SetBkColor(Color: word) – устанавливает текущий цвет фона;
PutPixel(x,y: integer; Pixel:word) – рисует точку с координатами (x,y) и цветом Pixel.
Rectangle(x1,y1,x2,y2: integer) – строит контур прямоугольника из линий текущего цвета.
Circle(x,y: integer; r:word) – строит окружность с центром в точке (x,y) и радиусом r.
Arc(x,y: integer; StA,EndA,Radius:word) – рисует дугу окружности текущим цветом в центром в точке (x,y) и радиусом Radius, где StA,EndA – начальный и конечный угол в градусах.
Ellipse (x,y: integer; StA,EndA:word; xr,yr:word) – рисует дугу эллипса текущим цветом в центром в точке (x,y), где StA,EndA – начальный и конечный угол в градусах, xr,yr – горизонтальная и вертикальная полуоси эллипса.
SetLineStyle(Ln, P, T) – изменение параметров линий, где Ln – стиль линии (0- сплошная, 1 – пунктирная, 2 – штрихпунктирная, 3 – штриховая), T – толщина линии (1-нормальная, 3- толстая), P – шаблон.
Порядок выполнения работы:
1) Запустите программу Turbo Pascal.
2) Нарисуйте разноцветную «ромашку», используя рисования окружности и эллипса. Откомпилируйте программу. Проверьте правильность решения задачи.
3) Нарисуйте олимпийский флаг.
Откомпилируйте программу. Проверьте правильность решения задачи.
4) Изобразите год вашего рождения и инициалы.
Откомпилируйте программу. Проверьте правильность решения задачи.
5) Нарисуйте три окружности с заключенными в них треугольником, квадратом и звездой. Все фигуры должны быть разного цвета. Откомпилируйте программу. Проверьте правильность решения задачи.
6) Запишите полученные результаты в тетрадь. Оформите отчет о проделанной работе, который должен содержать тему, цель работы, формулировки задач с решениями.
7) Выйдите из программы Turbo Pascal.
Лабораторная работа №15
