Элементарная машинная графика 129

 

13.21 (8 б.) Множество точек на плоскости задано своими
координатами. Построить в декартовых координатах
эти точки и выпуклую оболочку множества, то есть мно­
гоугольник минимальной площади, охватывающий все
точки.

13.22 (10 б.) Графический редактор. Используя курсор-пере­
крестие, реализовать возможность ручного построения
фигур с помощью операций: задать цвет (если он есть),
передвинуться, начертить отрезок, «резиновый прямо­
угольник», стереть отрезок, заштриховать (залить) об­
ласть. Код операции задается с клавиатуры.

13.23 (66.) Графическое интегрирование. Для заданного диф­
ференциального уравнения вида y-F{x,y) и началь­
ного условия у(0) = у₀ построить кусочно-линейный
график решения у = /(*), вычисляя у с заданным по­
стоянным шагом по т. у_г = y_t__x + h • F^,..,,>>,_,).

13.24 (4 б.) Медленное печатание. Заданный текст печатать
крупными буквами с некоторыми паузами между бук­
вами, сопровождая каждую букву звуковым щелчком.
Перенос осуществлять только целыми словами.

13.25 (7 б.) Построить мозаику из правильных шестиуголь­
ников заданного размера, закрасив их разными цвета­
ми или применив разные типы штриховок (полутона).

13.26 (8 б.) Счеты. Заданное число (не обязательно целое)
отложить на бухгалтерских счетах, изображенных на
экране.

13.27 (8 б.) Микрокалькулятор. Заданное число изобразить
как на индикаторе микрокалькулятора, используя для
цифр 7-сегментный шаблон.

13.28 (7 б.) Изобразить «рог изобилия», являющийся стили­
зацией закрученного бараньего рога. При построении
полезно использовать математические кривые (спира­
ли, эллипсы и т. д.).

13.29 (7 б.) Подсолнух. Рисунок на шляпке подсолнуха пред­
ставляет собой семейство логарифмических спиралей,

закрученных в разные стороны. Получить такой рису­нок. Между прочим, количество «правых» и «левых» спиралей есть два соседних числа Фибоначчи.

13.30 (8 б.) Изобразить на экране достаточно сложный цве­
ток (георгин, ромашка со случайным числом лепестков,
калина, василек и так далее).

13.31 (7 б.) Дерево. Для заданного п построить двоичное де­
рево, содержащее п уровней (например, генеалогиче­
ское).

13.32 (6 б.) Чешуя. Заполнить экран рисунком рыбьей чешуи
с заданным размером элементарных чешуек.

13.33 (7 б.) Пирамида. Одинаковые трубы в количестве п штук
уложены возможно более компактно — пирамидой.
Получить на экране вид пирамиды с торца для произ­
вольного числа п.

13.34 (7 б.) Всходы. Изобразить на экране всходы какого-
либо растения, посаженного квадратно-гнездовым спо­
собом на грядке или на поле. Учесть перспективу.

13.35 (8 б.) Изобразить в зацеплении две шестерни (зубчатых
колеса) какого-либо механизма; диаметры шестерен
и количество зубьев задаются.

(10 б.) Развитие задачи. Изобразить последовательно зацепленными п шестерен с заданными параметрами; при необходимости смасштабировать чертеж до разме­ров экрана.

5 Зак. №767

132 14. Элементы компьютерной мультипликации

begin

while(i<=n)do begin

j.-i;

while((j and l)=0) do

j:=j shr 1;

r;=j and 3;

Step(r.prescan); end;

end; {Curve} begin

WriteLnC'Порядок кривой?¹);

ReadLn(p);

n;=l;

for i;=l to p do n;=n*2;

GrDriver;= Detect;

InitGraphCGrDriver. GrMode. 'P;\bp\BGI');

x_max;=10;

y_max;=7;

x_ max;=GetMaxX;

у_ max;=GetMaxY;

norfact;=x max/xjnax;

vertfact:=y_ max/y_max;

x;=0;

y:=0;

dx;=4;

dy;=0;

xmin;=10;

xmax;=-10;

ymin;=10;

углах;=-10;

Curve(true);

fx;=x_max/(xmax-xmin);

fy:=y_max/(ymax-ymi n);

if(fx<fy)then f;=fx*0.7 else f:=fy*0.7;

ixC;=(xmin+xmax)div 2;

iyC;=(ymin+ymax)div 2;

xC;=x_max/2;

yC:=y_max/2;

x;=0;

dx;=4;

dy;=0;

GMove(xreal(x+dx div 4),yreal(y));

Curve(false);