Bonne année 2023 avec le programme hybride Zero+TI-Basic !
Posted: 31 Dec 2022, 23:59
Nos Zero ZGC2 et TI-83 Premium CE Edition Python se sont réunies fraternellement pour compter en chœur avec toi :
Et n'oublie pas de bien comparer les différences entre les programmes Zero Basic et TI-Basic, pour découvrir encore plus de secrets sur la mystérieuse et légendaire Zero ZGC2 :
Et n'oublie pas de bien comparer les différences entre les programmes Zero Basic et TI-Basic, pour découvrir encore plus de secrets sur la mystérieuse et légendaire Zero ZGC2 :
- Code: Select all
126→D
32-int(log(D))→A
12→B
A→X
B→Y
While D>0 Do
Output(Y,X," ")
X→T
X+(Y==1 and X<A)-(Y==B and X>1)→X
Y+((T==A and Y<B)-(T==1 and Y>1))→Y
Output(Y,X,D)
If not fPart(log(D)) Then
A+1→A
X+(X==A)→X
End
D-1→D
For I In 0,4000 Do End
End
2023→N
Disp("Happy New Year 2023")
Disp("Frohes Neujahr 2023")
Disp("Bonne Annee 2023")
- Code: Select all
101→D
26-iPart(log(D→A
10→B
A→X
B→Y
While D
Output(Y,X," "
X→T
X+((Y=1 and X<A)-(Y=B and X>1→X
Y+((T=A and Y<B)-(T=1 and Y>1→Y
Output(Y,X,D
If not(fPart(log(D
Then
A+1→A
X+(X=A→X
End
D-1→D
For(I,0,1105
End
End
Output(Y,1,"prgmZERO
Disp "HAPPY NEW YEAR 2023
Disp "FROHES NEUJAHR 2023
Disp "BONNE ANNEE 2023
0
- Code: Select all
101→D
26-ent(log(D→A
10→B
A→X
B→Y
While D
Output(Y,X," "
X→T
X+((Y=1 et X<A)-(Y=B et X>1→X
Y+((T=A et Y<B)-(T=1 et Y>1→Y
Output(Y,X,D
If non(partDéc(log(D
Then
A+1→A
X+(X=A→X
End
D-1→D
For(I,0,1105
End
End
Output(Y,1,"prgmZERO
Disp "HAPPY NEW YEAR 2023
Disp "FROHES NEUJAHR 2023
Disp "BONNE ANNEE 2023
0
Our Zero ZGC2 and TI-83 Premium CE Python Edition came together fraternally to count in chorus with you:
And don't forget to compare as well the differences between Zero Basic and TI-Basic programs, to discover even more secrets about the mysterious and legendary Zero ZGC2
And don't forget to compare as well the differences between Zero Basic and TI-Basic programs, to discover even more secrets about the mysterious and legendary Zero ZGC2
- Code: Select all
126→D
32-int(log(D))→A
12→B
A→X
B→Y
While D>0 Do
Output(Y,X," ")
X→T
X+(Y==1 and X<A)-(Y==B and X>1)→X
Y+((T==A and Y<B)-(T==1 and Y>1))→Y
Output(Y,X,D)
If not fPart(log(D)) Then
A+1→A
X+(X==A)→X
End
D-1→D
For I In 0,4000 Do End
End
2023→N
Disp("Happy New Year 2023")
Disp("Frohes Neujahr 2023")
Disp("Bonne Annee 2023")
- Code: Select all
101→D
26-iPart(log(D→A
10→B
A→X
B→Y
While D
Output(Y,X," "
X→T
X+((Y=1 and X<A)-(Y=B and X>1→X
Y+((T=A and Y<B)-(T=1 and Y>1→Y
Output(Y,X,D
If not(fPart(log(D
Then
A+1→A
X+(X=A→X
End
D-1→D
For(I,0,1105
End
End
Output(Y,1,"prgmZERO
Disp "HAPPY NEW YEAR 2023
Disp "FROHES NEUJAHR 2023
Disp "BONNE ANNEE 2023
0
- Code: Select all
101→D
26-ent(log(D→A
10→B
A→X
B→Y
While D
Output(Y,X," "
X→T
X+((Y=1 et X<A)-(Y=B et X>1→X
Y+((T=A et Y<B)-(T=1 et Y>1→Y
Output(Y,X,D
If non(partDéc(log(D
Then
A+1→A
X+(X=A→X
End
D-1→D
For(I,0,1105
End
End
Output(Y,1,"prgmZERO
Disp "HAPPY NEW YEAR 2023
Disp "FROHES NEUJAHR 2023
Disp "BONNE ANNEE 2023
0
