Вычисление площади треугольника и сравнение их
Четверг, 10 Сен 2009Даны координаты вершин двух треугольников. Определить, какой из них имеет меньшую площадь.
program minploshad;
var xa1,ya1,xb1,yb1,xz1,yz1,
xa2,ya2,xb2,yb2,xz2,yz2,
s1,s2: real;
procedure S(xa,ya,xb,yb,xz,yz:real;
var stre: real);
var a,b,c,p:real;
begin
a:=sqrt(sqr(xa-xb)+sqr(ya-yb));
b:=sqrt(sqr(xb-xz)+sqr(yb-yz));
c:=sqrt(sqr(xz-xa)+sqr(yz-ya));
p:=(a+b+c)/2;
stre:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
BEGIN
writeln(’Vvedite koordinati 1-go treugolnika’);
writeln(’xa1 ya1 xb1 yb1 xz1 yz1′);
read(xa1,ya1,xb1,yb1,xz1,yz1);
writeln(’Vvedite koordinati 2-go treugolnika’);
writeln(’xa2 ya2 xb2 yb2 xz2 yz2′);
read(xa2,ya2,xb2,yb2,xz2,yz2);
S(xa1,ya1,xb1,yb1,xz1,yz1,s1);
S(xa2,ya2,xb2,yb2,xz2,yz2,s2);
writeln(’Ploshad 1 treugolnika=’,s1:5:2);
writeln(’Ploshad 2 treugolnika=’,s2:5:2);
if s1<s2 then writeln(’1 treugolnik menshe 2′)
else
begin
if s1=s2 then writeln(’1 treugolnik = 2′)
else writeln(’2 treugolnik menshe 1′);
end;
writeln;
readln;
end.