MODULE Ostern;
IMPORT Display;
PROCEDURE ProgMain* ;
VAR
Jahr, a,b,c,d,e,f,g,v,x,y,z: LONGINT;
ch: CHAR;
BEGIN
Display. WriteStr ("Bitte Jahr eingeben:");
Display. ReadLongInt (Jahr, 4, ch);
Display. WriteLn;
a := Jahr -1900;
b := a MOD 19;
x := 7*b + 1;
c := a DIV 19;
v := 11*b + 4 - c;
d := v MOD 29;
e := a DIV 4;
z := a + e + 31 - d;
f := z MOD 7;
g := 25 - d - f;
Display. WriteStr ("Ostern ist am");
Display. WriteInt (g, 4);
Display. WriteStr (". April");
Display. ReadChar (ch)
END ProgMain;
END Ostern.
Zurück zum Thema Variable