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

Графика


Построить усеченную треугольную пирамиду.

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

Инициализируем графический режим.
Рассчитываем координаты вершин фигуры и соединяем их линиями.

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

Program ex8_1;
Uses crt,graph;
Var gd,gm:integer;
Begin
gd:=detect;
initgraph (gd,gm,'');
line(250,200,350,200);
line(250,200,300,220);
line(300,220,350,200);
line(250,200,200,400);
line(300,220,300,450);
line(350,200,400,400);
line(200,400,300,450);
line(300,450,400,400);
setlinestyle(2,4,1);
line(200,400,400,400);
Outtextxy(195,405,'A');
Outtextxy(400,405,'B');
Outtextxy(240,190,'D');
Outtextxy(350,190,'E');
Outtextxy(300,455,'C');
Outtextxy(305,220,'F');
Repeat Until keypressed;
End.

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






Назад