1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range -294_967_295 .. 294_967_295;
  
  Range1 : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range1'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range -294_967_295 .. 294_967_295;
  
  Range : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range -294_967_295 .. 4_294_967_295;
  
  Range : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range -4_294_967_295 .. 4_294_967_295;
  
  Range : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range First .. Last;
  
  Range : Range_Type;
 
begin
        Ada.Integer_Text_IO.Put (Item => Range'First);

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
with Ada.Integer_Text_IO;
 
  type Range_Type is Integer range First .. Last;
 
 
begin
        Ada.Integer_Text_IO.Put (Item => Range_Type'First);
end Range_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 TEXT_IO, DATA_POOL, DISPLAY_PAK, CALENDAR;
use TEXT_IO, DATA_POOL, DISPLAY_PAK, CALENDAR;
 
--
-- ** FIRE MONITORING SYSTEM **
--
-- Task SENSORS is prompted by TIMER every 30 seconds to read values from a data
-- file. The data represents simulated readings of alarm/non-alarm conditions
-- The readings are checked to determine whether an alarm condition has arisen.
 ...

1
2
3
4
5
6
7
8
9
with TEXT_IO, DATA_POOL, DISPLAY_PAK, TIMER_PAK, CONTROLLER_PAK;
use TEXT_IO, DATA_POOL, DISPLAY_PAK, TIMER_PAK, CONTROLLER_PAK;
 
--
-- ** FIRE MONITORING SYSTEM **
--
-- START_UP procedure calls DATA_POOL, TIMER, DISPLAY and CONTROLLER to activate them
--
-- Type:                        BODY
 ...

1
2
3
4
5
6
7
8
-- Hello World in Ada
 
with Text_IO;
procedure Hello_World is
 
begin
  Text_IO.Put_Line("Hello World!");
end Hello_World;

1
 

1
2
3
4
5
6
7
8
9
--  -------------------------------------------------------------------------
--  @Main: Test_Formatter
--
--  @Project: Softwarequalität
--  @Version: 1.0
--  @Author:  Markus Knauß
--  @Created: 2009-12-07
--
--  @Description:
 ...

1
2
3
4
5
with text_io; use text_io;
Procedure cc is
Begin
Put("coucou");
End cc;

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
 
-- Example Program 1
-- Watchari Chimchang, W01028367, 01/15/12
-- Caleb Nelson
 
WITH ada.text_io;
WITH ada.integer_text_io;
 
PROCEDURE lab1 IS
 ...

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

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
 
procedure Hallo is
 
begin
 
Ada.Text_IO.Put_Line("Hallo Welt!");
 
end Hallo;

1
2
3
4
5
6
7
8
9
#include<iostream>
#define M 10000000
#include<vector>
 
using namespace std;
vector<long long> f(5001,1);
 
//long long num[5001][5001]={0};
//void  tell();
 ...

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
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
#include<iostream>
using namespace std;
int f(long long int ip)
{
    if(ip==0)
    return 0;
    if(ip<(ip/2)+(ip/3)+(ip/4))
    return f(ip/2)+f(ip/3)+f(ip/4);
    return ip;
 ...

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
                         -- Chapter 2 - Programming Exercise 2
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure Ch02_2 is
 
begin
   Put("John Q. Doe");
   New_Line;
 ...

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
--
-- Integer calculator program.  Takes lines of input consisting of
-- <operator> <number>, and applies each one to a display value.  The
-- display value is printed at each step.  The operator is one of =,
-- +, -, *, /, or ^, which correspond to assign, add, subtract, multiply
-- divide, and raise, respectively.  The display value is initially zero.
-- The program terminates on a input of q.
--
with Text_IO;
 ...

1
2
3
4
5
6
7
8
9
--
-- Integer calculator program.  Takes lines of input consisting of
-- <operator> <number>, and applies each one to a display value.  The
-- display value is printed at each step.  The operator is one of =,
-- +, -, *, /, or ^, which correspond to assign, add, subtract, multiply
-- divide, and raise, respectively.  The display value is initially zero.
-- The program terminates on a input of q.
--
with Text_IO;
 ...