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

 line(20*3,26+14*3+3,20*9,26+14*2+4); {f2}
 line(20*7+7,26+14*3-6,20*7+7,26+14*7);         {1211}
 t_ka(20*7-4,26+14*6+5); {B1} t_ka(20*3,26+14*7); {A1}
 t_ka(20*12+5,26+14*5+3); {B_2} t_ka(20*13,26+14*1+1); {A_2}
 t_ka(20*15-1,26+14*7-5); {C_2} t_ka(20*13,26+14*7); {A_1}
 t_ka(20*15-1,26+14*9); {C_1} t_ka(20*12+5,26+14*6+5); {B_1}
 t_ka(20*9-8,26+14*9); {C1} t_ka(20*7+7,26+14*3-6); {12}
 t_ka(20*7+7,26+14*7); {11} t_ka(20*13,26+14*6-6); {1_2}
 t_ka(20*3,26+14*3+3); {A2}
 outtextxy(20*12-2,26+14*1-4,'A');    outtextxy(20*12+6,26+14*1-1,'2');
 outtextxy(20*12-2,26+14*1-13,'_');
 outtextxy(20*13+2,26+14*4-4,'f');    outtextxy(20*13+10,26+14*4-1,'2');
 outtextxy(20*13+2,26+14*4-13,'_');
 outtextxy(20*13+2,26+14*6+3,'1');     outtextxy(20*13+10,26+14*6+6,'2');
 outtextxy(20*13+2,26+14*6-6,'_');
 outtextxy(20*11+2,26+14*5-7,'B');     outtextxy(20*11+10,26+14*5-4,'2');
 outtextxy(20*11+2,26+14*5-16,'_');
 outtextxy(20*11+2,26+14*6-7,'B');     outtextxy(20*11+10,26+14*6-4,'1');
 outtextxy(20*11+2,26+14*6-16,'_');
 outtextxy(20*11+2,26+14*8-8,'A =f'); outtextxy(20*11+10,26+14*8-5,'1 1');
 outtextxy(20*11+2,26+14*8-17,'_ _');
 outtextxy(20*9+2,26+14*2+1,'f'); outtextxy(20*9+10,26+14*2+4,'2');
 outtextxy(20*7+2,26+14*2-6,'1'); outtextxy(20*7+10,26+14*2-3,'2');
 outtextxy(20*7-8,26+14*8-10,'1'); outtextxy(20*7,26+14*8-7,'1');
 outtextxy(20*9-6,26+14*8-10,'f'); outtextxy(20*9+2,26+14*8-7,'1');
 outtextxy(20*15+3,26+14*7,'C');     outtextxy(20*15+11,26+14*7+3,'2');
 outtextxy(20*15+3,26+14*7-9,'_');
 outtextxy(20*15+5,26+14*9,'C');     outtextxy(20*15+13,26+14*9+3,'1');
 outtextxy(20*15+5,26+14*9-9,'_');
 outtextxy(20*1,26+14*9-4,'Г'); outtextxy(20*1+8,26+14*9-1,'1');
 outtextxy(20*1,26+14*7-4,'Ф'); outtextxy(20*1+8,26+14*7-1,'1');
 outtextxy(20*1,26+14*6-4,'W');     outtextxy(20*1+8,26+14*6-1,'1');

end;

procedure ris2_33;
begin
 setcolor(8);
 line(20*18,26+14*5+3,20*19+1,26+14*1+1); {B__2A__2}
 line(20*18-1,26+14*5+3,20*19,26+14*1+1);
 line(20*18-2,26+14*5+3,20*19-1,26+14*1+1);
 line(20*19+1,26+14*1+1,20*22-4,26+14*7-5); {A__2C__2}
 line(20*19,26+14*1+1,20*22-5,26+14*7-5);
 line(20*19-1,26+14*1+1,20*22-6,26+14*7-5);
 line(20*22-5,25+14*7-5,20*18-1,25+14*5+3); {C__2B__2}

54