Задача.
на плоскости задано n прямоугольников координатами своих вершин. Найти прямоугольник с минимальной площадью. Решить задачу с помощью подпрограммы процедуры определения площади прямоугольника по координатам его вершин.
Помогите плиз как можно скорее...никак не могу додуматься как правильно сделать:(
1.
! | Заголовок темы должен быть информативным |
1. Не могу че-та переименовать тему:((
Вот что я сделала
program Prymougolniki;
uses crt;
type mas=array[1..100] of real;
var i,n:integer;
x1,y1,x2,y2,x3,y3,x4,y4,S: mas;
a,b,d,p,S1:real;
smin:real;
Procedure Plosha(x1,y1,x2,y2,x3,y3,x4,y4,S,a,b,d,p:real);
var i,n:integer;
begin
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
d:=sqrt(sqr(x2-x4)+sqr(y2-y4));
p:=(a+b+d)/2;
S1:=sqrt(p*(p-a)*(p-b)*(p-d));
S:=2*S1;
end;
begin
clrscr;
writeln('Vvedite kol-vo pr-kov');
readln(n);
Writeln('Vvedite koordinati pr-kov');
for i:=1 to n do
begin
writeln('x1[',i,']=',' y1[',i,']='); readln(x1[i],y1[i]);
writeln('x2[',i,']=',' y2[',i,']='); readln(x2[i],y2[i]);
writeln('x3[',i,']=',' y3[',i,']='); readln(x3[i],y3[i]);
writeln('x4[',i,']=',' y4[',i,']='); readln(x4[i],y4[i]);
end;
Plosha(x1[i],y1[i],x2[i],y2[i],x3[i],y3[i],x4[i],y4[i],a,b,d,p,n);
Smin:=S[1];
for i:=1 to n do
if S[i]<Smin then
begin
Smin:=S[i];
end;
writeln('smin',Smin);
readln;
end.
из-за чего 0:
Procedure Plosha(x1,y1,x2,y2,x3,y3,x4,y4,S,a,b,d,p:real);
Procedure Plosha(x1,y1,x2,y2,x3,y3,x4,y4,a,b,d,p:real; var S: real);
Я всё поняла! Спасибо большое!
Для вычисления площади вполне достаточно 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.
klem4, а если стороны прямоугольника не параллельны осям? (про это ведь в условии ничего не сказано)
В таком случае 2-х точек маловато, хотя ... надо подумать.
маловато... они не определяют прямоугольник однозначно.
надо 3.