Ideone.com | Online Ada Compiler & Debugging Tool

Computer geeks!

Recent public codes are listed below. You can filter them by the following programming languages:

codes: 22278 page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

9 days 3 hours ago view (lines: 12, size: 223, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
 
procedure test is
use Ada.Text_IO;
type C_Int is new Integer range 0..2**32-1;
A : C_Int := 500_000_000;
B : C_Int := 2;
begin
  if (A + 4_000_000_000 > B) then
 ...

9 days 3 hours ago view (lines: 12, size: 218, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
 
procedure test is
use Ada.Text_IO;
type C_Int is new Integer range 0..10;
A : C_Int := 500_000_000;
B : C_Int := 2;
begin
  if (A + 4_000_000_000 > B) then
 ...

9 days 3 hours ago view (lines: 12, size: 196, inputs: 1) Ada Success

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
 
procedure test is
use Ada.Text_IO;
type C_Int is new Integer range 0..10;
A : C_Int := 8;
B : C_Int := 2;
begin
  if (A + 3 > B) then
 ...

9 days 3 hours ago view (lines: 12, size: 192, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
 
procedure test is
use Ada.Text_IO;
type C_Int is Integer range 0..10;
A : C_Int := 8;
B : C_Int := 2;
begin
  if (A + 3 > B) then
 ...

9 days 3 hours ago view (lines: 7, size: 89, inputs: 1) Ada Success

1
2
3
4
5
6
7
with Ada.Text_IO;
 
procedure test is
use Ada.Text_IO;
begin
put("Hello World");
end test;

9 days 3 hours ago view (lines: 7, size: 90, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
with Ada.Text_IO;
 
procedure test is
use Ada.Text_IO;
begin
puts("Hello World");
end test;

9 days 4 hours ago view (lines: 7, size: 86, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
with Ada.Text_IO;
 
procedure test is
use Text_IO;
begin
puts("Hello World");
end test;

9 days 4 hours ago view (lines: 7, size: 85, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
with Ada.Text_IO;
 
procedure test is
use Text_IO;
begin
puts("Hello World");
end test

9 days 4 hours ago view (lines: 6, size: 72, inputs: 1) Ada Compilation error

1
2
3
4
5
6
with Ada.Text_IO;
 
procedure test is
begin
puts("Hello World");
end test

9 days 4 hours ago view (lines: 5, size: 62, inputs: 1) Ada Compilation error

1
2
3
4
5
with Ada.Text_IO
 
procedure test
puts("Hello World");
end test

9 days 4 hours ago view (lines: 7, size: 94, inputs: 1) Ada Success

1
2
3
4
5
6
7
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure Euler44 is
begin
        put_line("tere");
end Euler44;

9 days 4 hours ago view (lines: 17, size: 313, inputs: 1) Ada Success

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

9 days 8 hours ago view (lines: 17, size: 313, inputs: 1) Ada Success

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

9 days 21 hours ago view (lines: 21, size: 337, inputs: 1) Ada Success

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 prog is
 
num : INTEGER;
num1 : INTEGER;
total : INTEGER;
begin
 ...

9 days 21 hours ago view (lines: 21, size: 328, inputs: 1) Ada Success

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 prog is
 
num : INTEGER;
num1 : INTEGER;
total : INTEGER;
begin
 ...

9 days 21 hours ago view (lines: 19, size: 318, inputs: 1) Ada Compilation error

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 prog is
 
num : INTEGER;
num1 : INTEGER;
total : INTEGER;
begin
 ...

9 days 21 hours ago view (lines: 18, size: 288, inputs: 1) Ada Success

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 prog is
 
num : INTEGER;
num1 : INTEGER;
total : INTEGER;
begin
 ...

9 days 21 hours ago view (lines: 18, size: 287, inputs: 1) Ada Compilation error

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 prog is
 
num : INTEGER;
num1 : INTEGER;
total : INTEGER;
begin
 ...

9 days 21 hours ago view (lines: 18, size: 275, inputs: 1) Ada Compilation error

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 prog is
 
num : INTEGER;
num1 : INTEGER;
total : INTEGER;
begin
 ...

9 days 21 hours ago view (lines: 17, size: 234, inputs: 1) Ada Success

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 prog is
 
num : INTEGER;
num1 : INTEGER;
 
begin
 ...

9 days 21 hours ago view (lines: 19, size: 343, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO;
USE Ada.Text_IO;
WITH Ada.Integer_Text_IO;
USE Ada.Integer_Text_IO;
 
PROCEDURE main IS
 
num : Integer;
num1 : Integer;
 ...

9 days 21 hours ago view (lines: 19, size: 335, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO;
USE Ada.Text_IO;
WITH Ada.Integer_Text_IO;
USE Ada.Integer_Text_IO;
 
PROCEDURE main IS
 
num : Integer;
num1 : Integer;
 ...

9 days 22 hours ago view (lines: 16, size: 270, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO;
WITH Ada.Integer_Text_IO;
 
PROCEDURE main IS
 
num : Integer;
num1 : Integer;
 
BEGIN
 ...

9 days 22 hours ago view (lines: 17, size: 269, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
9
WITH Ada.Text_IO;
WITH Ada.Integer_Text_IO;
 
PROCEDURE main IS
 
num : Integer
num1 : Integer
 
BEGIN
 ...

9 days 23 hours ago view (lines: 17, size: 313, inputs: 1) Ada Success

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

9 days 23 hours ago view (lines: 9, size: 168, inputs: 1) Ada Success

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;use Ada.Text_IO;
 
procedure Hello is
   
begin
   Put_Line("Hello, world!");
   New_Line;
   Put_Line("Listening to Kondor? Maybe Blazo?");
end Hello;

9 days 23 hours ago view (lines: 9, size: 192, inputs: 1) Ada Success

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
 
procedure Hello is
   package IO renames Ada.Text_IO;
begin
   IO.Put_Line("Hello, world!");
   IO.New_Line;
   IO.Put_Line("Listening to Kondor? Maybe Blazo?");
end Hello;

9 days 23 hours ago view (lines: 8, size: 124, inputs: 1) Ada Success

1
2
3
4
5
6
7
8
with Ada.Text_IO;
 
procedure Hello is
   package IO renames Ada.Text_IO;
begin
   IO.Put_Line("Hello, world!");
 
end Hello;

9 days 23 hours ago view (lines: 7, size: 124, inputs: 1) Ada Compilation error

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

9 days 23 hours ago view (lines: 7, size: 134, inputs: 1) Ada Compilation error

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

page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

1 2 3 4 5 6 7 8 9	with Ada.Text_IO; procedure test is use Ada.Text_IO; type C_Int is new Integer range 0..2**32-1; A : C_Int := 500_000_000; B : C_Int := 2; begin if (A + 4_000_000_000 > B) then
...

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; use Ada.Text_IO, Ada.Integer_Text_IO; procedure prog is num : INTEGER; num1 : INTEGER; total : INTEGER; begin
...

1 2 3 4 5 6 7 8 9	WITH Ada.Text_IO; USE Ada.Text_IO; WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO; PROCEDURE main IS num : Integer; num1 : Integer;
...

1 2 3 4 5 6 7 8 9	WITH Ada.Text_IO; WITH Ada.Integer_Text_IO; PROCEDURE main IS num : Integer; num1 : Integer; BEGIN
...

UsernamePassword

Username
Password