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

 line(20*3,26+14*3+3,20*9-8,26+14*4+6);
 line(20*3,27+14*3+3,20*9-8,27+14*4+6);
 line(20*3,26+14*7,20*3,26+14*3+3); {A1A2}
 line(20*7-4,26+14*6+5,20*7-4,26+14*2-2); {B1B2}
 line(20*9-8,26+14*9,20*9-8,26+14*4+6); {C1C2}
 t_ka(20*3,26+14*7); {A1}       t_ka(20*3,26+14*3+3); {A2}
 t_ka(20*7-4,26+14*2-2); {B2}       t_ka(20*7-4,26+14*6+5); {B1}
 t_ka(20*9-8,26+14*4+6); {C2}        t_ka(20*9-8,26+14*9); {C1}
 outtextxy(20*6,26+14*1-1,'B');    outtextxy(20*6+10,26+14*1+2,'2');
 outtextxy(20*2,26+14*3-1,'A');     outtextxy(20*2+10,26+14*3+2,'2');
 outtextxy(20*2+10,26+14*7+3,'A');       outtextxy(20*3,26+14*7+6,'1');
 outtextxy(20*6-1,26+14*5+5,'B');      outtextxy(20*6+7,26+14*5+8,'1');
 outtextxy(20*9-1,26+14*4+2,'C');      outtextxy(20*9+9,26+14*4+5,'2');
 outtextxy(20*9-5,26+14*9+4,'C');      outtextxy(20*9+5,26+14*9+7,'1');

end;

procedure ris2_32;
begin
 setcolor(8);
 line(20*12+4,26+14*5+3,20*13-1,26+14*1+1); {B_2A_2}
 line(20*12+5,26+14*5+3,20*13,26+14*1+1);
 line(20*12+6,26+14*5+3,20*13+1,26+14*1+1);
 line(20*13-1,26+14*1+1,20*15-2,26+14*7-5); {A_2C_2}
 line(20*13,26+14*1+1,20*15-1,26+14*7-5);
 line(20*13+1,26+14*1+1,20*15,26+14*7-5);
 line(20*15-1,25+14*7-5,20*12+5,25+14*5+3); {C_2B_2}
 line(20*15-1,26+14*7-5,20*12+5,26+14*5+3);
 line(20*15-1,27+14*7-5,20*12+5,27+14*5+3);
 line(20*12+4,26+14*6+5,20*15-2,26+14*9); {B_1C_1}
 line(20*12+5,26+14*6+5,20*15-1,26+14*9);
 line(20*12+6,26+14*6+5,20*15,26+14*9);
 line(20*12+7,26+14*6+5,20*15+1,26+14*9);
 line(20*2,26+14*9,20*15-1,26+14*9);
 line(20*2,26+14*6+5,20*12+5,26+14*6+5);
 line(20*2,26+14*7,20*13,26+14*7);
 line(20*10,26+14*9,20*10-10,26+14*9-3);
 line(20*10,26+14*9,20*10-10,26+14*9+3);
 line(20*10,26+14*7,20*10-10,26+14*7-3);
 line(20*10,26+14*7,20*10-10,26+14*7+3);
 line(20*10,26+14*6+5,20*10-10,26+14*6+2);
 line(20*10,26+14*6+5,20*10-10,26+14*6+8);
 line(20*12+5,26+14*6+5,20*12+5,26+14*5+3); {B_1B_2}
  line(20*15-1,26+14*9,20*15-1,26+14*7-5); {C_1C_2}
 line(20*13,26+14*7,20*13,26+14*1+1);

                                                                          53