Autor Thema: Ostersonntag berechnen  (Gelesen 229 mal)

0 Mitglieder und 1 Gast betrachten dieses Thema.

Offline Devilmarkus

  • Administrator
  • CPC 464+
  • *****
  • Beiträge: 952
  • Liked: 285
  • Karma: +29/-0
Ostersonntag berechnen
« am: 19. April 2019, 14:07:29 »
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!

http://cpcwiki.de
Dein Deutsches CPCWiki!

Offline TFM

  • Administrator
  • CPC 6128+
  • *****
  • Beiträge: 2533
  • Liked: 587
  • Karma: +25/-0
  • Geschlecht: Männlich
  • FutureSoft und CPC - Ein starkes Team!
    • FutureOS
Re: Ostersonntag berechnen
« Antwort #1 am: 21. April 2019, 15:52:41 »
Frohe Ostern Euch allen, hier die Eier...


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

Offline TFM

  • Administrator
  • CPC 6128+
  • *****
  • Beiträge: 2533
  • Liked: 587
  • Karma: +25/-0
  • Geschlecht: Männlich
  • FutureSoft und CPC - Ein starkes Team!
    • FutureOS
Re: Ostersonntag berechnen
« Antwort #2 am: 21. April 2019, 15:56:08 »
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: 14.01.2019)
http://futureos.cpc-live.com/files/LambdaSpeak_RSX_by_TFM.zip --> RSX ROM für LambdaSpeak (Update: 15.08.2018)

Offline Devilmarkus

  • Administrator
  • CPC 464+
  • *****
  • Beiträge: 952
  • Liked: 285
  • Karma: +29/-0
Re: Ostersonntag berechnen
« Antwort #3 am: 21. April 2019, 18:39:47 »
Rechne einfach das Ergebnis plus 49, und teil es dann auf die Monate, dann hast du es...
« Letzte Änderung: 21. April 2019, 18:59:00 von Devilmarkus »
http://cpcwiki.de
Dein Deutsches CPCWiki!

Offline Devilmarkus

  • Administrator
  • CPC 464+
  • *****
  • Beiträge: 952
  • Liked: 285
  • Karma: +29/-0
Re: Ostersonntag berechnen
« Antwort #4 am: 21. April 2019, 18:58:49 »
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$
« Letzte Änderung: 22. April 2019, 11:28:30 von Devilmarkus »
http://cpcwiki.de
Dein Deutsches CPCWiki!

Offline TFM

  • Administrator
  • CPC 6128+
  • *****
  • Beiträge: 2533
  • Liked: 587
  • Karma: +25/-0
  • Geschlecht: Männlich
  • FutureSoft und CPC - Ein starkes Team!
    • FutureOS
Re: Ostersonntag berechnen
« Antwort #5 am: 25. April 2019, 01:47:36 »
Cool! Funktioniert!  :smiley027:
TFM of FutureSoft
http://www.FutureOS.de --> Das Betriebssystem FutureOS (Update: 14.01.2019)
http://futureos.cpc-live.com/files/LambdaSpeak_RSX_by_TFM.zip --> RSX ROM für LambdaSpeak (Update: 15.08.2018)