Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Dezimalzahlen von 0.1 bis 100.0

Uploader:AdministratorSebastian
Datum/Zeit:19.01.2008 19:07:01

'Autor: Sebastian Steiner (19.01.2008)
'Für QBasic.

CONST Warten = 1  ' Zum Ausführen/Compilieren mit ...
                  '  - QBasic auf 1
                  '  - FreeBasic auf 1000
                  ' ... setzen.

DIM Zahl AS SINGLE
DIM Spalte As INTEGER

Zahl = 0.1
Spalte = 1

DO
    PRINT USING "###.#  "; Zahl;
    Spalte = Spalte + 1
    Zahl = Zahl + 0.1
    IF Spalte > 10 THEN
        Spalte = 1
        PRINT ""
        SLEEP Warten
    END IF
LOOP UNTIL Zahl > 100

PRINT "Fertig."
SLEEP
END