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

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