Главная Обратная связь

Дисциплины:

Архитектура (936)
Биология (6393)
География (744)
История (25)
Компьютеры (1497)
Кулинария (2184)
Культура (3938)
Литература (5778)
Математика (5918)
Медицина (9278)
Механика (2776)
Образование (13883)
Политика (26404)
Правоведение (321)
Психология (56518)
Религия (1833)
Социология (23400)
Спорт (2350)
Строительство (17942)
Технология (5741)
Транспорт (14634)
Физика (1043)
Философия (440)
Финансы (17336)
Химия (4931)
Экология (6055)
Экономика (9200)
Электроника (7621)






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



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?

 

ПРИЛОЖЕНИЕ:

 


Просмотров 489

Эта страница нарушает авторские права

allrefrs.ru - 2021 год. Все права принадлежат их авторам!