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

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

PROGRAM PRG11_MAY;






USES GRAPH, CRT;

VAR DRIVER, MODE, X, Y, X1, Y1, R: INTEGER;

BEGIN

R:= 80;

X:= R*2;

X1:= R*3;

Y:= R*2;

Y1:= R*3;

DRIVER:= DETECT;

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

SETCOLOR(I);

SETTEXTSTYLE(O, 0, 3);

REPEAT

X:= X+RANDOM(10);

Y:= Y+RANDOM(10);

SETFILLSTYLE(1, 13);

BAR(X, Y, X+R, Y+R);

OUTTEXTXY(X+5, Y+15,'КТО');

SETFILLSTYLE(1, 14);

X1:= X1-RANDOM(10);

Y1:= Y1-RANDOM(10);

BAR(X1, Y1, X1+2*R, Y1+R);

OUTTEXTXY(X1+5, Y1+15, 'СКАЗАЛ');

SETFILLSTYLE(1, 2);

FILLELLIPSE(Y, 2*X1, R, R);

OUTTEXTXY(Y-30, 2*X1-10, 'МЯУ');

DELAY(1500);

CLEARDEVICE;

UNTIL (KEYPRESSED);

CLOSEGRAPH;

END.

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

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

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

- рисуем два прямоугольника и круг с текстом;

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

Переменные:

X, Y, XI, Y1 - случайные координаты;

R - радиус;

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

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

Задача 11.13 Построить движущиеся изображения НЛО на фоне звездного неба.

PROGRAM PRG11_NLO;

USES GRAPH, CRT;

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

BEGIN

R:= 40;

X:= R*5;

Y:= R*2;

DRIVER:= DETECT;

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

SETCOLOR(3);

FOR I:= 1 TO 600 DO

PUTPIXEL(RANDOM(I), RANDOM(I), I);

REPEAT

ELLIPSE(X, Y, 0, 360, R, (R DIV 3)+2);

ELLIPSE(X, Y-4, 190, 357, R, R DIV 3);

LINE(X-17, Y-16, X-25, Y-22);

LINE(X+17, Y-16, X+25, Y-22);

CIRCLE(X+25, Y-25, 2);

CIRCLE(X-25, Y-25, 2);

SETFILLSTYLE(1, 3);

FLOODFILL(X+1, Y+4, 3);

DELAY(150);

CLEARDEVICE;

FOR I:= 1 TO 600 DO

PUTPIXEL(RANDOM(I), RANDOM(I), I);

X:= X+RANDOM(10);

Y:= Y+RANDOM(10);

UNTIL (KEYPRESSED);

CLOSEGRAPH

END.

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

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

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

- организуем безусловный цикл по переменной I и рисуем звездное небо;

- организуем цикл до тех пор, пока не будет нажата любая клавиша;

- в этом цикле рисуем НЛО с помощью двух эллипсов, двух линий и двух маленьких кружочков, держим его на экране, затем стираем изображение процедурой CLEARDEVICE;

- опять рисуем звездное небо;

- определяем случайным образом координаты следующего изображения НЛО;

- после нажатия любой клавиши закрьшаем графический режим.

Переменные:

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

R - радиус;

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

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

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

Та же самая программа может быть написана с использовани­ем пары процедур GETIMAGE(LX, LY, RX, RY, SAUCER") и PUTIMAGE(X, Y, SAUCER", XORPUT) [4].

Процедура GETIMAGE(LX, LY, RX, RY, SAUCER") помещает изображение в буфер, a PUTIMAGE(X, Y, SAUCER", XORPUT) выводит в заданное место изображение. Параметр XORPUT опре­деляет способ вывода на экран - исключающее ИЛИ. Например, операторами

GETIMAGE(LX, LY, RX, RY, SAUCER*);







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



Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...

Логические цифровые микросхемы Более сложные элементы цифровой схемотехники (триггеры, мультиплексоры, декодеры и т.д.) не имеют...

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

Тема: Кинематика поступательного и вращательного движения. 1. Твердое тело начинает вращаться вокруг оси Z с угловой скоростью, проекция которой изменяется со временем 1. Твердое тело начинает вращаться вокруг оси Z с угловой скоростью...

Условия приобретения статуса индивидуального предпринимателя. В соответствии с п. 1 ст. 23 ГК РФ гражданин вправе заниматься предпринимательской деятельностью без образования юридического лица с момента государственной регистрации в качестве индивидуального предпринимателя. Каковы же условия такой регистрации и...

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

Именные части речи, их общие и отличительные признаки Именные части речи в русском языке — это имя существительное, имя прилагательное, имя числительное, местоимение...

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

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