Определить, на какой оси лежит точка, заданная координатами - 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.

Объяснение кода листинга программы

  1. Объявляются две переменные типа double - x и y.
  2. Выводится приглашение для ввода значений x и y.
  3. Считываются значения x и y с помощью функции readln.
  4. Проверяется условие (x = 0) и (y = 0). Если оно выполняется, то выводится сообщение Точка находится в начале координат.
  5. Если условие x = 0 выполняется, то выводится сообщение Точка находится на оси абсцисс.
  6. Если условие y = 0 выполняется, то выводится сообщение Точка находится на оси ординат.
  7. Если ни одно из условий не выполняется, то выводится сообщение Точка не лежит на координатных осях.
  8. Выводится символ новой строки с помощью функции readln.

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы