1
2
3
4
5
6
7
8
9
--
-- Integer calculator program.  Takes lines of input consisting of
-- <operator> <number>, and applies each one to a display value.  The
-- display value is printed at each step.  The operator is one of =,
-- +, -, *, /, or ^, which correspond to assign, add, subtract, multiply
-- divide, and raise, respectively.  The display value is initially zero.
-- The program terminates on a input of q.
--
with Text_IO;
 ...

1
2
3
4
5
6
7
8
9
--
-- Integer calculator program.  Takes lines of input consisting of
-- <operator> <number>, and applies each one to a display value.  The
-- display value is printed at each step.  The operator is one of =,
-- +, -, *, /, or ^, which correspond to assign, add, subtract, multiply
-- divide, and raise, respectively.  The display value is initially zero.
-- The program terminates on a input of q.
--
with Text_IO;
 ...

1
2
3
4
5
6
7
8
9
 PROCEDURE Srednia (Tablica : IN OUT Tab) IS
      Suma, Temp : Integer :=0;
      Rozmiar: Integer :=Tablica'Length;
      Srednia: float :=0.0;
   BEGIN
      FOR I IN Tablica'RANGE LOOP
         suma:=suma+tablica(i);
      END LOOP;
      
 ...

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO, Ada.Integer_Text_IO;
USE Ada.Text_IO, Ada.Integer_Text_IO;
 
PROCEDURE Zad1_2012 IS
   
   TYPE Tab IS ARRAY (Integer RANGE <>) OF Integer;
   PROCEDURE Pobierz (T:OUT Tab) IS
   BEGIN
      FOR I IN T'RANGE LOOP
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO;, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO; -- Ada.Integer_Text_IO;
use Ada.Text_IO; --, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz123 is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO is new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure xyz is 
        type DAY is (SUN,MON,TUE,WED,THU,FRI,SAT);
        package DAY_IO new Ada.Text_IO.Enumeration_IO(DAY);
        use DAY_IO;
 
toDay:DAY;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...