Mathe bis 20 üben

mathe.R

## Den ganzen Code bei R ausfüllen
## Optional das Feedback personalisieren
## Eingabe von x beendet das Programm

gut <- c("Toll!", "Super!", "Nice!", "Умница!", "Mathegenie!")
nein <- c("Leider falsch", "Versuch's nochmal", "Du hast es gleich!")
x <- "q"
while(TRUE){
  if(x == "x") {
    break()
  }
  a <- ceiling(runif(1,0,20))
  b <- ceiling(runif(1,0,20))
  if (runif(1) < 0.5) {
    while(a+b > 20) {
      a <- ceiling(runif(1,0,20))
      b <- ceiling(runif(1,0,20))
    }
    if(a+b > 20){
      a = a -10
    }
    cat(a, "+", b, "=")
    falsch <- TRUE
    while(falsch) {
      x <- readline()
      if(x == "x"){
        break()
      }
      falsch <- a+b != x 
      if(falsch) {
        cat(sample(nein, 1), "\n")
      } else {
        cat(sample(gut, 1), "\n\n")
      }
    }
  } else {#minus
    if (a < b) {
      temp <- a
      a <- b
      b <- temp
    }
    cat(a, "-", b, "=")
    falsch <- TRUE
    while(falsch) {
      x <- readline()
      if(x == "x"){
        break()
      }
      falsch <- a-b != x 
      if(falsch) {
        cat(sample(nein, 1), "\n")
      } else {
        cat(sample(gut, 1), "\n\n")
      }
    }
  }
}