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

[mordol]

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

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

 

[George Smith]

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

 

[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.

 

[Daniellos]

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

 

[AlexZir]

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

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

 

[mordol]

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

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.

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