home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource5 / 349_01 / sss.arc / EX_0201.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-09  |  406 b   |  23 lines
  1. Program EX_0201;
  2. {Listing 1P - see documentation in TUTOR.SSS}
  3.  
  4. uses SSS;
  5. { For Pascal other than Turbo/Quick erase above line }
  6.  
  7. { For MS Pascal $include:'SSSP1.H' }
  8.  
  9. var
  10.   pt : real;
  11.  
  12. { For MS Pascal $include:'SSSP2.H' }
  13.  
  14. begin
  15.   pt := EX(0.5);
  16.   while pt <= 10 do
  17.   begin
  18.     writeln('A new ship enters the port at time ',
  19.             pt:7:2);
  20.     pt := pt + EX(0.5);
  21.   end;
  22. end.
  23.