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

        exit;
 ris34;
 outtextxy(380,279,'            _     _ ');
 outtextxy(380,281,'            _     _ ');
 outtextxy(380,291,' Второй заменой f(П -> П ),');
 outtextxy(380,294,'              2 2 ');
 outtextxy(395,292,' _                 ');
 outtextxy(395,294,' _                 ');
 outtextxy(395,303,'где П || Ф, приводим ее в по-');
 outtextxy(395,305,' 2                 ');
 outtextxy(395,315,'ложение плоскости уровня в');
 outtextxy(395,317,'       _ ');
 outtextxy(395,319,'     _ _ ');
 outtextxy(395,328,'системе П , П .');
 outtextxy(395,331,'      1 2 ');
 ent(7);
 if kod<>13 then
         exit;
 s:=s+1;
end;

procedure ris2_1;
begin
 setcolor(8);
 Line(20*3,25+14*4,20*6+5,25+14*2); {A2B2}
 Line(20*3,26+14*4,20*6+5,26+14*2);
 Line(20*3,27+14*4,20*6+5,27+14*2);
 Line(20*3,27+14*8+2,20*6+5,27+14*6); {A1B2}
 Line(20*3,25+14*8+2,20*6+5,25+14*6);
 Line(20*3,26+14*8+2,20*6+5,26+14*6);
 Line(20*3,26+14*4,20*3,26+14*8+2); {A1A2}
 Line(20*6+5,26+14*2,20*6+5,26+14*6); {B1B2}
 t_ka(20*3,26+14*4); {A2}     t_ka(20*3,26+14*8+2); {A1}
 t_ka(20*6+5,26+14*2); {B2}      t_ka(6*20+5,26+14*6); {B1}
 outtextxy(20*2,26+14*3,'A');   outtextxy(20*2+10,26+14*3+3,'2');
 outtextxy(20*6,26+14*1,'B');   outtextxy(20*6+10,26+14*1+3,'2');
 outtextxy(20*2,26+14*8+3,'A');    outtextxy(20*2+8,26+14*8+6,'1');
 outtextxy(6*20+5,26+14*6+4,'B');    outtextxy(6*20+13,26+14*6+7,'1');

end;

procedure ris2_2;
begin
 setcolor(8);
 Line(20*8+10,25+14*6,20*12+8,25+14*6); {A_1B_1}

50