[Visual Prolog 5.2] Выполнение условия при заданном значении Edit

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

Доброго времени суток. Стоит такая задача- необходимо считать значение из эдита и если это например 1 , то выполнить одни действия,если 2,то другие. В любом другом ЯП воспользовался бы case или switch , но как мне известно , в прологе таких нет. Подскажите, как можно реализовать данную задачу?

Решение задачи: «[Visual Prolog 5.2] Выполнение условия при заданном значении Edit»

Листинг программы

process(1) :-
    !,    
    write("Операция 1").
process(2) :-
    !,    
    write("Операция 2").
process(_) :-
    write("Ошибка в номере операции").

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

В данном коде определен процесс выполнения операций под номерами 1 и 2, а также обработка ошибки в случае неверного номера операции.

Операция 1:
- Код выполняет операцию 1.
- Выводится сообщение Операция 1.
Операция 2:
- Код выполняет операцию 2.
- Выводится сообщение Операция 2.
Ошибка в номере операции:
- Если номер операции не равен 1 или 2, то выводится сообщение Ошибка в номере операции.