вычисление площади прямоугольника, по координатам вершин Опции

[Yulianna]

Задача.
на плоскости задано n прямоугольников координатами своих вершин. Найти прямоугольник с минимальной площадью. Решить задачу с помощью подпрограммы процедуры определения площади прямоугольника по координатам его вершин.

Помогите плиз как можно скорее...никак не могу додуматься как правильно сделать:(

Сообщение отредактировано: мисс_граффити - 25.02.2007 4:22

[klem4]

Для вычисления площади вполне достаточно 2-х точек, например - левой_верхней и правой_нижней

x1,y1,x2,y2,x3,y3,x4,y4,a,b,d,p:real; var S: real

как-то некомпактно выглядит

Я юы делал как-то так :

type
  TPoint = record
    x, y: Word;
  end;

  TRect = record
    TL, BR: TPoint; // TopLeft, BottomRight
  end;

function Area(const R: TRect): Word;
begin
  with R do Area := (BR.x - TL.x) * (TL.y - BR.y);
end;

function FindMin(const R: Array of TRect): Integer;
var
  n, i, min, T: Integer;
begin
  n := SizeOf® div SizeOf(TRect);
  if n > 0 then begin
    min := Area(R[0]);
    for i := 1 to n - 1 do begin
      T := Area(R[i]);
      if T < min then min := T;
    end;
  end else min := 0;
  FindMin := min;
end;

const
  R: array [1..4] of TRect = (
    (TL:(x:1; y:10); BR:(x:10; y:1)),  // (1, 10); (10, 1)
    (TL:(x:1; y: 4); BR:(x:4;  y:1)),  // (1,  4); (4,  1)
    (TL:(x:3; y: 8); BR:(x:12; y:2)),  // (3,  8); (12, 2)
    (TL:(x:0; y: 1); BR:(x:1;  y:0))   // (0,  1); (1,  0)
  );

begin
  writeln(FindMin®);
end.