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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 Matrix_mul is
i,j,k: Integer;
mat_res: array(0..2,0..2) of Integer:=((0,0,0),(0,0,0),(0,0,0));
mat_a:array(0..2,0..2) of Integer:=((1,1,1),(1,1,1),(1,1,1));
mat_b:array(0..2,0..2) of Integer:=((2,2,2),(2,2,2),(2,2,2));
begin
for i in 0..2 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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 conditions_and_operators is
a,b,c,output : integer;
operator : character;
begin
 
put_line("enter the values of a,b & c: ");
 ...

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 Matrix_mul is
i,j,k: Integer;
mat_res: array(0..2,0..2) of Integer:=((0,0,0),(0,0,0),(0,0,0));
mat_a:array(0..2,0..2) of Integer:=((1,1,1),(1,1,1),(1,1,1));
mat_b:array(0..2,0..2) of Integer:=((2,2,2),(2,2,2),(2,2,2));
begin
for i in 0..2 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 Matrix_mul is
i,j,k: Integer;
mat_res: array(0..2,0..2) of Integer:=((0,0,0),(0,0,0),(0,0,0));
mat_a:array(0..2,0..2) of Integer:=((1,1,1),(1,1,1),(1,1,1));
mat_b:array(0..2,0..2) of Integer:=((2,2,2),(2,2,2),(2,2,2));
begin
for i in 0..2 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 Matrix_mul is
i,j,k: Integer;
matrix_res: array(0..2,0..2) of Integer:=((0,0,0),(0,0,0),(0,0,0));
matrix_a:array(0..2,0..2) of Integer:=((1,1,1),(1,1,1),(1,1,1));
matrix_b:array(0..2,0..2) of Integer:=((2,2,2),(2,2,2),(2,2,2));
begin
for i in 0..2 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 Matrix_mul is
i,j,k: Integer;
matrix_res: array(0..2,0..2) of Integer:=((0,0,0),(0,0,0),(0,0,0));
matrix_a:array(0..2,0..2) of Integer:=((1,1,1),(1,1,1),(1,1,1));
matrix_b:array(0..2,0..2) of Integer:=((2,2,2),(2,2,2),(2,2,2));
begin
for i in 0..2 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 Loopsinada is
Index, Count,for_first,for_last : INTEGER;
type my_range is range 1..8 ;
package MY_OWN_TYPE is new Ada.Text_IO.Integer_IO(my_range);
use MY_OWN_TYPE;
my_count:my_range;
 ...

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 Matrix_mul is
i,j,k: Integer;
matrix_res: array(0..2,0..2) of Integer:=((0,0,0),(0,0,0),(0,0,0));
matrix_a:array(0..2,0..2) of Integer:=((1,1,1),(1,1,1),(1,1,1));
matrix_b:array(0..2,0..2) of Integer:=((2,2,2),(2,2,2),(2,2,2));
begin
for i in 0..2 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 Loopsinada is
Index, Count,for_first,for_last : INTEGER;
type my_range is range 1..8 ;
package MY_OWN_TYPE is new Ada.Text_IO.Integer_IO(my_range);
use MY_OWN_TYPE;
my_count:my_range;
 ...

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 Loopsinada is
Index, Count,for_first,for_last : INTEGER;
type my_range is range 1..8 ;
package MY_OWN_TYPE is new Ada.Text_IO.Integer_IO(my_range);
use MY_OWN_TYPE;
my_count:my_range;
 ...

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 Matrix_mul is
i,j,k: Integer;
matrix_res: array(0..2,0..2) of Integer:=((0,0,0),(0,0,0),(0,0,0));
matrix_a:array(0..2,0..2) of Integer:=((1,1,1),(1,1,1),(1,1,1));
matrix_b:array(0..2,0..2) of Integer:=((2,2,2),(2,2,2),(2,2,2));
begin
for i in 0..2 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 Loopsinada is
Index, Count,for_first,for_last : INTEGER;
type my_range is range 1..8 ;
package MY_OWN_TYPE is new Ada.Text_IO.Integer_IO(my_range);
use MY_OWN_TYPE;
my_count:my_range;
 ...

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 Loopsinada is
Index, Count,for_first,for_last : INTEGER;
type my_range is range 1..8 ;
package MY_OWN_TYPE is new Ada.Text_IO.Integer_IO(my_range);
use MY_OWN_TYPE;
my_count:my_range;
 ...

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 Matrix_mul is
i,j,k: Integer;
matrix_res: array(0..2,0..2) of Integer:=((0,0,0),(0,0,0),(0,0,0));
matrix_a:array(0..2,0..2) of Integer:=((1,1,1),(1,1,1),(1,1,1));
matrix_b:array(0..2,0..2) of Integer:=((2,2,2),(2,2,2),(2,2,2));
begin
for i in 0..2 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 Matrix_mul is
i,j,k: Integer;
matrix_res: array(0..2,0..2) of Integers:=((0,0,0),(0,0,0),(0,0,0));
matrix_a:array(0..2,0..2) of Integers:=((1,1,1),(1,1,1),(1,1,1));
matrix_b:array(0..2,0..2) of Integers:=((2,2,2),(2,2,2),(2,2,2));
begin
for i in 0..2 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 MoreLoop is
type MY_TYPE is range 10..13;
package My_Int_IO is new Ada.Text_IO.Integer_IO(MY_TYPE);
use My_Int_IO;
My_Range : MY_TYPE;
TWO : constant INTEGER := 2;
THREE : constant INTEGER := 3;
 ...

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 MoreLoop is
type MY_TYPE is range 10..13;
package My_Int_IO is new Ada.Text_IO.Integer_IO(MY_TYPE);
use My_Int_IO;
My_Range : MY_TYPE;
TWO : constant INTEGER := 2;
THREE : constant INTEGER := 3;
 ...

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 Loopsinada is
Index, Count,for_first,for_last : INTEGER;
type my_range is range 2..4 ;
package MY_OWN_TYPE is new Ada.Text_IO.Integer_IO(my_range);
use MY_OWN_TYPE;
begin
 ...

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 Loopsinada is
Index, Count,for_first,for_last : INTEGER;
type my_range is range 2..4 ;
package MY_OWN_TYPE is new Ada.Text_IO.Integer_IO(my_range);
use MY_OWN_TYPE;
begin
 ...

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 Loopsinada is
Index, Count,for_first,for_last : INTEGER;
type my_range is range 2..4 ;
package MY_OWN_TYPE is new Ada.Text_IO.Integer_IO(my_range);
use MY_OWN_TYPE;
begin
 ...