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 proc1 is
      procedure sumTotal(no1 : in integer;      
                         no2 : in integer;
                         total : out integer) is
      
      begin
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_Io, Ada.Integer_Text_Io; --Ada.Numerics.Generic_Elementary_Functions;
use Ada.Text_Io, Ada.Integer_Text_Io; --Ada.Numerics.Generic_Elementary_Functions;
procedure Zes1_2011_v2 is
 
   TYPE Tab IS ARRAY (Integer RANGE <>) OF Integer;
   PROCEDURE Pobierz (T:OUT Tab) IS
   BEGIN
      FOR I IN T'RANGE LOOP
         Put("Podaj element ");
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_Io, Ada.Integer_Text_Io; --Ada.Numerics.Generic_Elementary_Functions;
use Ada.Text_Io, Ada.Integer_Text_Io; --Ada.Numerics.Generic_Elementary_Functions;
procedure Zes1_2011_v2 is
 
   TYPE Tab IS ARRAY (Integer RANGE <>) OF Integer;
   PROCEDURE Pobierz (T:OUT Tab) IS
   BEGIN
      FOR I IN T'RANGE LOOP
         Put("Podaj element ");
 ...

1
2
3
4
5
6
7
8
9
package SPC_Numeric_Types is
 
   type Tiny_Integer   is range -2** 7 .. 2** 7 - 1; 
   type Medium_Integer is range -2**15 .. 2**15 - 1; 
   type Big_Integer    is range -2**31 .. 2**31 - 1;
   
   subtype Tiny_Natural   is 
                          Tiny_Integer   range 0 ..   Tiny_Integer'Last; 
   subtype Medium_Natural 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
total:integer;
no1:integer;
no2:constant integer:=4;
 
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
----------------------------------------------------------------
-- Montgomery Product (Montgomery_product.adb)
-- 
-- A simple example of
-- MP(x,y) = x.y/R mod M
--
----------------------------------------------------------------
with Gnat.Io; use Gnat.Io;
procedure Montgomery_product is
 ...

1
Mfp ey zwvo fvat rjx hwprdrr lb nawzh tnfpc: Anj icvlu, hjgy Kbffhg, zk hjp gm nso nntjj, phf sw vawwhnwer, pcum nu oeq ewllxqmqit

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
-- Calculator3
 
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
procedure Calculator3 is
        First, Second, Result : Integer;
        Operator : Character;
        Valid : boolean;
--Skip-spaces   
 ...

1
2
3
4
5
6
7
8
9
-- Calculator3
 
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
procedure Calculator3 is
        First, Second, Result : Integer;
        Operator : Character;
        Valid : boolean;
--Skip-spaces   
 ...

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
----------------------------------------------------------------
-- Montgomery Product (Montgomery_product.adb)
-- 
-- A simple example of
-- MP(x,y) = x.y/R mod M
--
----------------------------------------------------------------
with Gnat.Io; use Gnat.Io;
procedure Montgomery_product is
 ...

1
2
3
4
5
6
7
8
9
----------------------------------------------------------------
-- Montgomery Product (Montgomery_product.adb)
-- 
-- A simple example of
-- MP(x,y) = x.y/R mod M
--
----------------------------------------------------------------
with Gnat.Io; use Gnat.Io;
procedure Montgomery_product is
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Random;
use Ada.Text_IO;
 
procedure TestRan is
 
   package My_Random is new Random(FLOAT);
   use My_Random;
 
   package Int_IO is new Ada.Text_IO.Integer_IO(INTEGER);
 ...

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
 

1
2
3
4
5
6
7
8
9
#include <string.h>
#include <stdio.h>
 
void incremente( char compteur[] )
 {
  int c=1,p=0;
  for (p=0;c && compteur[p];p++)
   {
    if (compteur[p]=='z')
 ...

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
with text_io;
use text_io;
procedure welcome is
begin
        put_line("welcome to ada");
end welcome

1
2
3
4
5
6
7
8
9
 
int main()
{
int length;
char input[100];
length=strlen(input);
cout<<"Enter The Text";
cin>>input;
for(int i=1;i<=length;i++)
 ...

1
2
3
4
5
6
7
8
9
with ada.text_io;
with ada.integer_text_io;
 
Procedure ex01.adb is
        num1 , num2 : integer;
        sum , product : integer;
        
Begin
        ada.text_io.put_line(item=> "this is amazing");
 ...

1
2
3
4
5
6
7
8
9
with ada.text_io;
with ada.integer_text_io;
 
Procedure ex01.abd is
        num1 , num2 : integer;
        sum , product : integer;
        
Begin
        ada.text_io.put_line(item=> "this is amazing");
 ...

1
2
3
4
5
6
7
8
9
with ada.text_io;
with ada.integer_text_io;
 
Procedure ex01 is
        num1 , num2 : integer;
        sum , product : integer;
        
Begin
        ada.tect_io.put_line(item=> "this is amazing");
 ...

1
2
3
4
5
6
7
8
9
 
 
 With Ada.Text_IO;
 With Ada.Float_text_IO;
 
 Procedure inches is
 
       ------------------------------------------------------------------------------------------------------------
       -- Author : Velesta Stoyanova
 ...

1
2
3
4
5
6
7
8
9
 
 
 With Ada.Text_IO;
 With Ada.Float_text_IO;
 
 Procedure inches is
 
       ------------------------------------------------------------------------------------------------------------
       -- Author : Velesta Stoyanova
 ...

1
2
3
4
5
6
7
8
9
 
 
 With Ada.Text_IO;
 With Ada.Float_text_IO;
 
 Procedure inches is
 
       ------------------------------------------------------------------------------------------------------------
       -- Author : Velesta Stoyanova
 ...

1
2
3
4
5
6
7
8
9
 
 
 With Ada.Text_IO;
 With Ada.Float_text_IO;
 
 Procedure inches is
 
       ------------------------------------------------------------------------------------------------------------
       -- Author : Velesta Stoyanova
 ...

1
2
3
4
5
6
-- Ada Hello, World! program.
with Text_IO; use Text_IO;      -- This gets the IO facility.
procedure Hello is              -- Main, but no special name is needed.
begin
   Put_Line("Hello, World!");   -- Put_Line is from Text_IO.
end Hello;