Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [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

Simples Array-Beispiel - Quadratzahlen

Uploader:AdministratorSebastian
Datum/Zeit:21.03.2010 14:34:20

DIM Zahl1 As Integer, Zahl2 As Integer, Zahl3 As Integer, Zahl4 As Integer
Zahl1 = 1
Zahl2 = 4
Zahl3 = 9
Zahl4 = 16

PRINT "1 zum Quadrat ist " & Zahl1
PRINT "2 zum Quadrat ist " & Zahl2
PRINT "3 zum Quadrat ist " & Zahl3
PRINT "4 zum Quadrat ist " & Zahl4

PRINT ""
PRINT "Taste druecken fuer gleich 20 Quadratzahlen!"
PRINT ""
SLEEP

CLS 'Bildschirm leeren

'Jetzt mit Array:
DIM Zahlen(1 To 20) As Integer
DIM i As Integer

For i = 1 To 20
    Zahlen(i) = i*i
Next i

'Jetzt ausgeben:   (Ginge natürlich auch mit *einer* FOR-Schleife)
For i = 1 To 20
    PRINT i & " zum Quadrat ist " & Zahlen(i)
Next i

PRINT ""
PRINT "Taste druecken..."
SLEEP

DIM Zahl As Integer
DO
    CLS
    PRINT "Geben Sie eine Zahl von 1 bis 20 ein, deren Quadratzahl Sie wissen wollen."
    PRINT "Die Eingabe von -1 beendet das Programm."
    INPUT "Zahl: ", Zahl
    If Zahl < 0 Then
        End
    Else
        If (Zahl >= 1) AND (Zahl <= 20) Then
            PRINT "Die Quadratzahl von " & Zahl & " ist " & Zahlen(Zahl) & "."
            SLEEP
        End If
    End If
LOOP