home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / T_LESSON.ZIP / PROG10.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-21  |  1.0 KB  |  44 lines
  1. PROGRAM PROG10;
  2. {       Copyright (C), 1989 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics: WHILE statement
  5.                 CONST declaration
  6.                 Delay timing loop
  7.  
  8. }
  9.  
  10. CONST
  11.   Wobble_Size = 5;
  12.   Left_Edge   = 10;
  13.   Message     = ', the Great Pascal Programmer!';
  14.  
  15. VAR
  16.   Index, Count   : Integer;
  17.   First, Last    : Char;
  18.          Delay   : Longint;
  19.  
  20. BEGIN
  21.   Write('Enter your first initial: ');
  22.   ReadLn(First);
  23.   Write('Enter your last initial: ');
  24.   ReadLn(Last);
  25.  
  26.   Write('Enter a positive number less than 8: ');
  27.   ReadLn(Count);
  28.   If Count > 8
  29.      THEN Count := 8;
  30.  
  31.   WHILE  Count > 0  DO
  32.     BEGIN
  33.      Count := Count - 1;
  34.        FOR Index := 1 to Wobble_Size DO
  35.          BEGIN
  36.            WriteLn(':  ':Left_Edge, First:Index, Last:2, Message);
  37.            FOR Delay := 1 to 5000 DO {Do nothing, except loop};
  38.          END;
  39.  
  40.        FOR Index := Wobble_Size DownTo 1 DO
  41.            WriteLn(':  ':Left_Edge, First:Index, ' ',Last, Message);
  42.     END; {WHILE}
  43. END.
  44.