Студопедия — PROGRAM PRG11_9;
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

PROGRAM PRG11_9;






USES GRAPH, CRT;

VAR DRIVER, MODE, X, Y, I, T, Y0: INTEGER;

BEGIN

DRIVER:= DETECT;

INITGRAPH(DRIVER, MODE, 'C: \BP\BGI'); SETCOLOR(3);

SETFILLSTYLE(1, 1);

FLOODFILL(1, 4, 1);

T:= -4;

Y0:= 10;

SETCOLOR(16);

FOR I:= 1 TO 150 DO

BEGIN

T:= T+2;

Y0:= Y0+3;

X:= GETMAXX DIV 2 +TRUNC(COS(T/10)*I);

Y := Y0-TRUNC(SIN(T/10)*l);

SETFILLSTYLE(1, 14);

FILLELLIPSE(X, Y, 20, 20);

DELAY(IOO);

END;

REPEAT

UNTIL KEYPRESSED;

CLOSEGRAPH

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- инициируем модуль GRAPH;

- устанавливаем начальное значения угла поворота, цвет за­ливки кругов и цвет фона;

- организуем цикл, в котором располагаем центры кругов по разворачивающейся спирали, вычисляя их координаты с помощью уравнения окружности;

- фиксируем рисунок до тех пор, пока не будет нажата любая клавиша.

Переменные:

X, Y - координаты центра очередного маленького круга;

У0 - смещение кругов по вертикали;

I - переменная цикла;

Т - угол поворота;

DRIVER - тип графического драйвера;

MODE - режим работы графического адаптера.

Задача 11.10 Построить семейство одинаковых окружностей, центры которых лежат на горизонтально вра­щающемся отрезке, левый конец которого закре­плен.

PROGRAM PRG11_10;

USES GRAPH, CRT;

VAR DRIVER, MODE, X, Y, I, T, XO: INTEGER;

BEGIN

DRIVER:= DETECT;

INITGRAPH(DRIVER, MODE, 'C: \BP\BGI');

SETFILLSTYLE(1, 1);

FL00DFILL(1, 4, 1);

T:= -4;

X0:= 10;

SETCOLOR(O);

FOR I:= 1 TO 155 DO

BEGIN

T:= T+2;

X0:= X0+4;

X:= X0 +TRUNC(COS(T/10)*I);

Y:= GETMAXY DIV 2-TRUNC(SIN(T/10)*l);







Дата добавления: 2015-09-07; просмотров: 328. Нарушение авторских прав; Мы поможем в написании вашей работы!



Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...

Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

КОНСТРУКЦИЯ КОЛЕСНОЙ ПАРЫ ВАГОНА Тип колёсной пары определяется типом оси и диаметром колес. Согласно ГОСТ 4835-2006* устанавливаются типы колесных пар для грузовых вагонов с осями РУ1Ш и РВ2Ш и колесами диаметром по кругу катания 957 мм. Номинальный диаметр колеса – 950 мм...

Философские школы эпохи эллинизма (неоплатонизм, эпикуреизм, стоицизм, скептицизм). Эпоха эллинизма со времени походов Александра Македонского, в результате которых была образована гигантская империя от Индии на востоке до Греции и Македонии на западе...

Демографияда "Демографиялық жарылыс" дегеніміз не? Демография (грекше демос — халық) — халықтың құрылымын...

Седалищно-прямокишечная ямка Седалищно-прямокишечная (анальная) ямка, fossa ischiorectalis (ischioanalis) – это парное углубление в области промежности, находящееся по бокам от конечного отдела прямой кишки и седалищных бугров, заполненное жировой клетчаткой, сосудами, нервами и...

Основные структурные физиотерапевтические подразделения Физиотерапевтическое подразделение является одним из структурных подразделений лечебно-профилактического учреждения, которое предназначено для оказания физиотерапевтической помощи...

Почему важны муниципальные выборы? Туристическая фирма оставляет за собой право, в случае причин непреодолимого характера, вносить некоторые изменения в программу тура без уменьшения общего объема и качества услуг, в том числе предоставлять замену отеля на равнозначный...

Studopedia.info - Студопедия - 2014-2024 год . (0.012 сек.) русская версия | украинская версия