home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / loopdemo.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  1.6 KB  |  78 lines
  1.                                        -- Chapter 5 - Program 1
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure LoopDemo is
  6.  
  7.    package Int_IO is new Text_IO.Integer_IO(INTEGER);
  8.    use Int_IO;
  9.  
  10.    Index, Count : INTEGER;
  11.  
  12. begin
  13.    Index := 1;
  14.    loop                            -- This is the simplest loop
  15.       Put("Index =");
  16.       Put(Index); New_Line;
  17.       Index := Index + 1;
  18.       exit when Index = 5;
  19.    end loop;
  20.  
  21.    Index := 1;
  22.    loop                            -- Another simplest loop
  23.       Put("Index =");
  24.       Put(Index); New_Line;
  25.       Index := Index + 1;
  26.       if Index = 5 then exit; end if;
  27.    end loop;
  28.  
  29.    Count := 1;
  30.    while Count < 5 loop            -- This is the while loop
  31.       Put("Count =");
  32.       Put(Count); New_Line;
  33.       Count := Count + 1;
  34.    end loop;
  35.  
  36.    for Index in 1..4 loop          -- This is the for loop
  37.       Put("Doubled index =");
  38.       Put(2 * Index); New_Line;
  39.    end loop;
  40.  
  41.    for Count in reverse 5..8 loop  -- This is the reverse for loop
  42.       Put("Triple count =");
  43.       Put(3 * Count); New_Line;
  44.    end loop;
  45.  
  46.    for Index in 7..11 loop         -- An empty loop
  47.       null;
  48.    end loop;
  49.  
  50. end LoopDemo;
  51.  
  52.  
  53.  
  54.  
  55. -- Result of execution
  56.  
  57. -- Index =     1
  58. -- Index =     2
  59. -- Index =     3
  60. -- Index =     4
  61. -- Index =     1
  62. -- Index =     2
  63. -- Index =     3
  64. -- Index =     4
  65. -- Count =     1
  66. -- Count =     2
  67. -- Count =     3
  68. -- Count =     4
  69. -- Doubled index =     2
  70. -- Doubled index =     4
  71. -- Doubled index =     6
  72. -- Doubled index =     8
  73. -- Triple count =    24
  74. -- Triple count =    21
  75. -- Triple count =    18
  76. -- Triple count =    15
  77.  
  78.