Описание некоторых графических процедур и функций

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 – шаблон.

ПРАКТИЧЕСКАОЕ ЗАНЯТИЕ №15

HАИМЕНОВАНИЕ:Составление и отладка программ с использованием модулей

1.ЦЕЛЬ РАБОТЫ: Научится использовать модули

2.ПОДГОТОВКА К ЗАНЯТИЮ:

2.1. Изучить предложенную литературу.

2.2. Подготовить бланк отчёта.

3.ЛИТЕРАТУРА:

3.1 Белов В.В., Чистякова В.И. Программирование в Delphi: процедурное, объектно-ориентированное, визуальное. Учебное пособие. – М.: Горячая линия – Телеком, 2009

3.2 Голицына О.Л., Попов И.И. Основы алгоритмизации и программирования. – Форум, 2010

3.3Семакин И.Г., Шестаков А.П. Основы алгоритмизации и программирования. – М.: Издательский центр «Академия», 2008

3.4Семакин И.Г., Шестаков А.П. Основы программирования. – М.: Издательский центр «Академия», 2008

4. ПЕРЕЧЕНЬ ОБОРУДОВАНИЯ И ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ:
4.1. Персональный IBM PC.

5.ЗАДАНИЕ:

5.1.5 Наберите программу Muliik и измените скорость перемещения окружности с помощью варьируемых параметров так, чтобы окружность плавно перемещалась.

5.1.2 Организуйте движение второй окружности с независимыми от первой параметрами.

5.2.1 Наберите программу Salut и модифицируйте ее так, чтобы вместо окружности перемещался бы эллипс, все параметры которого также зависели бы от случайных чисел.

5.2.2 Модифицируйте программу так, чтобы вместо эллипса перемещалась бы прямая, координаты и цвет которой зависели бы также от случайных чисел.

6. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ:

6.1 По предложенной литературе изучить необходимый материал;

6.2 Выполнить задания практического занятия и записать листинг программы;

6.3 Дать ответы на контрольные вопросы;

7. СОДЕРЖАНИЕ ОТЧЕТА:

7.1 Наименование и цель работы

7.2 Код программы

7.3 Записать результат (листинг) выполненых заданий.

7.4 Ответы на контрольные вопросы

7.5 Вывод о проделанной работе

8. КОНТРОЛЬНЫЕ ВОПРОСЫ:

8.1 Оператор продолжительности задержки ?

8.2 Что обозначает оператор –SetColor?

8.3 Что обозначает оператор- begin?

8.4 Где используется оператор until?

ПРИЛОЖЕНИЕ: