Keskustelu: Koodit: QB: Hieno kumpu halutusta sanasta

Tämä koodi tekee halutusta sanasta hienon kummun. Sen ei kannata olla pitkä, mutta jos haluat nähdä mitä käy pitkälle sanalle niin siitä vaan.

CLS
DIM kaannett AS STRING
DIM ttennaak AS STRING
DIM ttenaak AS STRING
INPUT "Minkä sanan haluat muodostaa?", kaannett
CLS
kaannett = kaannett + " " 'ekan ja vikan merkin ON oltava väli
FOR letter = 1 TO LEN(kaannett)
        ttennaak = MID$(kaannett, letter)
        ttenaak = ttenaak + ttennaak
        ttennaak = ttennaak + ttenaak
        PRINT ttennaak
NEXT letter
PRINT ttenaak

kommentteja vastaanotetaan mielellään...

Ihan hienosti näyttää toimivan. Aika yksinkertainen tosin

no olipa nyt hieno :D

Joo todel hieon :)

Ei kovin hieno...

Ei oikeen sovi grafiikat-osioon

ei sovi minnekkään osioon, mitä ton ees pitäis tehä?

Täh???

Siis ihan surkee!!

Ompa hieno :p