Simple program i made
Author |
Message |
Mathwiz
|
Posted: Thu Nov 02, 2006 10:49 am Post subject: Simple program i made |
|
|
var number1 : real
var number2 : real
var total : int
var symbel : real
var number : real
put " please enter your first number"
get number1
put " please enter your lst number"
get number2
put " please enter number"
put " 1. Addition"
put "2. Subtraction"
put "3. Multiplication"
put "4. Division"
get number
if number = 1 then
put number1, "+ ", number2,"=", number1 + number2
elsif
number = 2 then
put number1, "-", number2,"=",number1-number2
elsif
number=3 then
put number1, "*",number2,"=", number1*number2
elsif
number= 4 then
put number1,"/",number2,"=", number1/number2
elsif
number>4 then
put "You have to enter a number between 1-4 not 5-10"
put "and you call yourself Smart."
end if |
|
|
|
|
![](images/spacer.gif) |
Sponsor Sponsor
![Sponsor Sponsor](templates/subSilver/images/ranks/stars_rank5.gif)
|
|
![](images/spacer.gif) |
jamonathin
![](http://compsci.ca/v3/uploads/user_avatars/57683465145f851a43dd9a.gif)
|
Posted: Thu Nov 02, 2006 11:50 am Post subject: (No subject) |
|
|
Next thing you should do is learn procedures (or functions) and loops, then you can expand on your program.
What procedures/functions and loops will do for your program is, make it run more than once. Here's a small example of procedures and loops.
code: |
var num1, num2, final :int
var done:int := 2
procedure add
final := num1 + num2
put "Final = ", final
end add
loop
cls % Everything in loop starts here
put "Enter num1: "
get num1
put "Enter num2: "
get num2
add %We call to "add" procedure, and everything in "add" gets done now
put ""
put "Again? 1 = yes, 2 = no
exit when done = 2 %Exit loop if done = 2, if done not=2 then loop starts over
end loop
put "Bye." |
Edit: Next time please use code tags like such .
code: | [code]All code goes here.[/code] |
|
|
|
|
|
![](images/spacer.gif) |
abysspell
|
Posted: Fri Nov 03, 2006 1:51 pm Post subject: (No subject) |
|
|
Wow, thats an old thing. I completely forgot about it. You might want to check your output. it says to enter your first number twice. |
|
|
|
|
![](images/spacer.gif) |
rdrake
![](http://compsci.ca/v3/uploads/user_avatars/113417932472fc6c9cd916.png)
|
Posted: Fri Nov 03, 2006 2:27 pm Post subject: (No subject) |
|
|
abysspell wrote: You might want to check your output. it says to enter your first number twice. Awha? Try this.
Turing: | var num1, num2, final : int
var done: int := 2
procedure add
final := num1 + num2
put "Final = ", final
end add
loop
cls % Everything in loop starts here
put "Enter num1: "
get num1
put "Enter num2: "
get num2
add %We call to "add" procedure, and everything in "add" gets done now
put ""
put "Again? 1 = yes, 2 = no"
get done
exit when done = 2 %Exit loop if done = 2, if done not=2 then loop starts over
end loop
put "Bye." |
|
|
|
|
|
![](images/spacer.gif) |
|
|