fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Dezimalzahlen von 0.1 bis 100.0

Uploader:	Sebastian
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

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.