home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 168.WCHILL.PAS < prev    next >
Pascal/Delphi Source File  |  1987-02-05  |  891b  |  38 lines
  1. program windchill;
  2.  
  3. var
  4.  wrk: array [1..16, 1..14] of real;
  5.  r, c : integer;
  6.  t, v : real;
  7.  
  8. begin
  9. clrscr;
  10. writeln('                               Wind Chill Chart');
  11.  for r:= 1 to 16 do
  12.    begin
  13.    v:= 2 * r + 2;
  14.    for c:= 0 to 13 do
  15.      begin
  16.      t:= -5 * c + 40;
  17.      wrk[r, c+1] := ((10.45 + ( 6.686112 * sqrt(v)) - (0.447041 * v)) /
  18.                    22.034 * (t - 91.4)) + 91.4
  19.      end
  20.    end;
  21.  writeln('           Read Temperature across top of chart, wind velocity down');
  22.  writeln('           the left side.  The two intersect at the appropriate wind');
  23.  writeln('           chill equivalent for existing conditions.');
  24.  writeln;
  25.  write ('     ');
  26.  for c:= 0 to 13 do
  27.    write ((-5 * c + 40):5);
  28.  writeln;
  29.  writeln;
  30.  for r:= 1 to 16 do
  31.    begin
  32.    write (2 * r + 2:5);
  33.    for c:= 1 to 14 do
  34.      write (wrk[r, c]:5:0);
  35.    writeln
  36.  end
  37. end.
  38.