Примеры задач
Графика
Построить усеченную треугольную пирамиду. Методика решения
Инициализируем графический режим. Рассчитываем координаты вершин фигуры и соединяем их линиями.
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.