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