Computer Science Canada Calculator (School Assignment) |
| Author: | vexd [ Sun Oct 05, 2003 4:58 pm ] |
| Post subject: | Calculator (School Assignment) |
%|-------------------------------------------------------> %|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 |
|
| Author: | poly [ Sun Oct 05, 2003 7:06 pm ] |
| Post subject: | |
Whats the difference between this one and the other one you posted? |
|
| Author: | Dan [ Sun Oct 05, 2003 8:54 pm ] |
| Post subject: | |
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. |
|
| Author: | Tony [ Sun Oct 05, 2003 9:39 pm ] |
| Post subject: | |
didn't bugz made something like that? |
|
| Author: | vexd [ Tue Oct 07, 2003 10:03 pm ] |
| Post subject: | |
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  |
|
| Author: | Dan [ Wed Oct 08, 2003 11:14 am ] |
| Post subject: | |
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  |
|