Forum: Object-Pascal / Delphi-Language
by Mo53,
17. Mai 2021
@KodeZwerg Vielen Dank für deinen Lösungsvorschlag, ich hab es jetzt bereits mit einer anderen Berechnungsmethode gelöst https://praxistipps.focus.de/ostern-berechnen-so-entsteht-das-datum-jedes-jahr_99285#:~:text=Die%20Osterformel%3A%20So%20berechnen%20Sie%20das%20Datum%201,des%20Ostersonntag%20angewandt%20werden%3D%2022%2Bd%2Be%20-7f-31%20%3D%20d%2Be-7f-9.
da die eine Berechnungsmethode wenn...
Forum: Object-Pascal / Delphi-Language
by Mo53,
16. Mai 2021
Leute zum Thema der Osternüberprüfung verstehe ich die letzte Gleichung nicht, da beide Seiten der Gleichung ja nicht immer das gleiche ergeben.
Die Osterformel: So berechnen Sie das Datum
a = Jahr mod 4
b = Jahr mod 7
c = Jahr mod 19
d = (19c + 24) mod 30
e = (2a + 4b + 6d + 5) mod 7
f = (c + 11d + 22e) / 451
Forum: Object-Pascal / Delphi-Language
by Mo53,
16. Mai 2021
@KodeZwerg
Leider ist uns die Benutzung von Dingen die wir noch nicht hatten untersagt.
Ich verstehe ehrlich gesagt auch nicht warum die uns das Leben nicht leichter machen, aber ich denke die machen das um uns das zu veranschaulichen.
Forum: Object-Pascal / Delphi-Language
by Mo53,
16. Mai 2021
Dankeschön, ich habe es nochmal korrigiert, außer das mit dem ersten If da es ja auch überprüft ob der Tag >= 1 ist, falls eine negative Zahl eingegeben wird, sollte es dann die Fehlermeldung anzeigen.
Hier nochmal die korrigierte Version:
{$APPTYPE CONSOLE}
{$R+,Q+ X-}
uses
System.SysUtils;
var
Forum: Object-Pascal / Delphi-Language
by Mo53,
16. Mai 2021
@Delphi.Narium Vielen Vielen Dank für deine Hilfe, ich müsste es jetzt hinbekommen haben. Wenn ihr noch einen Fehler entdeckt könnt Ihr mich gerne darauf hinweisen.
Jetzt fehlt mir nur noch das Integrieren einer Berechnung ob an diesem Tag Ostern ist, dann kann ich es abgeben.:-D
{$APPTYPE CONSOLE}
{$R+,Q+ X-}
uses
System.SysUtils;
var
Forum: Object-Pascal / Delphi-Language
by Mo53,
16. Mai 2021
Ich habe jetzt das nochmal überarbeitet und zusammengefasst, jetzt besteht aber das Problem das das Programm nach der Abfrage des Datums endet.
Der Debugger hat mir hierzu auch nichts mitgeteilt.
{$APPTYPE CONSOLE}
{$R+,Q+ X-}
uses
System.SysUtils;
Forum: Object-Pascal / Delphi-Language
by Mo53,
16. Mai 2021
Vielen Dank für eure Mühe,
Sorry für die schlechte Lesbarkeit, ich bin noch ein blutiger Anfänger der vor zwei Wochen bei null angefangen hat.
Schleifen sowie function haben wir noch nicht gehabt und dürfen wir somit auch noch nicht verwenden.
Ich werde es mal mit dem Debugger durchgehen vielleicht finde ich das Problem.
Forum: Object-Pascal / Delphi-Language
by Mo53,
16. Mai 2021
Hallo,
Ich habe das Fach Programmstrukturen 1 an der Fachhochschule, nun müssen wir ein Programm schreiben das ein Datum überprüft, natürlich auch ob Schaltjahr ist oder nicht.
Jetzt wird bei mir alles korrekt überprüft außer das Schaltjahr, da bleibt der Compiler immer stehen wenn es kein Schaltjahr ist.
Ich habe alles probiert und nichts möchte klappen.
Wäre dankbar über jede Hilfe.
...