Определить, на какой оси лежит точка, заданная координатами - Turbo Pascal
Формулировка задачи:
на плоскости xy заданы своими координатами точка A определить на какой оси лежит точка.Помогите
Решение задачи: «Определить, на какой оси лежит точка, заданная координатами»
textual
Листинг программы
var x, y: double; begin write('x = '); readln(x); write('y = '); readln(y); if (x = 0) and (y = 0) then write('Точка находится в начале координат.') else if x = 0 then write('Точка находится на оси абсцисс.') else if y = 0 then write('Точка находится на оси ординат.') else write('Точка не лежит на координатных осях.'); readln end.
Объяснение кода листинга программы
- Объявляются две переменные типа double - x и y.
- Выводится приглашение для ввода значений x и y.
- Считываются значения x и y с помощью функции readln.
- Проверяется условие (x = 0) и (y = 0). Если оно выполняется, то выводится сообщение
Точка находится в начале координат.
- Если условие x = 0 выполняется, то выводится сообщение
Точка находится на оси абсцисс.
- Если условие y = 0 выполняется, то выводится сообщение
Точка находится на оси ординат.
- Если ни одно из условий не выполняется, то выводится сообщение
Точка не лежит на координатных осях.
- Выводится символ новой строки с помощью функции readln.