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

Графика


Нарисовать пирамиду из 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.

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






Назад

Закрыть