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

                             Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


       readln(d1,d2);
       d:=sqrt(sqr(d1)+sqr(d2));
       z1:=d1/d;z2:=d2/d;
       if z1=1 then
       begin fi:=0; goto 100;end;
        if z1=-1 then
       begin fi:=pi;goto 100;end;
       fi:=pi/2-arctan(z1/sqrt(1-sqr(z1)));
     100:if z2<0 then fi:=-fi;
        g:=dg+fi;
        dx:=l*cos(g);dy:=l*sin(g);
        xk:=x0+round(dx);yk:=y0-round(dy);
        end;
    end;
       {построение}
      grDriver:=detect;
      InitGraph(grDriver,grMode,'D:\Soft\BP\BGI');
      ErrCode:=GraphResult;
      if ErrCode=grOk then
       begin
       {построение контура окна (с заливкой)}
     {SetColor(2);}
      {Setfillstyle(1,green);}
 {bar(xa,ya,xc,yc);}{закрашенный прямоугольник}
     setcolor(4);
     circle(x0,y0,2);
      setcolor(white);
      line(x0,y0,xk,yk);
if k=4 then begin xk:=x0+round(d1); yk:=y0-round(d2);
      setcolor(2);
      line(x0,y0,xk,yk);
      end;
     repeat until keypressed;
     end;
  CloseGraph;
END.




                                  92