random generating qs

Question

Hi..........um im working on a basic random maths generating project were the computer generates two random numbers which you have to add etc. (e.g. 1*5). Im stuck trying to generate equations with random maths signs +*/-. P.s. The division qs must be divisible into a whole number please helpppppppppppp

Answer 1

Something like that ?

Sub GenerateNewExercice
    FirstNum = Math.Random(10) ' number from 1 to 10
    SecondNum = Math.Random(10) 'number from 1 to 10
    Operation = Math.Random(4) ' number from 1 to 4
    If Operation = 1 Then
      Result = FirstNum + SecondNum
      Operator = "+"
    ElseIf Operation = 2 Then
      Result = FirstNum - SecondNum
      Operator = "-"
    ...
    ElseIf Operation = 4 Then
      Result = FirstNum / SecondNum
      If Result <> Math.Round(Result) Then ' The division is not valid
           GenerateNewExercice()
      EndIf           
      Operator = "/"
    EndIf
EndSub

Must by adapted to your needs, it's just a stub here.

---

Fremy - Developer in VB.NET, C# and JScript ... - Feel free to try my extension

Answer 2

Something like this:

num1=math.GetRandomNumber(10)
num2=math.GetRandomNumber(10)
operation=math.GetRandomNumber(4)

If operation=1 Then
  '+
EndIf
If operation=2 Then
  '-
EndIf
If operation=3 Then
  '/
  tempnum=num1
  result=num1*num2
  num1=result
  result=tempnum
  op_char="/"
EndIf
If operation=4 Then
  '*
  result=num1*num2
  op_char="*"
EndIf

TextWindow.Write(num1)
TextWindow.Write(op_char)
TextWindow.Write(num2)
TextWindow.Write("=")

you have to write own routines for - and + operations and you have to get result from user and check is it correct.

Hope it helps :)

---

Grzesio

Answer 3

I dont know where to insert it... I tried putting it in diffrent places but it either ends up like

-
156
Press any character to continue...

for this phrase i edited it

If
 operation=1 Then


  Textwindow.Writeline ("+")


EndIf

If
 operation=2 Then


  Textwindow.Writeline ("-")


EndIf

If
 operation=3 Then


  Textwindow.Writeline ("/")


  tempnum=num1

  result=num1*num2

  num1=result

  result=tempnum

  op_char="/"


EndIf

If
 operation=4 Then


  Textwindow.Writeline ("*")


  result=num1*num2

  op_char="*"


EndIf

Answer 4

Do not touch section for operation 3 and operation 4. They are ready.
Try to make secions for operation 1 and 2 similar and write some code for getting an answer, checking if it's correct etc.

---

Grzesio

Answer 5

whats wrong with operation 1 and 2

Answer 6

Try to think how your code should work.
What you need to do when you know operation and two numbers.

If you know this - we can try to prepare some code for your "recipe". :)

Look at MY sample code (not the code in your post) and try to determine when (and how) we are displaying numbers and sign.

---

Grzesio