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, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure leer is
   Num1, Num2, Num3 : Integer;
   
begin
   Get (Num1);
   Get (Num2);
 ...

1
2
3
4
5
6
7
8
9
with arrays;
use  arrays;
 
function Array_Contar (Fuente : Vector_2; Cuenta : Integer) return Natural is
        X : Natural := 0;
begin
        for i in Fuente'Range loop
           if Fuente(i) = Cuenta then
              X := X + 1
 ...

1
2
3
4
5
6
7
8
9
procedure Array_Caracteres is
 
        Fuente : Vector_3;
        Busca  : Vector_3;
        Cuenta : Natural := 0;
begin
        for i in Fuente'Range loop
        for j in Busca'Range loop
          if Fuente (i) = Busca (j) then
 ...

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
-- Demonstrate a trivial procedure, with another nested inside.
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure Compute is
 
 procedure Double(Item : in out Integer) is
 begin -- procedure Double.
   Item := Item*2;
 ...

1
2
3
4
5
6
7
8
9
-- Demonstrate a trivial procedure, with another nested inside.
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure Compute is
 
 procedure Double(Item : in out Integer) is
 begin -- procedure Double.
   Item := Item * 2;
 ...

1
2
3
4
5
6
7
8
9
begin 644 webutils_pl
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

1
MEszUmd0QyUyQklOQzkwTFhRc3RDMTBZRFF2dEdQMFlMUXZkQyUyQkxDRFF2ZEMlMkJJTkdQSU5DJTJGMEw0ZzBZTFF0ZEN4MExVZzBZSFF1dEdEMFlmUXNOR09MaTR1

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 Prueba is
   Numero : Integer;
 --  Resto : Integer := 0;
   Resultado : Integer;
begin
   Put_Line ("Introduce un numero");
   Get (Numero);
 ...

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 Prueba is
   Numero : Integer;
 --  Resto : Integer := 0;
   Resultado : Integer;
begin
   Put_Line ("Introduce un numero");
   Get (Numero);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Float_Text_IO;
use Ada.Text_IO, Ada.Float_Text_IO;
procedure Media is 
   X,Y,Z : Float;
begin
   Put ("Introduzca tres números:");
   Get (X);
   Get (Y);
   Get (Z);
 ...

1
2
3
4
5
6
7
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure Main is
begin
   Put ("Hola Mundo");
end Main;

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 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, ada.integer_text_io;
use ada.text_io, ada.integer_text_io;
 
procedure prueba is
horas, precio, extra : integer := 0;
 
begin
 
get (precio);
 ...

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 Main is
 
A, B : Integer;
 
begin
 ...

1
2
3
4
5
6
7
8
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure Main is
 
begin
 
   Put ("Hola mundo");

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 prueba is
Año, resto : integer;
 
 
Begin 
If año mod 4 = 0 then
        If año mod 100 /= 0 then
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure Prog is
 
Base: Integer;
Resultado: Integer := 1;
Exp: Natural;
 
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Float_Text_IO;
use Ada.Text_IO, Ada.Float_Text_IO;
 
procedure Prog is
 
Base: Float;
Resultado: Float := 1.0;
Exp: Natural;
 
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Ada.Float_Text_IO;
use Ada.Text_IO, Ada.Float_Text_IO;
 
procedure Potencia is
 
Base: Float;
Resultado: Float := 1.0;
Exp: Natural;
 
 ...

1
2
3
4
5
6
7
8
with Ada.Text_IO, Ada.Float_Text_IO;
use Ada.Text_IO, Ada.Float_Text_IO;
 
procedure Potencia is
 
Base: Float;
Resultado: Float := 1.0;
Exp: Natural;
 ...

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, Calendar;
use Ada.Text_IO, Calendar;
 
procedure ifElseIndecision is
       DAUGHTER        : INTEGER       := 1;
       type COMPLICATED is (CLEAR_DAYS, COLD_SHOULDERS, CHIMES);
       FAMILY          : COMPLICATED;
       NOW             : INTEGER;
       FUTURE          : INTEGER       := 1E+9;
 ...