Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.05.2017 07:21
- Информатика
- remove_red_eye 11242
- thumb_up 40
Ответы и объяснения 1
var xPos, {В данной переменной храним позицию по оси X} yPos {А в этой по оси Y} : real; {Переменные вещественного типа, что бы можно было вводить дробные значения} begin
Write('Enter x position: '); Readln(xPos); {Вводим переменную по X}
Write('Enter y position: '); Readln(yPos); {И по Y}
if (xPos <= 0) and (yPos = -1) {Если переменная находится в пределах прямоугольной области, что слева от оси Oy} then begin Write('Point in area.'); {Тогда всё окей, мы попали в заштрихованную зону и выведем ответ} end else {если же не попали, проверим другую} begin if (xPos*xPos + yPos*yPos <= 1) {Проверяем по формуле графика окружности попадание в полукруг справа от оси Oy} then begin Write('Point in area.'); {Если попали, выведем об этом соответствующее сообщение} end else begin Write('Point out of area.'); {Если же не попали, то печаль беда, всё плохо, так и скажем} end endend.
- 05.05.2017 17:04
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.