1
2
3
4
5
6
7
8
9
with Ada.Text_IO; use Ada.Text_IO;
procedure Check is
   procedure Sub (X: in out Integer;
                  Y: in out Integer;
                  Z: in out Integer) is
   begin
      Y := 8; Z := X;
   Put_Line (Integer'Image(X));
   Put_Line (Integer'Image(Y));
 ...

1
2
3
4
5
6
7
8
9
 
with Ada.Text_Io; use Ada.Text_Io;
 
procedure Main is
   X : Integer := 3; Y : Integer := 2;
   procedure P (X : Integer) is
      procedure Q (Y : Integer) is
         procedure R (X : Integer) is
         begin Put_Line (Integer'Image (X+Y)); end R;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO; use Ada.Text_IO;
procedure Check is
   procedure Sub (X: in out Integer;
                  Y: in out Integer;
                  Z: in out Integer) is
   begin
      Y := 8; Z := X;
   end;
   Foo: Integer := 9;   Bar: Integer := 7;
 ...

1
2
3
 
 
count :=count+1;

1
2
3
4
5
6
7
8
9
with Ada.Text_Io; use Ada.Text_Io;
procedure Nested is
 function F (X: Integer; Y: Integer) 
 return Integer is
  function G (Y: Integer) return Integer is
  begin
   if (Y > 0) then return 1 + G(Y-1);
   else return X; end if;
  end G;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_Io; use Ada.Text_Io;
procedure Nest is
   X : Integer := 4;
   function F (Y: Integer) return Integer is
   begin return X + Y; end F;
   function G (X : Integer) return Integer is
   begin return F(3 * X); end G;
begin Put_Line (Integer'Image (G(5)));
end Nest;

1
2
3
4
5
6
7
8
9
with Ada.Text_IO; use Ada.Text_IO;
procedure Check is
   procedure Sub (X: in out Integer;
                  Y: in out Integer;
                  Z: in out Integer) is
   begin
      Y := 8; Z := X;
   end;
   Foo: Integer := 9;   Bar: Integer := 7;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Random;
use Ada.Text_IO;
 
procedure Set_Seed is
   Time_And_Date    : TIME;
   All_Day          : DAY_DURATION;
   Minutes          : FLOAT_ITEM;
   Int_Minutes      : INTEGER;
   Part_Of_A_Minute : FLOAT_ITEM;
 ...

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
-- BOOK401.ADA   Ver. 4.01   2001-SEP-10   Copyright 1988-2001 John J. Herro
--
-- SOFTWARE INNOVATIONS TECHNOLOGY          www.adatutor.com
-- 1083 MANDARIN DR NE
-- PALM BAY FL 32905-4706                   john@adatutor.com
--
-- (321) 951-0233
--
-- This program creates two printable "book" files from the tutorial text in
 ...

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

1
2
3
4
5
with Text_To; use Text_To
  procedure hello is
    begin
    put("Hello World");
 end hello

1
2
3
4
5
6
7
8
9
using System;
public class Test
{
        public static void Main()
        {
                int n;
                while ((n = int.Parse(Console.ReadLine()))!=42)
                        Console.WriteLine(n);
        }

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
with Text_To; use Text_To
  procedure hello is
    begin
    put("Hello World");
 end hello

1
2
With Ada.text_10; 
procedure Hola_Mon is begin Ada.text_10.put("04:55 am - 28/10/11 - Hola Món");

1
With Ada.text_10; procedure Hola_Mon is begin Ada.text_10.put("04:55 am - 28/10/11 - Hola Món");

1
2
3
4
5
6
7
8
9
count: Integer:=0;
begin
 
for x in Lo..Hi loop
        if (x rem 10) = 7 then
                count:= count + 1;
        end if;
 
end loop;

1
2
3
4
5
6
7
8
9
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Add.adb is
 
X : integer := 0;
Y : integer := 1;
 
begin
 
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Add is
 
X : integer := 0;
Y : integer := 1;
 
begin
 
 ...

1
2
3
4
5
6
7
8
9
   
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Add is
 
X : integer := 0;
Y : integer := 1;
 
begin
 ...

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
procedure Fruit is
   subtype Natural is 
       Integer range 0 .. Integer'Last;
   type Apples  is new Natural;
   type Oranges is new Natural;
   A : Apples; O : Oranges; I : Integer;
begin -- nicht alles korrekt:
   A := 4; O := A + 1;-- I := A * A;
end Fruit;

1
2
3
4
5
6
7
8
9
procedure Fruit is
   subtype Natural is 
       Integer range 0 .. Integer'Last;
   type Apples  is new Natural;
   type Oranges is new Natural;
   A : Apples; O : Oranges; I : Integer;
begin -- nicht alles korrekt:
   A := 4; --O := A + 1; I := A * A;
end Fruit;

1
2
3
4
5
6
7
8
9
procedure Fruit is
   subtype Natural is 
       Integer range 0 .. Integer'Last;
   type Apples  is new Natural;
   type Oranges is new Natural;
   A : Apples; O : Oranges; I : Integer;
begin -- nicht alles korrekt:
   A := 4; O := A + 1; I := A * A;
end Fruit;