Примеры задач

Графика

Нарисовать пирамиду из n ярусов разного цвета. N вводится пользователем.

Методика решения

Инициализируем графический режим.

Считываем с экрана n .

С помощью процедуры bar рисуем n ярусов пирамиды. Каждый раз меняем цвет заливки.

Листинг программы

Program ex8_2;

Uses graph ,crt ;

Var gd,gm,i,n,x,y,dx: integer ;

begin

clrscr;

writeln('Vvedite kolichestvo yarysov (ne bolee 10):');

readln(n);

initgraph(gd,gm,'');

y:=479;

x:=300;

dx:=200;

for i:=1 to n do

begin

setfillstyle(1,i);

bar(x-dx,y,x+dx,y-50);

if dx>20 then

dx:=dx-20;

y:=y-51;

end;

repeat until keypressed;

closegraph;

End.

Запустить программу

Назад

X