Практикум по решению задач на ЭВМ. Тарова И.Н - 97 стр.

               Практикум по решению задач на ЭВМ


  pi:=4*arctan(1);
  z:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);
  gamma:=pi/2-arctan(z/sqrt(1-sqr(z)));
  grDriver:=detect;
  InitGraph(grDriver,grMode,'D:\Soft\BP\BGI');
   ErrCode:=GraphResult;
  if ErrCode=grOk then
    begin
      setcolor(4);
      circle(x0,y0,2);
      x1:=0;y1:=0;
      x2:=round(a);y2:=0;
      x3:=round(b*cos(gamma));
      y3:=round(b*sin(gamma));
      alfa:=alfa0;
      g:=alfa*pi/180;
      w1(x1,y1,xc,yc);
      w1(x2,y2,xb,yb);
      w1(x3,y3,xa,ya);
      cw:=15;w2;
{repeat until keypressed;}
      readln;
      H:=(2*pi-g)/(n-1);
       while g<2*pi do
         begin
            cw:=2;w2;
           g:=g+H;
            w1(x1,y1,xc,yc);
            w1(x2,y2,xb,yb);
            w1(x3,y3,xa,ya);
            cw:=15;w2;
     for i:=1 to 10000 do begin end;
         end;
   repeat until keypressed;
 end;
CloseGraph;




                               97