home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_1 / 005.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-02-16  |  2.0 KB  |  95 lines
  1. '********************************************************************
  2. '
  3. ' C-Control/BASIC       005.BAS
  4. '
  5. ' Systemvoraussetzungen:
  6. '
  7. ' - serielle Verbindung zum PC
  8. ' - Terminalprogramm
  9. '
  10. ' Schwerpunkte:
  11. '
  12. ' - Programmschleifen mit FOR...TO...STEP und NEXT
  13. '
  14. ' Das Beispiel zeigt am Ende den Effekt der Verwendung einer
  15. ' Bytevariable als Schleifenvariable in Verbindung mit einem
  16. ' ungueltigem Schleifenendwert (>255).
  17. '********************************************************************
  18.  
  19. ' --- Definitionen --------------------------------------------------
  20.  
  21. ' automatische Variablen
  22.  
  23. define i word
  24. define k byte
  25.  
  26. ' --- Programmoperationen -----------------------
  27.  
  28. 'Programmtitel ausgeben 
  29.   print "C-Control/BASIC      005.BAS"
  30.   print "============================"
  31.   print
  32.  
  33. ' einfachste Schleifenform
  34.   for i = 0 to 10
  35.     print i; " ";
  36.   next
  37.  
  38. ' neue Ausgabezeile
  39.   print
  40.  
  41. ' Schleife mit Schrittweitenangabe
  42.   for i = 0 to 10 step 2
  43.     print i; " ";
  44.   next
  45.  
  46. '* Achtung: die Schleife wird nur beendet, wenn durch fortlaufende
  47. '* Addition der Schrittweite auf den Startwert auch tatsaechlich
  48. '* der angegebene Endwert erreicht wird!
  49. '* "for i = 1 to 10 step 2" wuerde zu einer Endlosschleife fuehren!
  50.  
  51. ' neue Ausgabezeile
  52.   print
  53.  
  54. ' Schleife mit negativer Schrittweite
  55.   for i = 10 to 0 step -1
  56.     print i; " ";
  57.   next
  58.  
  59. ' neue Ausgabezeile
  60.   print
  61.  
  62. ' verschachtelte Schleifen
  63.   for i = 0 to 5
  64.     for k = 0 to 5
  65.       print "(i,k)=("; i; ","; k; ") ";
  66.     next
  67.     print
  68.   next
  69.  
  70. ' neue Ausgabezeile
  71.   print
  72.  
  73. ' eine etwas laengere Schleife
  74.   for i = 0 to 300
  75.     print i; " ";
  76.   next
  77.  
  78. ' neue Ausgabezeile
  79.   print
  80.  
  81. ' zum Schluss ein (hier absichtlicher) Fehler, der zu einer
  82. ' Endlosschleife fuehrt. Achten Sie auf den Ueberlauf von
  83. ' 255 nach 0. Wenn Sie genug gesehen haben, druecken Sie
  84. ' den roten Reset-Taster.
  85.  
  86.   for k = 0 to 300
  87.     print k; " ";
  88.   next
  89.  
  90. ' hierher komm das Programm nie!
  91.   print
  92. end
  93.  
  94.  
  95.