home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog4 / task3.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  1.7 KB  |  78 lines
  1.                                     -- Chapter 24 - Program 4
  2. with Text_IO; use Text_IO;
  3.  
  4. procedure Task3 is
  5.  
  6.    package Int_IO is new Text_IO.Integer_IO(INTEGER);
  7.    use Int_IO;
  8.  
  9. begin
  10.  
  11.    Put_Line("This is in the main program.");
  12.  
  13.    declare
  14.       task First_Task;
  15.       task Second_Task;
  16.       task Third_Task;
  17.  
  18.       task body First_Task is
  19.       begin
  20.          for Index in 1..4 loop
  21.             delay 0.0;
  22.             Put_Line("This is in First_Task.");
  23.          end loop;
  24.       end First_Task;
  25.  
  26.       task body Second_Task is
  27.       begin
  28.          for Index in 1..4 loop
  29.             delay 0.0;
  30.             Put_Line("This is in Second_Task.");
  31.          end loop;
  32.       end Second_Task;
  33.  
  34.       task body Third_Task is
  35.       begin
  36.          for Index in 1..8 loop
  37.             delay 0.0;
  38.             Put_Line("This is in Third_Task.");
  39.          end loop;
  40.       end Third_Task;
  41.    begin
  42.       delay 0.0;
  43.       Put_Line("This is in the block body.");
  44.       delay 0.0;
  45.       Put_Line("This is also in the block body.");
  46.    end; -- of declare
  47.  
  48.    Put_Line("This is at the end of the main program.");
  49.  
  50. end Task3;
  51.  
  52.  
  53.  
  54.  
  55. -- Result of Execution
  56.  
  57. -- This is in the main program.
  58. -- This is in First_Task.
  59. -- This is in Second_Task.
  60. -- THis is in the block body.
  61. -- This is in Third_Task.
  62. -- This is in First_Task.
  63. -- This is in Second_Task.
  64. -- This is also in the block body.
  65. -- This is in Third_Task.
  66. -- This is in First_Task.
  67. -- This is in Second_Task.
  68. -- This is in Third_Task.
  69. -- This is in First_Task.
  70. -- This is in Second_Task.
  71. -- This is in Third_Task.
  72. -- This is in Third_Task.
  73. -- This is in Third_Task.
  74. -- This is in Third_Task.
  75. -- This is in Third_Task.
  76. -- This is at the end of the main program.
  77.  
  78.