Hallo,
nach der Programmmeldung:
Zitat: |
Der längste Zeitraum ohne Freitag den 13. ist
548 Tage lang, vom
14.3.2001 bis 12.9.2002
|
müsste der 13.3.2001 ein Freitag gewesen sein. Der 13.3.2001 war aber ein Dienstag. 2001 gab es im April und Juli Freitag, den 13. Irgendetwas stimmt noch nicht. 2002 gab es im September und Dezember den 13. am Freitag. Das ist korrekt.
Mögliche Ergänzungen des Programms wären:
1. Freitag, der 13. Vollmond
Besonders kritisch ist "Freitag, der 13.", wenn zusätzlich zum schrecklichen Datum auch noch Vollmond ist. Denn dann sind ja die Wesen der Nacht, Werwölfe, Vampire, Dämonen, Hexen, Banker und Politiker, unterwegs.
Das Zusammentreffen beider Ereignisse ist sehr selten. Von 2000 bis 2100 betrifft es
- Freitag, der 13., Vollmonduhrzeit
- 13.10.2000 um 9:55 MEZ
- 13.6.2014 um 5:13 MEZ
- 13.8.2049 um 10:21 MEZ
- 13.4.2063 um 3:36 MEZ
- 13.11.2065 um 1:40 MEZ
- 13.2.2082 um 7:19 MEZ
- 13.10.2084 um 21:16 MEZ
- 13.3.2093 um 5: 8 MEZ
- 13.6.2098 um 21:29 MEZ
2. Doppelter Freitag, der 13.
Besonders selten sind sogenannte doppelte "Freitage, der 13".
Tage, die "Freitag, der 13." sind, werden so bezeichnet, wenn zusätzlich die Summe der Ziffern des Datums gleich 13 ist.
Im Zeitraum 2000 bis 5000 sind dies:
13.01.2006, 13.10.2006, 13.05.2011, 13.04.2012, 13.12.2013, 13.02.2032, 13.01.2051, 13.10.2051, 13.05.2101, 13.02.2122, 13.11.2122, 13.01.2141, 13.10.2141, 13.01.2204, 13.04.2210, 13.12.2211, 13.11.2212, 13.04.2300, 13.12.2301, 13.02.2320, 13.06.3000, 13.03.3012, 13.01.3032, 13.11.3040, 13.02.3103, 13.11.3103, 13.01.3122, 13.10.3122, 13.01.3212, 13.11.3220, 13.01.3302, 13.10.3302, 13.04.4001, 13.12.4002, 13.03.4020, 13.01.4040, 13.02.4111, 13.11.4111, 13.01.4130, 13.10.4130, 13.02.4201, 13.11.4201, 13.10.4220, 13.10.4400
Nur für die Tage
13.05.2011, 13.01.2141, 13.10.2141, 13.04.4001, 13.02.4111, 13.11.4111, 13.02.4201, 13.11.4201
ist das Jahr selbst Primzahl. Noch seltener ist auch der Monat eine Primzahl.
Beste Grüße
Mathematiker
Nachtrag: Ich vermute, der Fehler liegt in
Delphi-Quelltext
1:
| W:=ABS((FrTag+(M+1)*26 DIV 10+5*R DIV 4+H DIV 4-2*H-1))MOD 7 |
Wird der Wert negativ, so müsstest du 7 addieren und nicht den absoluten Betrag bilden.
Dann bekommst du
Zitat: |
Der längste Zeitraum ohne Freitag den 13. ist
426 Tage lang, vom
14.7.1945 bis 12.9.1946 |
was richtig sein müsste.
Töten im Krieg ist nach meiner Auffassung um nichts besser als gewöhnlicher Mord. Albert Einstein