Пример «Действие Если»

Файлы:

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

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

//Действие Если:

//Синтаксис: (Если Условие ЗначениеИстина ЗначениеЛожь)
//Делает условный выбор значения.  
//Возвращает ЗначениеИстина, если значение условия равно Истина, иначе возвращается ЗначениеЛожь.

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

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

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

//результат = Неопределено, т.к. нет секции ЗначениеЛожь
(Вывод "(Если Ложь 1) = " (Если Ложь 1) пс)

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

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

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

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

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

//фоматируем для красоты
(Вывод пс "Красиво 1:" пс "(Если (= А 1) (* А 2) (+ А 3)) = " 
    (Если (= А 1) 
          (* А 2) 
          (+ А 3) //сработает эта секция
    ) 
    пс
)
(Вывод пс "Красиво 2:" пс "(Если (= А 5) ""А равно 5!"" ""А не равно 5!"" = " 
    (Если (= А 5) 
          "А равно 5!" //сработает эта секция 
          "А не равно 5!"
    ) 
    пс
)
(Вывод пс "Красиво 3:" пс "(Если (= А 0) ""А равно 5!"" ""А не равно 5!"" = " 
    (Если (= А 0) 
          "А равно 5!" 
          "А не равно 5!" //сработает эта секция
    ) 
    пс
)

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

//вложенное действие Если
(Вывод пс "Вложенное действие Если:" пс 
    (Если (= А 5) 
          (Если (= 2 4) 
              "2 равно 4!" 
              (+ "2 НЕ равно 4! А = " А "!") //сработает эта секция
          ) 
          ("А не равно 5!")
    ) 
    пс
)

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