home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 253.STATISTC.INC < prev    next >
Text File  |  1991-07-08  |  816b  |  29 lines
  1. procedure StellarDispersion;
  2. const
  3.   maxDispersion = 29;
  4. var
  5.   s : sector;
  6.   disperse : array [0..maxDIspersion] of integer;
  7.   temp,
  8.   lost     : integer;
  9. begin
  10.   write( 'Stellar dispersion from what sector? ');
  11.   readln( s );
  12.   TwoWayDistances( s, distances, true, true );
  13.   for temp := 0 to maxDispersion do
  14.     disperse[ temp ] := 0;
  15.   lost := 0;
  16.   for s := 1 to maxSector do
  17.     if distances[s].d < maxint then
  18.       disperse[ distances[ s ].d ] := disperse[ distances[ s ].d ] + 1
  19.     else if space.sectors[s].number > 0 then   { visited, but not connected?}
  20.       lost := lost + 1;
  21.   for temp := 0 to maxDispersion do
  22.     begin
  23.       write( disperse[ temp ] : 5 );
  24.       if temp mod 10 = 9 then
  25.         writeln;
  26.     end;
  27.   writeln('There are ', lost, ' unreachable sectors.');
  28. end;
  29.