Помогите пожалуйста написать программу на turbo pascal следующего вида: По заданным декартовым координатам вершин четырехугольника P1(x1,y1), P2(x2,y2), P3(x3,y3), P4(x4,y4) должен вычисляться его периметр. Понимаю, что задача легкая, просто вызвало затруднение с составлением формулы...откликнитесь пожалуйста, кто знает
Расстояние между точками вычисляется как корень квадратный из суммы квадратов координат. Если данные передаются не в массиве, а каждая точка- это запись, то алгоритм такой:
Код
function L(P1,P2:dot):real; begin L:=sqrt(sqr(P1.x-P2.x)+sqr(P1.y-P2.y)); end; {бла-бла-бла} begin {бла-бла-бла} WriteLn('Периметр равен ',L(P1,P2)+L(P2,P3)+L(P3,P4)+L(P1,P4)); end.
Правда данные точно должны быть в массиве, поэтому корректируйте .