Создание программы (write ln,var) + Паскаль.

Пмогите,пожалуйста:)

Даны координаты 2ух точек (x1;y1),(x24y2)

Найти: расстояние между двумя точками.

program 1

begin

что дальше?

1

Ответы и объяснения

2013-01-16T20:06:01+04:00

По теореме пифагора расстояние будет равно корню из x² + y².

s := sqrt (sqr (x2-x1) + sqr(y2-y1));

 

a вся программа

program x1;

var

  x1, x2, y1, y2, s : real;

begin

  read (x1, y1, x2, y2);

  s := sqrt (sqr (x2-x1) + sqr(y2-y1));

  writeln (s);

end.