- Registriert
- 14.11.04
- Beiträge
- 179
Gibt es ein Programm für Mac Os X, das QBasic Befehle annimmt?
Also was z.B. so ein Programm ausführt:
CLS
INPUT "Anzahl der Elemente",n
DIM a(n)
FOR i=1 TO n
a(i)=INT(n*10*RND)+1
NEXT i
FOR i=1 TO n
PRINT a(i)
NEXT i
PRINT
PRINT
FOR k=1 TO n-1
min=a(k)
minpos=k
FOR i=k+1 TO n
IF a(i)<min THEN
min=a(i)
minpos=i
END IF
NEXT i
hilf=a(k)
a(k)=a(minpos)
a(minpos)=hilf
NEXT k
FOR i=1 TO n
PRINT a(i)
NEXT i
Also was z.B. so ein Programm ausführt:
CLS
INPUT "Anzahl der Elemente",n
DIM a(n)
FOR i=1 TO n
a(i)=INT(n*10*RND)+1
NEXT i
FOR i=1 TO n
PRINT a(i)
NEXT i
FOR k=1 TO n-1
min=a(k)
minpos=k
FOR i=k+1 TO n
IF a(i)<min THEN
min=a(i)
minpos=i
END IF
NEXT i
hilf=a(k)
a(k)=a(minpos)
a(minpos)=hilf
NEXT k
FOR i=1 TO n
PRINT a(i)
NEXT i