Calculator (School Assignment)

[vexd]

%|------------------------------------------------------->
%|Author: VeXD
%|Date: Sept, 24 2003
%|Purpose: To make a simple calculator
%|Input: A operator and 2 integers, depending on the operator.
%|Output: This program will output the total of the integers.
%|------------------------------------------------------->

var rlNum : real := 0
var rlNum1 : real := 0
var strOperator : string

loop
put "Please Type in a valid operator or type OFF to exit."
loop
get strOperator
exit when strOperator = "sqrt" or strOperator = "abs" or strOperator
= "round" or strOperator = "+" or strOperator = "-" or strOperator
= "*" or strOperator = "/" or strOperator = "div" or strOperator =
"mod" or strOperator = "**" or strOperator = "off"
put "Invalid Operator, Please type a valid Operator or type OFF, to turn off the calculator."
end loop
exit when strOperator = "off" or strOperator = "OFF"

case strOperator of
put "Please Enter your first number"
get rlNum
label "sqrt" :
loop
exit when rlNum > 0
put "Please enter a positive number."
get rlNum
end loop
rlNum := sqrt (rlNum)
label "abs" :
rlNum := abs (rlNum)
label "round" :
rlNum := round (rlNum)
label "+" :
put "+" ..
get rlNum1
rlNum := rlNum + rlNum1
label "-" :
put "-" ..
get rlNum1
rlNum := rlNum - rlNum1
label "*" :
put "*" ..
get rlNum1
rlNum := rlNum * rlNum1
label "/" :
put "/" ..
get rlNum1
loop
exit when rlNum1 > 0
put "Please re-enter a new number"
get rlNum1
end loop
rlNum := rlNum / rlNum1
label "div" :
rlNum := round (rlNum)
put "div" ..
get rlNum1
loop
exit when rlNum1 > 0
put "Please re-enter a new number"
get rlNum1
end loop
rlNum1 := round (rlNum1)
rlNum := rlNum div rlNum1
label "mod" :
rlNum := round (rlNum)
put "mod" ..
get rlNum1
loop
exit when rlNum1 > 0
put "Please re-enter a new number"
get rlNum1
end loop
rlNum1 := round (rlNum1)
rlNum := rlNum mod rlNum1
label "**" :
put "**" ..
get rlNum1
loop
exit when rlNum1 > 0
put "Please re-enter a new number"
get rlNum1
end loop
rlNum := rlNum ** rlNum1
end case
put "---"
put rlNum
end loop

[poly]

Whats the difference between this one and the other one you posted?

[Dan]

i whould remomend hiting F2 befor copying this in to a post msg and if you put it in code tages it makes it look alot bet for poleop to see on the site.


any how, intresting progame why dont you try to make one where the user can put in somting like "5 + 6" in one input line and use substrings to tell what the oprator and values are.

[Tony]

didn't bugz made something like that?

[vexd]

hehe guys i didnt make this for fun or anything, this was a assignment part of 3 that we get every week for comp sci. So, i didnt have to make dis complex or anything and i did hit F2..it just messed up, ill do it next time and im posting this here so a begginer can use it for his class if he has to do something like this. I know alot of people in my class that were asking for help on this one, and since im a Lab Advisor, ill recommend them this site

[Dan]

vexd wrote:

....and since im a Lab Advisor, ill recommend them this site

oh i like that. here have some bits for helping to make this site bigger and help poleop with the evil langue that is turing