Welcome to Schneider / Amstrad CPC Forum. Please login or sign up.

28. March 2024, 15:41:52

Login with username, password and session length

Shoutbox

TFM

2024-01-15, 17:06:57
Momentan billige Farbbänder auf Ebay für PCW

Devilmarkus

2023-07-09, 10:37:40
Zweiter 👋😂🤣

TFM

2023-06-13, 14:21:49
Sommerloch!

TFM

2023-05-30, 17:00:20
Erster ;-)

Recent

Members
Stats
  • Total Posts: 11,654
  • Total Topics: 1,328
  • Online today: 93
  • Online ever: 1,724
  • (16. January 2020, 00:18:45)
Users Online
Users: 1
Guests: 88
Total: 89

88 Guests, 1 User
TFM

Ostersonntag berechnen

Started by Devilmarkus, 19. April 2019, 14:07:29

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Devilmarkus

Da wir ja Karfreitag haben:
So könnt ihr den Ostersonntag berechnen:


10 MODE 2:INPUT"Jahr:",X
20 K=INT(X/100)
30 M=15+INT((3*K+3)/4)-INT((8*K+13)/25)
40 S=2-INT((3*K+3)/4)
50 A=X MOD 19
60 D=(19*A+M) MOD 30
70 R=INT(D/29)+(INT(D/28)-INT(D/29))*INT(A/11)
80 OG=21+D-R
90 SZ=7-(X+INT(X/4)+S) MOD 7
100 OE=7-(OG-SZ) MOD 7
110 OS=OG+OE:M$="March":IF OS>31 THEN OS=OS-31:M$="April"
120 PRINT "Ostersonntag ist im Jahr";X;"am ";MID$(STR$(OS),2);". ";M$


Euch allen frohe Ostern!

https://cpcwiki.de
Dein Deutsches CPCWiki!

TFM

Frohe Ostern Euch allen, hier die Eier...


TFM of FutureSoft
http://www.futureos.de --> Das Betriebssystem FutureOS (Update: 20.12.2023)
http://futureos.cpc-live.com/files/LambdaSpeak_RSX_by_TFM.zip --> RSX ROM für LambdaSpeak (Update: 26.12.2021)

TFM

So ein Programm wäre auch für den Pfingst-Sonntag sinnvoll! Will das jemand umsetzen?
TFM of FutureSoft
http://www.futureos.de --> Das Betriebssystem FutureOS (Update: 20.12.2023)
http://futureos.cpc-live.com/files/LambdaSpeak_RSX_by_TFM.zip --> RSX ROM für LambdaSpeak (Update: 26.12.2021)

Devilmarkus

#3
Rechne einfach das Ergebnis plus 49, und teil es dann auf die Monate, dann hast du es...
https://cpcwiki.de
Dein Deutsches CPCWiki!

Devilmarkus

#4
So z.B.:
10 MODE 2:INPUT"Jahr:",X
30 K=INT(X/100)
40 M=15+INT((3*K+3)/4)-INT((8*K+13)/25)
50 S=2-INT((3*K+3)/4)
60 A=X MOD 19
70 D=(19*A+M) MOD 30
80 R=INT(D/29)+(INT(D/28)-INT(D/29))*INT(A/11)
90 OG=21+D-R
100 SZ=7-(X+INT(X/4)+S) MOD 7
110 OE=7-(OG-SZ) MOD 7
120 OS=OG+OE:M$="March":IF OS>31 THEN OS=OS-31:M$="April"
130 PRINT "Ostersonntag ist im Jahr";X;"am ";MID$(STR$(OS),2);". ";M$
140 PS=OS+49
150 IF PS>30 THEN PS=PS-30:M$="Mai"
160 IF PS>31 AND M$="Mai" THEN PS=PS-31:M$="Juni"
190 PRINT "Pfingstsonntag ist im Jahr";X;"am ";MID$(STR$(PS),2);". ";M$
https://cpcwiki.de
Dein Deutsches CPCWiki!

TFM

TFM of FutureSoft
http://www.futureos.de --> Das Betriebssystem FutureOS (Update: 20.12.2023)
http://futureos.cpc-live.com/files/LambdaSpeak_RSX_by_TFM.zip --> RSX ROM für LambdaSpeak (Update: 26.12.2021)