Задания для самостоятельного выполнения.

Вариант	Функция	Вариант	Функция

Тема 20. Создание графических изображений.

1. Изобразить рыбку, плавающую в аквариуме и пускающую пузыри. Перемещение рыбки задается клавишами "влево", "вправо", "вверх", "вниз". Пускание пузырей - пробелом.

2. Изобразить движущийся по дороге легковой автомобиль, останавливающийся по команде с клавиатуры и затем продолжающий движение по другой команде.

3. Нарисовать елку с периодически загорающимися и гаснущими огням и звездой.

4. Ввести с клавиатуры строку длиною до 8 символов и сделать ее циклически бегущей строкой с, периодически по команде с клавиатуры, меняющей цвет и размер.

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

6. Представить в виде мультфильма картину медленного захода солнца за линию горизонта с изменением освещения пейзажа.

7. Представить мультфильм следующего содержания:

a. на экране появляется лицо девочки;

b. девочка подмигивает и улыбается.

8. Изобразить цветок, с которого по команде с клавиатуры постепенно опадают лепестки.

9. Изобразить дерево, с которого медленно по команде с клавиатуры падают листья.

10. Изобразить велосипед, передвигающийся с левой стороны экрана на правую, меняя скорость по команде с клавиатуры.

11. Нарисовать ночной пейзаж с летящей по небу звездой, гаснущей по команде с клавиатуры.

12. Нарисовать пейзаж с радугой, которая возникает постепенно, начиная с красной полосы и заканчивая фиолетовой.

13. Построить движущиеся изображения квадрата, прямоугольника и круга.

14. Вывестина экран систему меню, с помощью которого пользователь выводит на экран круг, квадрат или треугольник заданного цвета и размера.

15. Разработать программу, обрабатывающую массив с выводом гистограммы.

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

17. Разработать программу полета воздушного шарика, который по достижении верхнего края экрана лопается и падает на землю.

18. Разработатьпрограмму, которая рисует на экране прямоугольник размером 3 см на 5 см, а затем по команде с клавиатуры увеличивает его размеры в пять раз.

19. Разработать программу, изображающую на экране движущуюся яхту с парусами, раскрывающимися по команде с клавиатуры.

20. Разработать программу, изображающую на экране движущийся по горизонтали аэростат, с плакатом, опускающимся по команде с клавиатуры.

21. Нарисовать движущийся грузовой автомобиль-самосвал, по команде с клавиатуры, выгружающий содержимое кузова.

22. Разработать программу, изображающую старт и полет космического корабля с управлением по команде с клавиатуры подготовительными процессами.

23. Разработать программу, изображающийся поезд, от которого по команде с клавиатуры отцепляется один вагон.

24. Нарисовать раскачивающиеся качели, амплитуда колебаний которых изменяется по команде с клавиатуры.

25. Нарисовать домик, из трубы которого по команде с клавиатуры поднимается дым.

Тема 21. Динамическая память в программировании графического режима.

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

Пример 1.Изобразить движение шара от нижнего левого угла монитора до правого верхнего.

program pr21;

uses crt, graph;

const r = 20; n = 20;

var pnt: pointer;

d, m: integer;

x, y, dx, dy, size, i: integer;

begin

d:= detect;

initgraph(d, m, 'egavga.bgi');

setcolor(14);

circle(r, r, r);

size:= imagesize(0, 0, 2*r, 2*r);

getmem(pnt, size);

getimage(0, 0, 2*r, 2*r, pnt^);

putimage(0, 0, pnt^, xorput);

x:= 0; y:= getmaxy;

dx:= getmaxx div n;

dy:= getmaxy div n;

repeat

if (x > getmaxx) or (y < 0) then break;

putimage(x, y, pnt^, xorput);

delay(500);

putimage(x, y, pnt^, xorput);

x:= x + dx; y:= y - dy

until false;

freemem(pnt, size);

readkey;

closegraph

end.