home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_a9x / ex1.ada < prev    next >
Encoding:
Text File  |  1996-01-30  |  1.1 KB  |  43 lines
  1. --PRAGMA LIST(On);
  2.  
  3. -- Source Ex1.Ada
  4. -- By Arthur V. Lopes, 7/12/94
  5. -- This Program places ten times the letter A in the first Screen line
  6. -- and ten times the letter B in the second Screen line.
  7. -- The main program calls two procedures, Display_A and Display_B.
  8. -- Each procedure display 10 times a letter designator.
  9. -- The next program, Concurrent_Programming_1, will attempt to do the same
  10. -- by using two tasks. Each task will replace the procedure call and the
  11. -- procedure bodies.
  12. -- Study carfully the differences among the two approaches.
  13.  
  14.  
  15. WITH Ada.Text_IO, VT100; USE Ada.Text_IO, VT100;
  16. PROCEDURE Sequential_Programming IS
  17.  
  18.     SUBTYPE Interval IS INTEGER RANGE 1 .. 10;
  19.  
  20.     PROCEDURE Display_A IS
  21.     BEGIN
  22.         FOR I IN Interval LOOP
  23.             MoveCursor(I,1);
  24.             DELAY 0.01;
  25.             Put('A');
  26.         END LOOP;
  27.     END Display_A;
  28.  
  29.     PROCEDURE Display_B IS
  30.     BEGIN
  31.         FOR I IN Interval LOOP
  32.             MoveCursor(I,2);
  33.             DELAY 0.01;
  34.             Put('B');
  35.         END LOOP;
  36.     END Display_B;
  37.  
  38. BEGIN
  39.     ClearScreen;
  40.     Display_A;
  41.     Display_B;
  42.     MoveCursor(1,3);
  43. END Sequential_Programming;