Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ Pascal программа

Автор: GuR 11.10.2008, 16:15

Помогите пожалуйста написать программу на turbo pascal следующего вида:
По заданным декартовым координатам вершин четырехугольника P1(x1,y1), P2(x2,y2), P3(x3,y3), P4(x4,y4) должен вычисляться его периметр.
Понимаю, что задача легкая, просто вызвало затруднение с составлением формулы...откликнитесь пожалуйста, кто знает blush.gif

Автор: tig81 11.10.2008, 16:22

http://www.prepody.ru/ipb.html?act=boardrules
Про какую формулу идет речь?

Автор: Inspektor 11.10.2008, 17:17

Расстояние между точками вычисляется как корень квадратный из суммы квадратов координат.
Если данные передаются не в массиве, а каждая точка- это запись, то алгоритм такой:

Код
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 11.10.2008, 17:21

благодарю, но мы еще массивы не проходили

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)