Решение метрических задач по начертательной геометрии на ЭВМ. Воронков А.И - 37 стр.

 outtextxy(20*2,26+14*10-1,'П'); outtextxy(20*3-10,26+14*10+2,'2');
 outtextxy(20*2+3,26+14*11+6,'П'); outtextxy(20*3-10,26+14*11+9,'1');
 outtextxy(20*2,26+14*3,'A'); outtextxy(20*2+10,26+14*3+3,'2');
 outtextxy(7*20-5,26+14*2+3,'B');    outtextxy(7*20+5,26+14*2+6,'2');
 outtextxy(5*20,26+14*6+3,'C');    outtextxy(5*20+10,26+14*6+6,'2');
 outtextxy(20*2+5,26+14*17+5,'A'); outtextxy(20*2+13,26+14*17+8,'1');
 outtextxy(20*7+5,26+14*13-10,'B'); outtextxy(20*7+13,26+14*13-7,'1');
 outtextxy(20*6+6,26+14*21-2,'C'); outtextxy(20*6+12,26+14*21+1,'1');
end;

procedure ris32;
begin
 setcolor(8);
 setbkcolor(15);
 Line(20*2,26+14*17,20*8,26+14*17); {f1}
 Line(20*6+10,26+14*16+5,20*6+10,26+14*5-4); {1112}
 Line(20*2,26+14*2+7,20*8,26+14*5+7); {f2}
 Line(20*10+10,26+14*2,20*8-3,26+14*8); {x_21}
 Line(20*10+9,26+14*2,20*8-4,26+14*8);
 Line(20*10+10,26+14*2,20*10+7,26+14*2+12); {стрелки}
 Line(20*10+10,26+14*2,20*10-2,26+14*2+10);
 t_ka(3*20,26+14*17); {A1} t_ka(20*6+10,26+14*17); {11}
 t_ka(20*6+10,26+14*5-4); {12} t_ka(3*20,26+14*3); {A2}
 outtextxy(20*2-5,26+14*16+2,'f'); outtextxy(20*2+3,26+14*16+5,'1');
 outtextxy(20*7-6,26+14*17+3,'1'); outtextxy(20*7+2,26+14*17+6,'1');
 outtextxy(20*7+1,26+14*4+6,'1'); outtextxy(20*7+11,26+14*4+8,'2');
 outtextxy(20*10,26+14*1+3,'X'); outtextxy(20*10,26+14*1-6,'_');
 outtextxy(20*10+10,26+14*1+6,'21');    outtextxy(20*11-8,26+14*2+7,'П');
 outtextxy(20*11,26+14*2+10,'1'); outtextxy(20*9-1,26+14*2+3,'П');
 outtextxy(20*11-9,26+14*2+1,'-'); outtextxy(20*9+9,26+14*2+5,'2');
end;

procedure ris33;
begin
 setcolor(8);
 setbkcolor(15);
 Line(20*8,26+14*5+7,20*14-3,26+14*8+6); {A2A_1}
 Line(20*7,26+14*3+3,20*11+2,26+14*5+4); {B2B_1}
 Line(20*6,26+14*6+4,20*17-6,26+14*12-5); {C2C_1}
 Line(20*10-4,26+14*5-1,20*10+4,26+14*5-6); {штрихи}
 Line(20*7+3,26+14*12-4,20*7-3,26+14*12+4);
 Line(20*3+3,26+14*14-4,20*3-3,26+14*14+4);
 Line(20*3+3,26+14*14+1,20*3-3,26+14*14+9);
 Line(20*6+3,26+15*14,20*6-3,26+14*15+8);
 Line(20*6+3,26+15*14+5,20*6-3,26+14*15+13);

                                                                            37