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

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

PROGRAM PRG11_5;





USES GRAPH, CRT;

VAR DRIVER, MODE, X, Y: INTEGER;

BEGIN

DRIVER:= DETECT;

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

REPEAT

X:= RANDOM(GETMAXX);

Y:= RANDOM(GETMAXY);

LINETO(X, Y);

SETCOLOR(SUCC(RANDOM(16)));

DELAY(25);

UNTIL KEYPRESSED;

CLOSEGRAPH

END.

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

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

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

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

Переменные:

X, Y - координаты конца очередной линии;

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

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

Задача 11.6 По периметру экрана построить семейство разно­цветных квадратиков, а в середине- множество разноцветных точек.

PROGRAM PRG11_6;

USES GRAPH, CRT;

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

BEGIN

DRIVER:= DETECT;

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

I:= 1;

X:= 60;

Y:= 60;

REPEAT

SETFILLSTYLE(1, SUCC(RANDOM(15)));

BAR(I, 1, I+50, 50);

BAR(I, 400, I+50, 450);

BAR(1, I, 50, I+50);

BAR(590, I, 640, I+50);

DELAY(100);

PUTPIXEL(X, Y, SUCC(RANDOM(15));

I:= I+30;

X:= X+10;

Y:= Y+10;

UNTIL l> = GETMAXX;

REPEAT

UNTIL KEYPRESSED;

CLOSEGRAPH

END.

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

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

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

- устанавливаем начальные значения для координат точек и квадратиков;

- организуем цикл, в котором располагаем разноцветные квадратики, размещая их по периметру экрана, и точки в середине экрана до тех пор, пока не будет нажата любая клавиша.

Переменные:

X, Y - координаты очередной точки;

I - координаты очередного квадратика;

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

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

Задача 11.7 Построить семейство одинаковых окружностей, центры которых лежат на окружности большего диаметра.

Для решения данной задачи необходимо воспользоваться уравнением окружности для определения местоположения ма­леньких окружностей где X, Y - координаты точки; Х0, Y0 - координаты центра боль­шой окружности; U - угол вращения; R - радиус большой окруж­ности.







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




Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...


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


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


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

Признаки классификации безопасности Можно выделить следующие признаки классификации безопасности. 1. По признаку масштабности принято различать следующие относительно самостоятельные геополитические уровни и виды безопасности. 1.1. Международная безопасность (глобальная и...

Прием и регистрация больных Пути госпитализации больных в стационар могут быть различны. В цен­тральное приемное отделение больные могут быть доставлены: 1) машиной скорой медицинской помощи в случае возникновения остро­го или обострения хронического заболевания...

ПУНКЦИЯ И КАТЕТЕРИЗАЦИЯ ПОДКЛЮЧИЧНОЙ ВЕНЫ   Пункцию и катетеризацию подключичной вены обычно производит хирург или анестезиолог, иногда — специально обученный терапевт...

Субъективные признаки контрабанды огнестрельного оружия или его основных частей   Переходя к рассмотрению субъективной стороны контрабанды, остановимся на теоретическом понятии субъективной стороны состава преступления...

ЛЕЧЕБНО-ПРОФИЛАКТИЧЕСКОЙ ПОМОЩИ НАСЕЛЕНИЮ В УСЛОВИЯХ ОМС 001. Основными путями развития поликлинической помощи взрослому населению в новых экономических условиях являются все...

МЕТОДИКА ИЗУЧЕНИЯ МОРФЕМНОГО СОСТАВА СЛОВА В НАЧАЛЬНЫХ КЛАССАХ В практике речевого общения широко известен следующий факт: как взрослые...

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