1
2
3
4
5
6
7
with Ada.Text_IO;
 
procedure Hello is
begin
   Ada.Text_IO.Put_Line("Hello, world!");
   Ada.Text_IO.Put_Line("Here is another line.");
end Hello;

1
2
3
4
5
6
with Ada.Text_IO;
 
procedure Hello is
begin
   Ada.Text_IO.Put_Line("Hello, world!");
end Hello;

1
2
3
4
5
6
7
8
with ada.text_io, ada.integer_Text_io;
use ada.text_io , ada.integer_Text_io;
procedure hola is
a: Integer;
begin
Get (a);
put("hola");
end hola;

1
2
3
4
5
6
7
8
with ada.text_io, ada.integer_Text_io;
use ada.text_io , ada.integer_TExt_io;
procedure hola is
a: Integer;
begin
Get (a);
put("hola");
end hola;

1
2
3
4
5
6
7
8
with ada.text_io;
use ada.text_io;
procedure hola is
a: Integer;
begin
Get (a);
put("hola");
end hola;

1
2
3
4
5
6
with ada.text_io;
use ada.text_io;
procedure hola is
begin
put("hola");
end hola;

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
package Tipos is
 
   type Mi_DNI is record
      Num_DNI : Natural;
          Letra   : Character;
   end record;
 
   type Mi_Matriz is array (Integer range <>, Integer range <>) of Mi_DNI;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
with Ada. character_IO;
use Ada.character_IO;
 
 begin 
 A : character;
 
procedure manual is
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO
use Ada.Text_IO
with Ada. character_IO
use Ada.character_IO
 
 begin 
 A : character
 
procedure manual is
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO
use Ada.Text_IO
with Ada. character_IO
use Ada.character_IO
 
 begin 
 
 A : character
procedure manual is
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO
use Ada.Text_IO
with Ada. character_IO
use Ada.character_IO
 
 begin 
 
 A : character
procedure manual is
 ...

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
Package Gcd is
   procedure gcd_Cal(a: in Integer; b: in Integer);
   procedure Input;
end Gcd;

1
2
3
4
5
6
7
8
9
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
 
package body test is
   procedure gcd_Cal(a: in Integer; b: in Integer) is
   begin
      if b = 0 then
         Put_Line("G.C.D. is: ");
         put(a);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
 
package body Gcd is
   procedure gcd_Cal(a: in Integer; b: in Integer) is
   begin
      if b = 0 then
         Put_Line("G.C.D. is: ");
         put(a);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
 
package body Gcd is
   procedure gcd_Cal(a: in Integer; b: in Integer) is
   begin
      if b = 0 then
         Put_Line("G.C.D. is: ");
         put(a);
 ...

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; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
 
package body Gcd is
   procedure gcd_Cal(a: in Integer; b: in Integer) is
   begin
      if b = 0 then
         Put_Line("G.C.D. is: ");
         put(a);
 ...

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
Package Gcd is
   procedure gcd_Cal(a: in Integer; b: in Integer);
   procedure gcd_Input;
end Gcd;
 
 
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
 
package body Gcd is
   procedure gcd_Cal(a: in Integer; b: in Integer) is
   begin
      if b = 0 then
         Put_Line("G.C.D. is: ");
         put(a);
 ...

1
 

1
2
3
4
5
6
7
8
9
--
-- Simple array example.
--
with Gnat.Io; use Gnat.Io;
procedure Arr1 is
   A: array(1..5) of Integer;   -- Array subscripts 1 to 5.
   I: Integer;
begin
   -- Read 'em in.
 ...

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; USE Ada.Text_IO;
WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO;
PACKAGE BODY Pakiet IS
 
   Dane, Wynik: File_Type;
   Dlugosc_Linii: Natural;
   Linia:String(1..5000);
 
   PROCEDURE Liczba_Wierszy_I_Pol(Nazwa_Pliku: in String; L_Wierszy, L_Pol:in out Integer) IS
 ...

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO; USE Ada.Text_IO;
WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO;
WITH Pakiet; USE Pakiet;
 
 
PROCEDURE sortowanie IS
   Plik_Dane, Plik_Wynik: String(1..50);
   L_Wierszy: Integer:= 0;
   L_Pol: Integer:= 1;
 ...