Musterlösung zu "Ostern"

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