fork download
copy 
  1. with Ada.Integer_Text_IO;	use Ada.Integer_Text_IO;
  2. with Ada.Float_Text_IO;		use Ada.Float_Text_IO;
  3. with Ada.Text_IO;		use Ada.Text_IO;
  4. with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
  5. with Ada.Strings.Unbounded.Text_IO; use Ada.Strings.Unbounded.Text_IO;
  6. with Ada.Strings.Fixed; use Ada.Strings.Fixed;
  7.  
  8. procedure hello is
  9.  
  10.    A: array (1..6) of Integer;
  11.      --B: array (1..6) of Integer;
  12.  
  13.    chips : integer;
  14.  
  15.    procedure get_chips(c : out integer) is
  16.    begin
  17.       get(c);
  18.       put(c, 1);
  19.    end get_chips;
  20.  
  21.    procedure get_values is
  22.     --  A: array (1..6) of Integer;
  23.    begin
  24.    for v of A loop
  25.          get(v);
  26.       end loop;
  27.  
  28.     ----  for I in A'Range loop
  29.       --   put(A(I), 1);
  30.         -- put(" ");
  31.          --end loop;
  32.  
  33.       end get_values;
  34.  
  35.    procedure calculate_values is
  36.       res : integer;
  37.  
  38.    begin 
  39.       res := 0;
  40.       for I in A'range loop
  41.  
  42.          res := chips/A(I);
  43.          put(res);
  44.          end loop;
  45.  
  46.  
  47.  
  48.             end calculate_values;
  49.  
  50.  
  51.            --  D : A;
  52.  
  53.  
  54. begin
  55.    put("Enter number of chips: ");
  56.    get_chips(chips);
  57.  
  58.       new_line;
  59.       put("Enter exchange values: ");
  60.    get_values;
  61.  
  62.    new_line;
  63.    put("You get: ");
  64.    calculate_values;
  65.  
  66.  
  67.  
  68.  
  69. end hello;
Runtime error #stdin #stdout #stderr 0.01s 5436KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Enter number of chips:
stderr
copy 
raised ADA.IO_EXCEPTIONS.END_ERROR : a-textio.adb:506
https://ideone.com/4Ht6sl
language:
Ada95 (gnat 8.3)
created:
2 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!