home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / date / easter / easter.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-11  |  683 b   |  29 lines
  1. {Made by Sam Laur 18.9.1989}
  2. program Easter(Input, Output);
  3. var a, b, c, d, e, f, g, h, i, k, l, m, n, p, x : integer;
  4.     vast : char;
  5.  
  6. begin
  7.   repeat
  8.    write ('Which year ?');
  9.    readln (x);
  10.    a := x mod 19;
  11.    b := x div 100;
  12.    c := x mod 100;
  13.    d := b div 4;
  14.    e := b mod 4;
  15.    f := (b+8) div 25;
  16.    g := (b-f+1) div 3;
  17.    h := (19*a+b-d-g+15) mod 30;
  18.    i := c div 4;
  19.    k := c mod 4;
  20.    l := (32+2*e+2*i-h-k) mod 7;
  21.    m := (a+11*h+22*1) div 451;
  22.    n := (h+l-7*m+114) div 31;
  23.    p := (h+l-7*m+114) mod 31;
  24.    writeln ('The easter on the year ',x,' is on ',(p+1),'. ',n,'.');
  25.    write(' More (y/n)?');
  26.    readln(vast);
  27.   until vast = 'n'
  28. end.
  29.