Реализация графического режима средствами языка Ассемблер - Assembler - Ответ 1556444

program anc;
uses crt, GraphABC, Events;
var i:longint;
d,xs,ys,xn,yn:real;
 
const sx=200;sy=200;
 
procedure MouseMove(x,y,mb: integer);
begin
  ClrScr; //очистить экран
  d:=sqrt(sqr(sx-x)+sqr(sy-y));  //узнаем расстояние до нужной точки
 
  if(d<>0) then begin //если расстояние не равно нулю - ведем расчеты
    xs:=(sx-x)/d; //шаг - относительное число, а xs/ys - абсолютное
    ys:=(sy-y)/d;
    xn:=0; yn:=0;
    for i:=1 to round(d) do begin
        xn:=(xn-xs);
        yn:=(yn-ys);
        SetPixel(round(xn)+200,round(yn)+200,clBlack);
    end;
  end;
  write('dir: ',round(d),' ys: ',ys,' xs: ',xs);
end;
 
BEGIN
  OnMouseMove:=MouseMove;
END.

program anc;
uses crt, GraphABC, Events;
var i,a:longint;
d,xs,ys,xn,yn:real;
 
const sx=200;sy=200;
 
procedure MouseMove(x,y,mb: integer);
begin
  ClrScr;
  d:=sqrt(sqr(sx-x)+sqr(sy-y));
 
  if((x-sx)<>0) then begin
    if((x-sx)<0) then xs:=-1/2 else xs:=1/2;
    ys:=((y-sx)/(2*xs*(x-sx)));
    xn:=0; yn:=0;
    for i:=1 to round(d) do begin
      xn:=(xn+xs*2);
      yn:=(yn+ys*2);
      SetPixel(round(xn)+200,round(yn)+200,clBlack);
    end;
  end;
  write('dir: ',round(d),' ys: ',ys,' xs: ',xs);
end;
 
BEGIN
 
OnMouseMove:=MouseMove;
 
END.