OSTERN
Angelegt Dienstag 20 Oktober 2026
Das Programm OSTERN berechnet das Osterdatum für ein in X gegebenes Jahr.
Beispiel:
RUN
2027
ENTER
GO
Ostern 2027 ist am 28. März
Speichern Sie das Programm unter ~/.taschenrechner/Programme als OSTERN.txt ab. Anschließend können Sie es mit LOAD OSTERN in den Programmspeicher laden und ausführen.
LBL OSTERN
FIX 0
STO 30
RCL 30
19
MOD
STO 20
RCL 30
4
MOD
STO 21
RCL 30
7
MOD
STO 22
RCL 30
100
/
INT
STO 23
RCL 23
8
*
13
+
25
/
INT
STO 24
RCL 23
4
/
INT
STO 25
15
RCL 23
+
RCL 24
-
RCL 25
-
30
MOD
STO 26
19
RCL 20
*
RCL 26
+
30
MOD
STO 27
4
RCL 23
+
RCL 25
-
7
MOD
STO 28
2
RCL 21
*
4
RCL 22
*
+
6
RCL 27
*
+
RCL 28
+
7
MOD
STO 29
22
RCL 27
+
RCL 29
+
STO 31
RCL 27
29
X=Y
GTO CHECKE
DROP
28
X=Y
GTO CHECKF
RCL 31
LBL AUSGABE
31
X<Y
GTO APRIL
PRINT "Ostern %30 ist am %y. März"
DROP
0.03
+
RCL 30
1e6
/
+
FIX 6
RTN
LBL APRIL
-
PRINT "Ostern %30 ist am %x. April"
0.04
+
RCL 30
1e6
/
+
FIX 6
RTN
LBL CHECKE
RCL 29
6
X=Y
GTO S1
RCL 31
GTO AUSGABE
LBL CHECKF
RCL 29
6
X=Y
GTO CHECKA
RCL 31
GTO AUSGABE
LBL CHECKA
RCL 20
10
X<Y
GTO S2
RCL 31
GTO AUSGABE
LBL S1
PRINT "Ostern %30 ist am 19. April"
FIX 6
19.04
RCL 30
1e6
/
+
RTN
LBL S2
PRINT "Ostern %30 ist am 18. April"
FIX 6
18.04
RCL 30
1e6
/
+
RTN
Backlinks: Z-Blog:Ostern