Проверить истинность высказывания - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

2)Проверить истинность высказывания: Данные числа x, y являются координатами точки, лежащей в первой или третьей координатор четверти. Условный оператор не использовать.

Решение задачи: «Проверить истинность высказывания»

textual
Листинг программы
const
    ANSWER: Array[Boolean] Of String = (' не ', ' ');
var
    x, y: Real;
begin
    Write('x='); ReadLn(x);
    Write('y='); ReadLn(y);
    WriteLn('Точка', ANSWER[x*y > 0], 'принадлежит первой или третьей координатной четверти.')
end.

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

В данном коде происходит следующее:

  1. Объявляются две переменные x и y, которые представляют собой числа с плавающей точкой.
  2. Выводится сообщение «x=», после чего считывается значение переменной x с помощью функции ReadLn().
  3. Выводится сообщение «y=», после чего считывается значение переменной y с помощью функции ReadLn().
  4. Вычисляется значение x*y.
  5. Используя условный оператор if, проверяется, больше ли результат вычисления x*y нуля.
  6. Если условие истинно, то выводится сообщение «Точка принадлежит первой или третьей координатной четверти.» с использованием массива ANSWER. Значение x*y используется как индекс для доступа к элементу массива ANSWER.
  7. Конец программы.

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

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