Как решается данная задача?Программа паскаль.
Как решается данная задача?Программа паскаль.
Ответ(ы) на вопрос:
Гость
Как я понял надо проверить находится ли точка в кубе:
Для куба сделал, для круга не придумал как:
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.
Гость
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
Внутри
Не нашли ответ?
Похожие вопросы