создать блок-схему по проекту площадь треугольника

Программирование на Pascal - меньше-больше | Системный администратор

Блог системного администратора, офисного работника и верующего человека

Подпишитесь на наши свежие новости по

Автор . 4 октября, 2010Рубрики: Tags: ,

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

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

procedure S(xa,ya,xb,yb,xz,yz:real;

a:=sqrt(sqr(xa-xb)+sqr(ya-yb));

b:=sqrt(sqr(xb-xz)+sqr(yb-yz));

c:=sqrt(sqr(xz-xa)+sqr(yz-ya));

source