Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Demoprogramm: Der wachsende Tannenbaum Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Dietmar - 14.12.2025 1:11)
Dietmar nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Maxi, Open-Mini Station


' ===========================================================================
' Demoprogramm: Der wachsende Tannenbaum
' In OCBASIC 1.12a_e1 für Open-Maxi von Dietmar Harlos am 14. Dezember 2025
' ===========================================================================

' Passend zu Weihnachten ein kleines Demoprogramm.

' Nach: https://www.proggen.org/forum/viewtopic.php?t=6195

' --- Definitionen ----------------------------------------------------------

INCLUDE "omax.def"  'Definitionen für die Open-Maxi

DIM i, j, k, b BYTE
DIM hoehe BYTE
DIM anzahlSterne, anzahlLeer BYTE
DIM Baumstamm BYTE

' --- Hauptprogramm ---------------------------------------------------------

PrintSpc=ON         'SPACE vor einem dezimalen PRINT
End2Host=ON         'Bei Programmende gleich in den Host-Modus wechseln

PRINT "Der wachsende Tannenbaum"

PRINT "Bitte die Hoehe des Tannenbaumes eingeben: ";
INPUT hoehe

PRINT

FOR i=1 TO hoehe

  anzahlLeer = hoehe + 1 - i
  anzahlSterne = 2 * i - 1

  FOR j=1 TO anzahlLeer
    PRINT " ";
  NEXT j

  FOR k=1 TO anzahlSterne
    PRINT "*";
  NEXT k

  PRINT

NEXT i

Baumstamm = hoehe

FOR i=1 TO 4

  FOR b=1 TO Baumstamm
    PRINT " ";
  NEXT b
  PRINT "*"

NEXT i

END

' --- Programmende ---------------------------------------------------------

Passender Link: Infosite zu den OM-Mikrocontrollern

 Antwort schreiben

Bisherige Antworten: