Keskustelu: Koodit: QB: Painoindeksin laskija

PRINT "Painoindeksin laskija"
alku:
INPUT "Painosi kiloina: ", paino
INPUT "Pituutesi sentteinä: ", pituuscm
LET pituus = pituuscm / 100
LET indeksi = paino / pituus^2
PRINT "Painoindeksisi on ", indeksi
INPUT "Uudestaan (k/e): ", uudestaan
IF uudestaan = "k" THEN GOTO alku: ELSE PRINT "Ohjelma lopetettu"