Решил выложить на блоге свои задачи по программировании на Pascal, которые у нас были на втором курсе института. Пользуйтесь на здоровье. Не забывайте благодарить автора (то есть меня :-) ) Блок-схемы рисовал от руки, не судите строго ;-)

Задача
Даны координаты вершин двух треугольников. Определить, какой из них имеет меньшую площадь.

1


program kontr1;
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
else
begin
if s1=s2 then writeln('1 treugolnik = 2')
else writeln('2 treugolnik menshe 1');
end;
writeln;
writeln('by Adminadmin.ru');
readln;
end.