Пример «Действие Выбор»

Файлы:

Пример программы на языке программирования Перфо:

//Эта программа написана на языке программирования Перфо
//для демонстрации использования действия Выбор

//Действие Выбор:

//Синтаксис: (Выбор ((Условие1) Значение1) ... ((УсловиеН) ЗначениеН) (Иначе Значение))
//Делает выбор из нескольких условий.  
//Возвращает то значение, условие для которого вернуло значение Истина, или значение секции Иначе, или Неопределено, если секция Иначе отсутствует.

//-----------------------------------
//разнообразные тесты

//так будет ошибка
//(Вывод "(Выбор Истина) = " (Выбор Истина) пс)

// и так будет ошибка
//(Вывод "(Выбор (Истина)) = " (Выбор (Истина)) пс)

//результат выбора = 1
(Вывод "(Выбор (Истина 1)) = " (Выбор (Истина 1)) пс)

//результат выбора = 2
(Вывод "(Выбор (Ложь 1) (Истина 2)) = " (Выбор (Ложь 1) (Истина 2)) пс)

//результат выбора = 3
(Вывод "(Выбор (Ложь 1) (Ложь 2) (Иначе 3)) = " (Выбор (Ложь 1) (Ложь 2) (Иначе 3)) пс)

//результат выбора = Неопределено
(Вывод "(Выбор (Ложь 1) (Ложь 2)) = " (Выбор (Ложь 1) (Ложь 2)) пс)

//--- то же самое с вычисляемыми условиями ---

(Перем А 5)
(Вывод "А = " А пс)

//результат выбора = 5
(Вывод "(Выбор ((= А 5) 5)) = " (Выбор ((= А 5) 5)) пс)

//результат выбора = 5
(Вывод "(Выбор ((= А 1) 1) ((= А 5) 5)) = " (Выбор ((= А 1) 1) ((= А 5) 5)) пс)

//результат выбора = 5
(Вывод "(Выбор ((= А 1) 1) ((= А 2) 2) (Иначе А)) = " (Выбор ((= А 1) 1) ((= А 2) 2) (Иначе А)) пс)

//результат выбора = Неопределено
(Вывод "(Выбор ((= А 1) 1) ((= А 2) 2)) = " (Выбор ((= А 1) 1) ((= А 2) 2)) пс)

//фоматируем выбор для красоты
(Вывод пс "Красиво:" пс "(Выбор ((= А 1) 1) ((= А 2) 2) (Иначе А)) = " 
    (Выбор 
        ((= А 1) 1) 
        ((= А 2) 2) 
        (Иначе А)
    ) 
    пс
)

//--- Другие примеры ---

//результат всех 3-х примеров = 16
(Перем А 3)
(Перем Б (+ А 1))
(Вывод (Выбор ((= А 4) 6)
              ((= Б 4) (+ 6 7 А))
              (Иначе 25)
       )
   пс
)
(Вывод (* (Выбор ((> А Б) А)
                 ((< А Б) Б)
                 (Иначе -1)
          )
          (+ А 1)
       )
   пс
)
(Вывод (* 2 (Выбор ((> А Б) А)
                 ((= А Б) Б)
                 (Иначе 8)
            )
       )
   пс
)

К началу статьи