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

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