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
clear all;
clc
 
%% Sukuriamas signalas
fd = 1000;
t = 0 : 1/fd/10 : 1; % f_s
t = t(1 : end-1);
x = [ ones(1, fd/2) -1*ones(1, fd/2) ];
x = [ x x x x x x x x x x ];
 ...

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
for (i=0;i++;i<10) {
 print(i);
}

1
http://ideone.com

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
int 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
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 Ada.Text_IO;  use Ada.Text_IO;
    procedure Hello is
    begin
    Put (item=>1234, Width=>1);    
    end Hello;   

1
2
3
4
5
with Ada.Text_IO;  use Ada.Text_IO;
    procedure Hello is
    begin
    Put (1234, Width=>1);    
    end Hello;   

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
hkhhljllhkj

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 Ada.Text_IO; use Ada.Text_IO;
 
procedure principal is
begin
Put("Hola mon");
end principal;

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

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
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;            --  1
    use  Ada.Text_IO, Ada.Integer_Text_IO;            --  2
    procedure Sum is
        First, Second : Integer;                      --  3
    begin
        Put ("Enter two integers: ");                 --  4
        Get (First);                                  --  5
        Get (Second);                                 --  6
        Put ("The sum is");                           --  7
 ...

1
2
3
4
5
6
7
    with Ada.Text_IO;                                       --  1
    procedure Hello is                                      --  2
    begin                                                        --  3
        Ada.Text_IO.Put ("Hello world!")         --  4
        Ada.Text_IO.New_Line;                         -- 5
    end Hello;                                                  --  6
 

1
2
3
4
5
6
7
             with Ada.Text_IO;                                       --  1
    procedure Hello is                                      --  2
    begin                                                        --  3
        Ada.Text_IO.Put ("Hello world!");         --  4
        Ada.Text_IO.New_Line;                         -- 5
    end Hello;                                                  --  6
        

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