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 .

Answer 2

Для добавления проверки корректности исходных данных, вам нужно сравнить значения расстояний r_T и r_K и вывести соответствующее сообщение, если они равны. В противном случае, вы можете продолжить существующую логику вывода ответа. Вот исправленный код на языке Паскаль:

pascalCopy code
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.

Теперь программа сначала проверит, что расстояния до школы разные, и выведет сообщение "Координаты введены неверно", если они одинаковы. В противном случае, программа продолжит свою работу и выведет, кто из домов ближе к школе.