Правильно ли я решила? Задача: Определить расстояние на плоскости между двумя точками с заданными координатами M1 (x1, y1) и M2 (x2, y2).

program rastoyanie;

uses crt;

var M1, M2, g:real;

begin

writeln ('x1, y1') ;

read (M1) ;

writeln ('x2, y2') ;

read (M2) ;

g:=abs (M1-M2) ;

writeln ('rastoyanie megdu tochkami: g') ;

end.

Question

Информатика

Митрич

19 августа, 09:01

Правильно ли я решила? Задача: Определить расстояние на плоскости между двумя точками с заданными координатами M1 (x1, y1) и M2 (x2, y2).

program rastoyanie;

uses crt;

var M1, M2, g:real;

begin

writeln ('x1, y1') ;

read (M1) ;

writeln ('x2, y2') ;

read (M2) ;

g:=abs (M1-M2) ;

writeln ('rastoyanie megdu tochkami: g') ;

end.

+5

Ответы (1)

Знаете ответ на вопрос?

Митя · Answer 1

кратко, программа рабочая:

uses crt;

var x1, y1, x2, y2, g:real;

begin

write ('vvod x1, y1') ;

read (x1, y1) ;

write ('vvod x2, y2') ;

read (x2, y2) ;

g:=sqrt ((x2-x1) * (x2-x1) + (y2-y1) * (y2-y1)) ;

writeln (g) ;

readkey;

end.

после запуска, например, вводим (3,4) и (0,0) Ответ 5