Задача по Паскалю

mordol · 04.10.2015, 13:43

Известны координаты трех точек A(x1,y1), B(x2,y2), C(x3,y3). Найти сумму расстояний АВ+ВС.

George Smith · 04.10.2015, 16:02

А здравствуйте не учили говорить ?...

Vladimir_S · 04.10.2015, 16:19

Цитата:

Сообщение от George Smith

А здравствуйте не учили говорить ?...

Да ладно, Юра, похоже, всякие правила вежливости уходят в историческое небытие. Прискорбно, ну да что уж поделаешь...

Код:

Var
 x1,y1,x2,y2,x3,y3:Real;

Begin
 Write('x1 = ');
 Readln(x1);
 Write('y1 = ');
 Readln(y1);
 Write('x2 = ');
 Readln(x2);
 Write('y2 = ');
 Readln(y2);
 Write('x3 = ');
 Readln(x3);
 Write('y3 = ');
 Readln(y3);
 Writeln((Sqrt(Sqr(x2-x1)+Sqr(y2-y1))+Sqrt(Sqr(x3-x2)+Sqr(y3-y2))):0:8);
 Readln
End.

Daniellos · 04.10.2015, 16:27

Здравствуйте! Андреич, увы - так и есть. Игоревич - я бы хвормулу выложил, не утруждал бы себя

AlexZir · 04.10.2015, 19:55

Цитата:

Сообщение от Daniellos

я бы хвормулу выложил, не утруждал бы себя

Он её и опубликовал, так сказать, вместе с обвязкой

mordol · 04.10.2015, 21:48

Цитата:

Сообщение от Vladimir_S

Да ладно, Юра, похоже, всякие правила вежливости уходят в историческое небытие. Прискорбно, ну да что уж поделаешь...

Код:

Var
 x1,y1,x2,y2,x3,y3:Real;

Begin
 Write('x1 = ');
 Readln(x1);
 Write('y1 = ');
 Readln(y1);
 Write('x2 = ');
 Readln(x2);
 Write('y2 = ');
 Readln(y2);
 Write('x3 = ');
 Readln(x3);
 Write('y3 = ');
 Readln(y3);
 Writeln((Sqrt(Sqr(x2-x1)+Sqr(y2-y1))+Sqrt(Sqr(x3-x2)+Sqr(y3-y2))):0:8);
 Readln
End.

Спасибо вам извините за то что не блистал правилами вежливости замотался за выходные большинство вещей делаю на автомате.
Сожалею

04.10.2015, 13:43	#1 (permalink)
mordol Новичок Регистрация: 04.10.2015 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача по Паскалю Известны координаты трех точек A(x1,y1), B(x2,y2), C(x3,y3). Найти сумму расстояний АВ+ВС.

04.10.2015, 16:02	#2 (permalink)
George Smith << Эксперт >> Регистрация: 27.11.2010 Адрес: Большеземельская тундра, Чукча я однако ... :) Сообщений: 28,167 Записей в дневнике: 5 Сказал(а) спасибо: 400 Поблагодарили 273 раз(а) в 85 сообщениях Репутация: 81007	А здравствуйте не учили говорить ?... __________________

04.10.2015, 13:43
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Созданные участниками форума обсуждения которые имеют сходства с вашим Задача по Паскалю Задачка по Паскалю Задача по Паскалю, не могу решить

04.10.2015, 16:27	#4 (permalink)
Daniellos Хозяин Медной Горы Регистрация: 01.08.2011 Адрес: Армавир Сообщений: 12,159 Записей в дневнике: 8 Сказал(а) спасибо: 751 Поблагодарили 88 раз(а) в 27 сообщениях Репутация: 57416	Здравствуйте! Андреич, увы - так и есть. Игоревич - я бы хвормулу выложил, не утруждал бы себя

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070