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: 29283 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

21 days 12 hours ago view (lines: 40, size: 737, inputs: 1) Ada Success

1
2
3
4
5
6
7
8
with ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO,ADA.Long_Long_Float_Text_IO;
Use ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO,ADA.Long_Long_Float_Text_IO;
 
Procedure test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 12 hours ago view (lines: 16, size: 292, 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 Program3 is
num1, num2, num3 : INTEGER:=0;
begin
num1:= 8;
num2:= 10;
num3:= 7;
if (num1 > num2) and (num1 > num3) then
 ...

21 days 12 hours ago view (lines: 16, size: 291, 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 Program3 is
num1, num2, num3 : INTEGER:=0;
begin
num1:= 1;
num2:= 2;
num3:= 3;
if (num1 > num2) and (num1 > num3) then
 ...

21 days 12 hours ago view (lines: 16, size: 290, 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 Program3 is
num1, num2, num3 : INTEGER:=0;
begin
num1:= 1;
num2:= 2;
num3:= 3;
if (num1 > num2) and (num1 > num3) then
 ...

21 days 12 hours ago view (lines: 16, size: 290, 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 Program3 is
num1, num2, num3 : INTEGER:=0;
begin
num1:= 1;
num2:= 2;
num3:= 3;
if (num1 > num2) and (num1 > num3) then
 ...

21 days 12 hours ago view (lines: 16, size: 294, 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 Program3 is
num1, num2, num3 : INTEGER:=0;
begin
num1:= 1;
num2:= 2;
num3:= 3;
if ((num1 > num2) and (num1 > num3)) then
 ...

21 days 12 hours ago view (lines: 40, size: 681, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 12 hours ago view (lines: 17, size: 310, 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 My_program_3 is
num1, num2, num3 : INTEGER:=0;
begin
num1:= 1;
num2:= 2;
num3:= 3;
if ((num1 > num2) and (num1 > num3)) then
 ...

21 days 12 hours ago view (lines: 40, size: 669, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 12 hours ago view (lines: 40, size: 668, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 12 hours ago view (lines: 16, size: 302, 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 My_program_3 is
num1, num2, num3 : INTEGER:=0;
begin
num1:= 1;
num2:= 2;
num3:= 3;
if ((num1 > num2) and (num1 > num3)) then
 ...

21 days 12 hours ago view (lines: 16, size: 300, 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 My_program_3 is
num1, num2, num3 : INTEGER:=0;
begin
num1:= 1;
num2:= 2;
num3:= 3;
if (num1 > num2) and (num1 > num3) then
 ...

21 days 12 hours ago view (lines: 37, size: 611, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 12 hours ago view (lines: 33, size: 576, inputs: 1) Ada Success

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 12 hours ago view (lines: 17, size: 226, inputs: 3) Ada Success

1
2
3
4
5
6
7
8
9
with Ada.Text_IO ;
use Ada.Text_IO;
 
procedure welcome is
answer:character;
begin
get(answer);
case answer is
when 'A'..'Z'|'a'..'z' =>
 ...

21 days 12 hours ago view (lines: 17, size: 226, inputs: 3) Ada Success

1
2
3
4
5
6
7
8
9
with Ada.Text_IO ;
use Ada.Text_IO;
 
procedure welcome is
answer:character;
begin
get(answer);
case answer is
when 'A'..'Z'|'a'..'z' =>
 ...

21 days 12 hours ago view (lines: 17, size: 226, inputs: 3) Ada Runtime error

1
2
3
4
5
6
7
8
9
with Ada.Text_IO ;
use Ada.Text_IO;
 
procedure welcome is
answer:character;
begin
get(answer);
case answer is
when 'A'..'Z'|'a'..'z' =>
 ...

21 days 13 hours ago view (lines: 27, size: 506, inputs: 1) Ada Success

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 13 hours ago view (lines: 17, size: 225, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
9
with Ada.Text_IO ;
use Ada.Text_IO;
 
procedure welcome is
answer:character;
begin
get(answer);
case answer is
when 'A'..'Z'|'a'..'z' =>
 ...

21 days 13 hours ago view (lines: 17, size: 225, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
9
with Ada.Text_IO ;
use Ada.Text_IO;
 
procedure welcome is
answer:character;
begin
get(answer);
case answer is
when 'A'..'Z'|'a'..'z' =>
 ...

21 days 13 hours ago view (lines: 27, size: 502, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 13 hours ago view (lines: 27, size: 514, inputs: 1) Ada Runtime error

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 13 hours ago view (lines: 27, size: 519, inputs: 1) Ada Runtime error

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 13 hours ago view (lines: 26, size: 498, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 13 hours ago view (lines: 18, size: 305, 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 My_program_3 is
 
num1, num2, num3 : INTEGER:=0;
 
begin
num1:= 1;
num2:= 2;
 ...

21 days 13 hours ago view (lines: 26, size: 498, inputs: 1) Ada Compilation error

1
2
3
4
5
6
7
8
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 test Is
 
x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;
 ...

21 days 13 hours ago view (lines: 18, size: 301, 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 My_program_3 is
 
num1, num2, num3 : INTEGER:=0;
 
begin
num1:= 1;
num2:= 2;
 ...

21 days 13 hours ago view (lines: 17, size: 214, inputs: 3) Ada Success

1
2
3
4
5
6
7
8
9
with Ada.Text_IO ;
use Ada.Text_IO;
 
procedure welcome is
answer:character;
begin
put("enter the time");
get(answer);
if (answer = 'm' ) then
 ...

21 days 13 hours ago view (lines: 17, size: 214, inputs: 3) Ada Success

1
2
3
4
5
6
7
8
9
with Ada.Text_IO ;
use Ada.Text_IO;
 
procedure welcome is
answer:character;
begin
put("enter the time");
get(answer);
if (answer = 'm' ) then
 ...

21 days 13 hours ago view (lines: 17, size: 214, inputs: 3) Ada Runtime error

1
2
3
4
5
6
7
8
9
with Ada.Text_IO ;
use Ada.Text_IO;
 
procedure welcome is
answer:character;
begin
put("enter the time");
get(answer);
if (answer = 'm' ) then
 ...

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 ; use Ada.Text_IO; procedure welcome is answer:character; begin get(answer); case answer is when 'A'..'Z'\|'a'..'z' =>
...

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 My_program_3 is num1, num2, num3 : INTEGER:=0; begin num1:= 1; num2:= 2;
...

UsernamePassword

Username
Password