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

procedure list7;
begin
 setgraphmode(1);
 setfillstyle(1,0);
 bar(0,0,getmaxx,getmaxy);
 setcolor(8);
 nazv1;
 niz;

 ris31;
 outtextxy(380,40,'4. Преобразовать плоскость обще-');
 outtextxy(395,50,'го положения Ф(A, B, C) в пло-');
 outtextxy(395,60,'скость уровня, т.е. определить');
 outtextxy(395,70,'натуральные размеры треуголь-');
 outtextxy(395,80,'ника ABC.');
 outtextxy(395,90,' { нажмите клавишу  } ');
 ent(7);
 if kod<>13 then
          exit;
 ris32; ris33;
 outtextxy(380,100,' Нетрудно показать, что реше-');
 outtextxy(395,110,'ние этой задачи требует пос-');
 outtextxy(395,120,'ледовательного выполнения двух');
 outtextxy(395,130,'замен плоскостей проекций(ком-');
 outtextxy(395,140,'позиции двух преобразований ),');
 outtextxy(395,150,'так как невозможно выбрать но-');
 outtextxy(395,160,'вую плоскость проекций, кото-');
 outtextxy(395,170,'рая была бы одновременно па-');
 outtextxy(395,180,'ралллельной плоскости Ф и пер-');
 outtextxy(395,190,'пендикулярной одной из плос-');
 outtextxy(395,200,'костей проекций исходной сис-');
 outtextxy(395,210,'темы П , П .');
 outtextxy(395,213,'    1 2 ');
 outtextxy(380,223,' Поэтому первой заменой         ');
 outtextxy(395,225,'_    _              ');
 outtextxy(395,234,'f(П -> П ) плоскость Ф преоб-');
 outtextxy(395,237,' 1 1                ');
 outtextxy(395,247,'разуем в проецирующую в сис-');
 outtextxy(395,249,'     _             ');
 outtextxy(395,258,'теме П , П (см. задачу 3). ');
 outtextxy(395,261,' 2 1                ');
 outtextxy(395,271,' { нажмите клавишу  } ');
 ent(7);
 if kod<>13 then

                                                          49