Определить пару наиболее удаленных друг от друга окружностей

@KapuTowka · Регистрация: 19.11.2013

Здравствуйте. Есть код, который надо немного дополнить, чтобы была возможность считывать исходные данные из файла, заранее спасибо.
Условие :
На плоскости задано n произвольно расположенных окружностей. Определить пару наиболее удаленных друг от друга окружностей. Исходные данные считываются из текстового файла input.txt.
Результаты в графическом виде отображаются на экране.

Сам код

Pascal

program geometr;
uses crt, Graph;
type dannie = record
       X,Y,R: array [1..10] of integer;
end;
 
const
  wm=50;
  wn=50;
Var
  wx,wy:integer;
  okr: dannie;
  i, j, n, k, l,drv,mode: integer;
  max, rast: real;
begin
  Drv:=Detect;
  InitGraph(Drv,Mode, '');
  wx:=GetMaxX div 2;
  wy:=GetMaxY div 2;
  SetColor(Red);
  Line (0,wy,GetMaxX,wy);
  Line (wx,0,wx,GetMaxY);
  SetColor(Green);
  i:=1;
  While (wx-i*wm>0) or (wx+i*wm<GetmaxX) do
  begin
   Line(wx-i*wm,0,wx-i*wm,GetMaxY);
   Line(wx+i*wm,0,wx+i*wm,getMaxY);
   inc(i);
   end;
   i:=1;
   while (wy-i*wn>0) or (wy+i*wn<GetMaxY) do
   begin
   Line(0,wy-i*wn,GetMaxX,wy-i*wn);
   Line(0,wy+i*wn,GetMaxX,wy+i*wn);
   inc(i);
   end;
   setcolor(white);
   randomize;
   n:=10;     {Є®«ЁзҐбвў® ЄагЈ®ў}
  for i:=1 to n do
    begin
      l:=Random(16)-8;
      okr.X[i]:=l;
      l:=Random(20)-10;
      okr.Y[i]:=l;
      l:=Random(6)+1;
      okr.R[i]:=l;
    end;
  for i:=1 to n do
      Circle(wx+okr.X[i]*wn,wy-okr.Y[i]*wm,okr.R[i]*wm);
  max:=0;
  for i:=1 to n-1 do
    begin
      for j:=i+1 to n do
        begin
          rast:=Sqrt(Sqr(okr.X[j]-okr.X[i])+Sqr(okr.Y[j]-okr.Y[i]))-okr.R[j]-okr.R[i];
          if rast>max then
            begin
              max:=rast;
              k:=i;
              l:=j;
            end;
        end;
    end;
  SetColor(yellow);
  MoveTo(wx+okr.X[k]*wn,wy-okr.Y[k]*wm);
  LineTo(wx+okr.X[l]*wn,wy-okr.Y[l]*wm);
  readln;
  closegraph;
end.

Опции темы