Ввод арифметического знака

@kolins_1995 · Регистрация: 05.10.2015

Author24 — интернет-сервис помощи студентам

Друзья,сделал программу по выполнению арифметических действий.Вопрос как сделать так чтобы можно было выбирать арифметическую операцию над введёнными числами? Чтобы я с клавиатуры мог ввести к примеру "+" и мне выполняло операцию сложения

Prolog

implement main
 
    open core, console
 
clauses
    run() :-
        init(),
        write("X = "),
        X = read(),
        write("Y = "),
        Y = read(),
        write("Операция "),
        
        nl,
        write("Исходные числа ", X, " и ", Y),
        nl,
        nl,
        _ = readLine(),
        write("Операции с числами: ", X, " и ", Y),
        nl,
        _ = readLine(),
        Z = X + Y,
        write("Сумма: ", X, " + ", Y, " = ", Z),
        _ = readLine(),
        Z1 = X - Y,
        write("Разность: ", X, " - ", Y, " = ", Z1),
        _ = readLine(),
        Z2 = X * Y,
        write("Произведение: ", X, " * ", Y, " = ", Z2),
        _ = readLine(),
        Z3 = X / Y,
        write("Частное: ", X, " / ", Y, " = ", Z3),
        _ = readLine(),
        Z4 = X ^ Y,
 
        nl,
        write("Конец, Нажмите: Enter"),
        _ = readLine().  % Ждем Enter
 
end implement main
 
goal
    mainExe::run(main::run).

@Black Fregat · 02.11.2018, 05:29

Сообщение от kolins_1995

Чтобы я с клавиатуры мог ввести к примеру "+"

У Вас же полно строчек типа _ = readLine(),
Значит, Вы знаете, что делает readLine() и умеете применять.

Не по теме:

Или тут снова слепое переписывание загадочных магических заклинаний без попытки понять смысл?

@Black Fregat Фрилансер 3704 / 2076 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	02.11.2018, 05:29	2
	Сообщение от kolins_1995 Чтобы я с клавиатуры мог ввести к примеру "+" У Вас же полно строчек типа `_ = readLine(),` Значит, Вы знаете, что делает `readLine()` и умеете применять. Не по теме: Или тут снова слепое переписывание загадочных магических заклинаний без попытки понять смысл? 0

Опции темы