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

[Yulianna]

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

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

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

[мисс_граффити]

1.

!

Заголовок темы должен быть информативным

переименовывай, иначе тема будет закрыта
2.

где-то допускаю наверное ошибку...

ну наверное, если не работает...
может, покажешь, что ты делаешь? тогда вероятность обнаружения ошибки несколько возрастет.
3.

Если нахожу площадь как сумму площадей 2-х треугольников

зачем такие сложности???

[Yulianna]

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.

Сообщение отредактировано: Yulianna - 25.02.2007 0:08