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;

1
2
3
4
5
6
7
8
9
--inches.adb
 
 
 
 with Ada.Command_Line,     -- Access to external execution env (Ada95 A.15)
 With Ada.Text_IO;
 With Ada.Float_text_IO;
  6   Approx;               -- User defined function
  7 use Ada;
 ...

1
pico

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
 

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, Ada.Float_Text_IO;
USE Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;
 
 
PROCEDURE Przestrzen IS
 
  End_Error, Use_Error, Name_Error : EXCEPTION;
 
   -- record przechowujacy punkty.
 ...

1
2
3
4
5
6
type Vector is array( Integer range <>) of Float;
type Stack (Capacity: Positive := 100) is record
Data: Vector(1..Capacity);
Top: Natural := 0;
end record;
S: Stack;

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO;
USE Ada.Text_IO;
 
PACKAGE BODY Pakiecik IS
   
   FUNCTION Zliczanielinii (Nazwa:String) RETURN Natural IS
             --funkcja zliczajaca ilosc linii
   Nazwa: String;
   Plik: File_Type;
 ...

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 algo is
 
      a : is array(1..9) of integer;
      i : integer;
begin
        i:=0;
 
 ...

1
2
3
4
5
6
7
8
9
--------------------------------------------------------------------------------------------------------
-- Program wykonuje operacje na punktach w kartezjanskim ukladzie wspolrzednych.
--
-- Autor      : Przemyslaw Furmanczyk, Patryk Szadkowski
-- Gr. lab.   : 3
--
-- Opis: Napisac program, ktory zawiera reprezentacje punktu na plaszczyznie
-- w postaci rekordu o dwoch skladowych zmiennoprzecinkowych: X i Y.
-- Zalozmy istnienie pliku z danymi punktow, w ktorym kazda linia
 ...

1
2
3
4
5
6
7
8
9
--------------------------------------------------------------------------------------------------------
-- Program wykonuje operacje na punktach w kartezjanskim ukladzie wspolrzednych.
--
-- Autor      : Przemyslaw Furmanczyk, Patryk Szadkowski
-- Gr. lab.   : 3
--
-- Opis: Napisac program, ktory zawiera reprezentacje punktu na plaszczyznie
-- w postaci rekordu o dwoch skladowych zmiennoprzecinkowych: X i Y.
-- Zalozmy istnienie pliku z danymi punktow, w ktorym kazda linia
 ...

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

1
2
3
4
5
6
7
8
9
--------------------------------------------------------------------------------------------------------
-- Program wykonuje operacje na punktach w kartezjanskim ukladzie wspolrzednych.
--
-- Autor      : Przemyslaw Furmanczyk, Patryk Szadkowski
-- Gr. lab.   : 3
--
-- Opis: Napisac program, ktory zawiera reprezentacje punktu na plaszczyznie
-- w postaci rekordu o dwoch skladowych zmiennoprzecinkowych: X i Y.
-- Zalozmy istnienie pliku z danymi punktow, w ktorym kazda linia
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_Io, Ada.Strings;
use Ada.Text_Io, Ada. Strings;
 
procedure Test is
  type Animal is (Dog, Dag, Cat, Penguin);
  type Zoo is (og, ag, we);
  Str  : String (1..5) := "Hello";
  Mammal : Animal;
begin
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_Io, Ada.Strings;
use Ada.Text_Io, Ada. Strings;
 
procedure Test is
  type Animal is (Dog, Dag, Cat, Penguin);
  type Zoo is (og, ag);
  Str  : String (1..5) := "Hello";
  Mammal : Animal;
begin
 ...