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

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('Внутри')<br>    else writeln('Не попали')
end.

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

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

Comments

СпасибО!

---

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

Answer 2

Как я понял надо проверить находится ли точка в кубе:
Для куба сделал, для круга не придумал как:
var cubeSize:integer;
var cubeCordX, cubeCordY:integer;

var dotX, dotY:integer;
begin
readln(cubeSize); //Считываем размер куба
readln(cubeCordX, cubeCordY); //Считываем координаты куба относительно его левой верхней точкиreadln(dotX, dotY); //Считываем координаты точки
if ((dotX > cubeCordX) and (dotX < (cubeCordX + cubeSize))) and ((dotY > cubeCordY) and (dotY < (cubeCordY + cubeSize))) then writeln('точка принадлежит кубу')else writeln('точка не принадлежит кубу');
end.

Comments

спасибо большое!!!А можно вместо "//" писать ('Считываем координаты точки')?или это в программе не обязательно писать?

---

можешь убрать все после // до переноса строк // - комментарии, они не как не влияют на код

---

придумал короче как с кругом сделать, щас напишу

---

var dotX, dotY:integer; begin readln(cubeSize); readln(cubeCordX, cubeCordY); readln(dotX, dotY); if ((dotX > cubeCordX) and (dotX < (cubeCordX + cubeSize))) and ((dotY > cubeCordY) and (dotY < (cubeCordY + cubeSize))) then writeln('точка принадлежит кубу')else writeln('точка не принадлежит кубу'); end.

---

вот ,правильно исправила? ничего не упустила?

---

ну а попробуй запусти