1
2
3
4
5
with Text_IO; use Text_IO;
procedure main is
begin
        put_line("fefefef");
end main;

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);
 ...

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);
 ...

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);
 ...

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);
 ...

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);
 ...

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);
 ...

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);
 ...

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO;             --  Include Ada.Text_IO routines in program
WITH Ada.Integer_Text_IO;     --  Include Ada.Integer_Text_IO routines
 
PROCEDURE intro_03 IS
 
     fibonacci  : Integer := 1;    --  Current value of the Fibonacci no.
     last       : Integer := 1;    --  Last value of the Fibonacci number
     n          : Integer := 2;    --  Incremental variable (see LOOP)
     temp       : Integer;         --  Temporary variable
 ...

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);
 ...

1
2
3
4
5
with Ada.Text_IO; use Ada.Text_IO;
procedure Hello is
begin
  Put_Line ("Testing ADA!");
end Hello;

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  Range1 is Integer range 1 .. 295;
  
  Range1 : Integer;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range1'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is range 1 .. 295;
  
  Range1 : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range1'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is range -295 .. 295;
  
  Range1 : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range1'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range -295 .. 295;
  
  Range1 : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range1'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range -294_967_295 .. 294_967_295;
  
  Range1 : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range1'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range -294_967_295 .. 294_967_295;
  
  Range : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range -294_967_295 .. 4_294_967_295;
  
  Range : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range -4_294_967_295 .. 4_294_967_295;
  
  Range : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range First .. Last;
  
  Range : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range First .. Last;
 
 
begin
        Ada.Integer_Text_IO.Put (Item => Range_Type'First);
end Range_1;

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);
 ...

1
2
3
4
5
6
7
8
9
with TEXT_IO, DATA_POOL, DISPLAY_PAK, CALENDAR;
use TEXT_IO, DATA_POOL, DISPLAY_PAK, CALENDAR;
 
--
-- ** FIRE MONITORING SYSTEM **
--
-- Task SENSORS is prompted by TIMER every 30 seconds to read values from a data
-- file. The data represents simulated readings of alarm/non-alarm conditions
-- The readings are checked to determine whether an alarm condition has arisen.
 ...

1
2
3
4
5
6
7
8
9
with TEXT_IO, DATA_POOL, DISPLAY_PAK, TIMER_PAK, CONTROLLER_PAK;
use TEXT_IO, DATA_POOL, DISPLAY_PAK, TIMER_PAK, CONTROLLER_PAK;
 
--
-- ** FIRE MONITORING SYSTEM **
--
-- START_UP procedure calls DATA_POOL, TIMER, DISPLAY and CONTROLLER to activate them
--
-- Type:                        BODY
 ...

1
2
3
4
5
6
7
8
-- Hello World in Ada
 
with Text_IO;
procedure Hello_World is
 
begin
  Text_IO.Put_Line("Hello World!");
end Hello_World;

1
 

1
2
3
4
5
6
7
8
9
--  -------------------------------------------------------------------------
--  @Main: Test_Formatter
--
--  @Project: Softwarequalität
--  @Version: 1.0
--  @Author:  Markus Knauß
--  @Created: 2009-12-07
--
--  @Description:
 ...

1
2
3
4
5
with text_io; use text_io;
Procedure cc is
Begin
Put("coucou");
End cc;

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);
 ...

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);
 ...