home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_01 / 2n01050a < prev    next >
Text File  |  1990-12-02  |  687b  |  38 lines
  1.  
  2.  
  3.  
  4. uses
  5.         dos;
  6.  
  7. function leap(y : longint) : boolean;
  8.         begin
  9.         leap := (y mod 4 = 0) and (y mod 100 <> 0)
  10.                  or (y mod 400 = 0);
  11.         end;
  12.  
  13. function time : longint;
  14.         var
  15.                 h, m, s, s100 : word;
  16.                 t : longint;
  17.         begin
  18.         gettime(h, m, s, s100);
  19.         t := ((h * 60) + m);
  20.         t := ((t * 60) + s) * 100 + s100;
  21.         time := t;
  22.         end;
  23.  
  24. var
  25.         n, y, t0 : longint;
  26.         t : real;
  27. begin
  28. t0 := time;
  29. n := 0;
  30. for y := 1 to 100000 do
  31.         if leap(y) then
  32.                 n := n + 1;
  33. t := time;
  34. t := (t - t0) / 100;
  35. writeln(n, ', ', t : 10 : 2);
  36. end.
  37.  
  38.