Habe folgenden algorithmus zum berechnen des Osterdatums gefunden.
Kann mir den bitte mal jemand klar und deutlich erklären, so dass ihn ein leihe versteht?? am besten mit kommentaren.
Vorallem würde ich auch gerne wissen, ob die variablen g, usw für was bestimmtes stehen, oder ob die einfacg nur so benannt wurden sind.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| procedure Ostern;
var Jahr, G, C, X, Z, D, E, N: integer;
begin
Clrscr;
Writeln('Bitte geben sie das Jahr ein, in dem Ostern berechnet werden soll:');readln(Jahr);
G := Jahr mod 19 + 1;
C := Jahr div 100 + 1;
X := 3 * C div 4 - 12;
Z := (8 * C + 5) div 25 - 5;
D := 5 * Jahr div 4 - X - 10;
E := (11 * G + 20 + Z - X) mod 30;
if (E = 25) and (G > 11) or (E = 24) then E := E + 1;
N := 44 - E;
if N < 21 then N := N + 30;
N := N + 7 - (D + N) mod 7;
writeln; writeln;
write('Ostersonntag im Jahre '+IntToStr(Jahr)+' ist/war am: ');
if N > 31 then begin
N := N-31;
writeln(IntToStr(N)+'. April .');
end
else writeln(IntToStr(N)+'. Maerz .'); readln;
end; |
Vielen Dank, THe-Tremendous
klicken und den Titel ändern. Dank Dir!
