unit s;
interface
 uses graph;
 var gd,gm:integer;
 procedure szakasz(x1,y1,x2,y2:longint);
 function hatv(a,b:real):real;
 procedure negyzet(x1,y1,x2,y2:longint);
implementation
{******************************}
 procedure szakasz;
 var xakt,yakt:longint;
 begin
  if abs(x2-x1)>abs(y2-y1) then
    begin
     xakt:=x1;
     yakt:=y1;
     repeat
      putpixel(xakt,yakt,green);
      if xakt<x2 then inc(xakt) else dec(xakt);
      yakt:=round(y1+(xakt-x1)*(y2-y1)/(x2-x1))
     until x2=xakt;
    end
    else
    begin
     xakt:=x1;
     yakt:=y1;
     repeat
      putpixel(xakt,yakt,green);
      if yakt<y2 then inc(yakt) else dec(yakt);
      xakt:=round(x1+(yakt-y1)*(x2-x1)/(y2-y1))
     until y2=yakt;
    end;
  end;
{**********************************************}
 function hatv;
 begin
  hatv:=exp(b*ln(a));
 end;
{**********************************************}
 procedure negyzet;
 var fx,fy,ax,ay,bx,by:longint;
 begin
  fx:=(x1+x2) div 2;
  fy:=(y1+y2) div 2;
  bx:=fx+y1-fy;
  ax:=fx-y1+fy;
  ay:=fy+x1-fx;
  by:=fy-x1+fx;
  szakasz(x1,y1,ax,ay);
  szakasz(ax,ay,x2,y2);
  szakasz(x2,y2,bx,by);
  szakasz(bx,by,x1,y1);
 end;

begin
 detectgraph(gd,gm);
 initgraph(gd,gm,'c:\tp70\bgi');
end.