Помощь - Поиск - Пользователи - Календарь
Полная версия: Pascal программа > Информатика / Программирование
Образовательный студенческий форум > Другие дисциплины > Информатика / Программирование
GuR
Помогите пожалуйста написать программу на turbo pascal следующего вида:
По заданным декартовым координатам вершин четырехугольника P1(x1,y1), P2(x2,y2), P3(x3,y3), P4(x4,y4) должен вычисляться его периметр.
Понимаю, что задача легкая, просто вызвало затруднение с составлением формулы...откликнитесь пожалуйста, кто знает blush.gif
tig81
правила форума
Про какую формулу идет речь?
Inspektor
Расстояние между точками вычисляется как корень квадратный из суммы квадратов координат.
Если данные передаются не в массиве, а каждая точка- это запись, то алгоритм такой:
Код
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.

Правда данные точно должны быть в массиве, поэтому корректируйте yes.gif .
GuR
благодарю, но мы еще массивы не проходили
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2025 Invision Power Services, Inc.