Правильно ли я решила? Задача: Определить расстояние на плоскости между двумя точками с заданными координатами 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

Информатика

София

14 сентября, 07:57

Правильно ли я решила? Задача: Определить расстояние на плоскости между двумя точками с заданными координатами 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.

+1

Ответы (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