ФЭНДОМ


Распространённое приложение — программа, эмулирующая калькулятор, т. е. рисующая на экране калькулятор с кнопками, которые можно нажимать мышкой (как правило, можно также нажимать цифровые кнопки на клавиатуре с тем же эффектом). Такая программа удобна для тех, кто привык работать с обычным калькулятором.

На gOrth.Править

#gOrth calculator#
 :begin
 "Wellcome to gOrth calculator!</br>" .
 1 working <-
 doWork wh
 ;
 :input
 "Input first number:" . ,
 "Input second number:" . ,
 ;
 :output
 "result:" . . cr
 ;
 :doWork
 "Input command '+', '-', '*', '/' or 'exit':" .
 , command <-
 command -> "+" -> =s= sum if
 command -> "-" -> =s= dec if
 command -> "*" -> =s= mul if
 command -> "/" -> =s= div if
 command -> exit =s= exit if
 working ->
 ;
 :sum input do + output do ;
 :dec input do - output do ;
 :mul input do * output do ;
 :div input do / output do ;
 :exit 0 working <- ;