Правильно ли я решила?Задача: Определить расстояние ** плоскости между двумя точками с...

Question

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

Comments

у тебя точка задается 2 координатами, а ты считываешь по одной

---

и расстояние между точками вычисляется по формуле sqrt((sqr(x1-x2)+sqr(y1-y2))

---

и uses вроде вначале пишется перед программ

---

Да и вывод у нее g)

---

спасибо

---

да-да, точно, writeln('rastoyanie megdu tochkami:', g);

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