Форум программистов [Powered by Invision Power Board]

Код


x:=x1;
i:=0;
 while x<=x2 do begin
  y:=y1;
  j:=0;
  while y<=y2 do begin
   if 1+sqr(x/c)-sqr(y/a)>=0 then
    obr:=-func(x,y)
   else
    obr:=0;
   xy(y,obr,x,xx,yy);
   byf[i,j]:=obr+obr*obr;
   r[i,j].X:=xx;
   r[i,j].Y:=yy;
   j:=j+1;
   y:=y+kol;
  end;
  i:=i+1;
  x:=x+kol;
 end;
 mnogoug(r,byf);

 x:=x1;i:=0;
 while x<=x2 do begin
  y:=y1;j:=0;
  while y<=y2 do begin
   if {sqr(x/a)+sqr(y/b)-1}{1+sqr(x/c)-sqr(y/a)>=0 then
    obr:=func(x,y)
   else
    obr:=0;
   xy(y,obr,x,xx,yy);
   byf[i,j]:=obr+obr*obr;
   r[i,j].X:=xx;
   r[i,j].Y:=yy;
   j:=j+1;
   y:=y+kol;
  end;
  i:=i+1;
  x:=x+kol;
 end;
 mnogoug(r,byf);