home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / daylite / daylight.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-17  |  602 b   |  32 lines
  1. program Daylight;
  2.  
  3.   uses Dos,CRT,
  4.        Globals,Calculate,UI;
  5.  
  6.   const
  7.         Sunup    = pi/2;
  8.         Sundown  = pi*3/2;
  9.  
  10.  
  11.   var   lat,long,zone : Float;
  12.         theYear: longint;
  13.         theMonth,theDay : integer;
  14.  
  15.         sunlight : DayTime;
  16.  
  17.  
  18.  
  19.   function Inputs:Boolean;
  20.     begin
  21.       Inputs := GetInputs(Lat,Long,Zone,theYear,theMonth,theDay);
  22.     end;
  23.  
  24. begin
  25.   InitInputs(Lat,Long,Zone,theYear,theMonth,theDay);
  26.   Repeat;
  27.     Phenomina(lat,long,zone,theYear,theMonth,theDay,Sunlight);
  28.     ShowResults(Sunlight);
  29.   until not Inputs;
  30.   NormVideo;
  31.   ClrScr;
  32. end.