Файлы, Паскаль

[КатяКатя]

Файлы, Паскаль

Помогите, пожалуйста, дописать программу


создать F1, в котором будут находиться записи о параметрах заданного числа кругов. Записи должны содержать случайные координаты центра из интервала [0.0,10.1] и случайный радиус из [0.0,5.0], полученные Random. Найти в файле круг, площадь пересечения которого с квадратом [0..10][0..10] максимальна. Записать в файл F2 информацию о всех кругах файла F1, целиком лежащих в максимальном найденном круге.

program practice;

type
  krug = record
    x, y, r: real;
  end;

var
  f1, f2: file of krug;
  z, zmx: krug;
  n, i, k: integer;
  mx: real;

begin
  randomize;
  assign(f1, 'input.txt');
  rewrite(f1);
  writeln('Введите число кругов:');
  read(N);
  for i := 1 to N do
  begin
    z.x := 10.1 * random;
    z.y := 10.1 * random;
    z.r := 5 * random;
    write(f1, z)
  end;
  writeln('Содержание файла F1');
  seek(f1, 0);
  mx := 0;
  while not eof(f1) do
  begin
    read(f1, z);
    writeln('(', z.x:5:2, ',', z.y:5:2, ',', z.r:5:2, ') ');
    if pi * sqr(z.r) > mx then
    begin
      mx := pi * sqr(z.r);
      zmx := z
    end;
  end;
  writeln;
  writeln('Самый большой круг (', zmx.x:5:2, ',', zmx.y:5:2, ',', zmx.r:5:2, ') его площадь=', mx:0:2);
  assign(f2, 'output.txt');
  rewrite(f2);
  seek(f1, 0);
  k := 0;
  while not eof(f1) do
  begin
    read(f1, z);
    if sqrt(sqr(z.x - zmx.x) + sqr(z.y - zmx.y)) < zmx.r - z.r then
    begin
      k := 1;
      writeln(f2, z);
    end;
  end;
  close(f1);
  if k = 0 then write('Нет кругов, полностью лежащих в самом большом круге')
  else
  begin
    writeln('Содержание файла F2');
    seek(f2, 0);
    while not eof(f2) do
    begin
      read(f2, z);
      writeln('(', z.x:5:2, ',', z.y:5:2, ',', z.r:5:2, ') ');
    end;
  end;
  close(f2)
end.

 

[Vladimir_S]

Найти в файле круг, площадь пересечения которого с квадратом [0..10][0..10] максимальна.

Ох, и нифига ж себе задачка! А Вы, КатяКатя, чудо - вместо того, чтобы заниматься нахождением и взятием очень рогатых интегралов, проистекающих из решения задачи о площади пересечения круга и квадрата, Вы просто нашли максимальный круг! Браво! А.Македонский со своим Гордиевым узлом отдыхает.
Ладно, попробую помозговать.