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

UptoLike

outtextxy(10,251,' 2 2 2 2 ');
outtextxy(10,253,' _ _ _ _ ');
outtextxy(10,262,'тальные проекции A , B точек A, B перемещаются по
прямой S - вырожденной');
outtextxy(10,265,' 1 1 1 ');
outtextxy(10,267,' _ _ ');
outtextxy(10,276,'проекции фронтальной плоскости уровня S, в которой
перемещаются точки A, B. ');
ent(5);
if kod<>13 then
exit;
s:=s+1;
end;
procedure list24;
begin
setgraphmode(1);
setfillstyle(1,0);
bar(0,0,getmaxx,getmaxy);
setcolor(8);
nazv2;
niz;
ris2_31;
outtextxy(10,170,'3. Построить центр O окружности m, описанной около
треугольника ABC. ');
outtextxy(395,180,' { нажмите клавишу <enter> } ');
ent(5);
if kod<>13 then
exit;
ris2_32;
outtextxy(10,200,' Для решения этой задачи необходимо плоскость ABC
общего положения преобразо-');
outtextxy(10,210,'вать в плоскость уровня, построить здесь искомую точку и
обратным преобразо-');
outtextxy(10,220,'ванием нацти ее проекции на исходном чертеже.');
outtextxy(10,230,' Одним плоскопараллельным движением плоскость общего
положения нельзя преоб-');
outtextxy(10,240,'разовать в плоскость уровня. Поэтому выполним
последовательно два плоскопарал-');
outtextxy(10,250,'лельных движения треугольника ABC: сначала относительно
фронтальной плоскости');
outtextxy(10,260,'проекций, затем относительно плоскости П .');
60
 outtextxy(10,251,'                          22      22        ');
 outtextxy(10,253,'         _ _     _ _                              ');
 outtextxy(10,262,'тальные проекции A , B точек A, B перемещаются по
прямой S - вырожденной');
 outtextxy(10,265,'          1 1                     1              ');
 outtextxy(10,267,'                                     _ _ ');
 outtextxy(10,276,'проекции фронтальной плоскости уровня S, в которой
перемещаются точки A, B. ');
 ent(5);
 if kod<>13 then
         exit;

 s:=s+1;
end;


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

 ris2_31;
 outtextxy(10,170,'3. Построить центр O окружности m, описанной около
треугольника ABC.         ');
 outtextxy(395,180,' { нажмите клавишу  } ');
 ent(5);
 if kod<>13 then
         exit;
 ris2_32;
 outtextxy(10,200,' Для решения этой задачи необходимо плоскость ABC
общего положения преобразо-');
 outtextxy(10,210,'вать в плоскость уровня, построить здесь искомую точку и
обратным преобразо-');
 outtextxy(10,220,'ванием нацти ее проекции на исходном чертеже.');
 outtextxy(10,230,' Одним плоскопараллельным движением плоскость общего
положения нельзя преоб-');
 outtextxy(10,240,'разовать в плоскость уровня. Поэтому выполним
последовательно два плоскопарал-');
 outtextxy(10,250,'лельных движения треугольника ABC: сначала относительно
фронтальной плоскости');
 outtextxy(10,260,'проекций, затем относительно плоскости П .');

60