Question

Как решается данная задача?Программа паскаль.

Answer 1

1. Решение для квадрата:

var x,y:real;
begin
  write('Введите x,y: ');readln(x,y);
  if (x<=5) and(x>=-5) and (y<=5) and (y>=-5) then writeln('Внутри')
    else writeln('Не попали')
end.

Тест №1
Введите x,y: 10 5
Не попали

Тест №2
Введите x,y: 4 3
Внутри



2. Добавлю решение для круга. Если сумма квадратов координат введенной точки меньше или равна квадрату радиуса круга, то точка находится внутри круга или на окружности:

var x,y,r:real;
begin
  r:=2;
  write('Введите x,y: ');readln(x,y);
  if sqr(x)+sqr(y)<=sqr(r) then writeln('Внутри')
    else writeln('Не попали')
end.

Тест №1
Введите x,y: 3 1
Не попали

Тест №2
Введите x,y: 1 1
Внутри

Answer 2

СпасибО!

Answer 3

Не за что. Успехов!