Добавьте в программу из примера 16.3 проверку корректности исходных данных:координаты...

Question

Добавьте в программу из примера 16.3 проверку корректности исходных данных:координаты домов должны быть такими, чтобы расстояния до школы были разными.Если расстояния одинаковы, то вывести сообщение ꞌКоординаты введены неверноꞌ,а если разные, то вывести ответ.( на языке паскаль ) Var x1, y1, x2, y2, r_T, r_K: real;begin writeln('Танин дом'); read(x1,y1); writeln('Катин дом'); read(x2,y2); r_T:= sqrt(x1*x1+y1*y1); r_K := sqrt(x2*x2+y2*y2); if r_T < r_K then writeln('Танин дом ближе') else writeln('Катин дом ближе');end .

Answer 1

Var x1, y1, x2, y2, r_T, r_K: real;

begin

writeln('Танин дом');

read(x1,y1);

writeln('Катин дом');

read(x2,y2);

r_T:= sqrt(x1*x1+y1*y1);

r_K := sqrt(x2*x2+y2*y2);

if r_T=r_K then writeln('Координаты введены неверно')

else

if r_T < r_K then writeln('Танин дом ближе')

else writeln('Катин дом ближе')

end .