home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog4 / answers / ch25_1.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  1.2 KB  |  57 lines
  1.                        -- Chapter 25 - Programming exercise 1
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure CH25_1 is
  6.  
  7.    package Int_IO is new Text_IO.Integer_IO(INTEGER);
  8.    use Int_IO;
  9.  
  10.    task Gourmet is
  11.       entry Make_A_Hot_Dog;
  12.    end Gourmet;
  13.  
  14.    task body Gourmet is
  15.    begin
  16.       Put_Line("I am ready to make a hot dog for you");
  17.       for Index in 1..4 loop
  18.          accept Make_A_Hot_Dog do
  19.             null;
  20.          end Make_A_Hot_Dog;
  21.          delay 0.8;
  22.          Put("Put hot dog in bun ");
  23.          Put_Line("and add mustard");
  24.       end loop;
  25.       Put_Line("I am out of hot dogs");
  26.    end Gourmet;
  27.  
  28. begin
  29.    for Index in 1..4 loop
  30.       Gourmet.Make_A_Hot_Dog;
  31.       delay 0.1;
  32.       Put_Line("Eat the resulting hot dog");
  33.       New_Line;
  34.    end loop;
  35.    Put_Line("I am not hungry any longer");
  36. end CH25_1;
  37.  
  38.  
  39. -- Result of execution
  40.  
  41. -- I am ready to make a hot dog for you
  42. -- Eat the resulting hot dog
  43. --
  44. -- Put hot dog in bun and add mustard
  45. -- Eat the resulting hot dog
  46. --
  47. -- Put hot dog in bun and add mustard
  48. -- Eat the resulting hot dog
  49. --
  50. -- Put hot dog in bun and add mustard
  51. -- Eat the resulting hot dog
  52. --
  53. -- I am not hungry any longer
  54. -- Put hot dog in bun and add mustard
  55. -- I am out of hot dogs
  56.  
  57.