Keskustelu: Koodit: QB: Alkeellinen laskin

QBASIC:n alkeita lueskellessa tulin vain vääntäneeksi alkeellisen laskimen, joka laskee kahden luvun summan, erotuksen tulon ja osamäärän molemmin päin. Parempiakin laskimia on taatusti olemassa ja kai tämän voisi muullakin tavalla tehdä. Selotukset jätin pois koodista, koska koodini on mielestäni alkeellinen ja helposti ymmärrettävä.

DIM c AS INTEGER, d AS INTEGER
INPUT "Syötä ensimmäinen luku:", c
INPUT "Syötä toinen luku:", d
PRINT c + d
PRINT c - d
PRINT c * d
PRINT c / d
PRINT d + c
PRINT d - c
PRINT d * c
PRINT d / c
INPUT "Oliko tästä hyötyä?", hyoty$
IF hyoty$ = "kyllä" THEN
 PRINT "Mukavaa, että työtäni arvostetaan."
ELSEIF hyoty$ = "ei" THEN
 PRINT "Aina ei voi miellyttää kaikkia."
END IF

Minkä ihmeen takia tänne pitää tunkea "koodivinkki" aina kun oppii jotain uutta? Näin yksinkertaiset voisi minun mielestäni jättää pois.