Basic256 Snippets

Beispiele für kleine Programmierstückchen

Basiswissen

Mitte

# Mitte von a und b
input a: input b
mitte=(a+b)/2
print mitte

Rückwärts

# zählt von n bis 0
input n
for f=n to 0 step -1
print f
next f

Teilbar

# prüft Teilbarkeit durch 5
input n
if n/5 = int(n/5) then
print "Teilbar durch 5"
else
print "Nicht teilbar durch 5"
endif

Pingpong

# zählt endlos hin und her
input n
cls
zahl=0
richtung$="plus"
while 4<5
if richtung$="plus" then zahl=zahl+1
if richtung$="minus" then zahl=zahl-1
print zahl
if zahl = n then richtung$ = "minus"
if zahl = 0 then richtung$ = "plus"
end while

Fakultät

# berechnet 1*2*3*...*n
input n
ergebnis=1
for f=2 to n
ergebnis=ergebnis*f
next f
print ergebnis

Kreisbahn

# Kugel fliegt im Kreis
fastgraphics
clg : graphsize 200,200
xmitte=100
ymitte=100
radius=50
while 3<4
for winkel=0 to 2*pi step 0.002
x=xmitte + sin(winkel)*radius
y=ymitte+cos(winkel)*radius
clg : circle x,y,2
refresh
next winkel
end while