fork download
copy 
  1. with ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO;
  2. Use ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO;
  3.  
  4. Procedure test Is
  5.  
  6. x : INTEGER :=10  ;
  7. my_char  : Character  ;         --  Variable declaration for all types
  8. my_float : Float      :=1.5  ;
  9.  
  10. Begin
  11. put(" MahindraSatyam");
  12. new_line;
  13. put(" MahindraSatyam");
  14. new_line;
  15. put(" The value of xis ");
  16. put(x,20);
  17. new_line;
  18. put(" The value of xis ");
  19. put(x,2);
  20. --x := long double'size ;
  21. Put(INTEGER'SIZE);
  22. put(" value of x:");
  23. put(x,2);
  24.  get(my_char);
  25.  
  26.  
  27. End test;
Runtime error #stdin #stdout 0.02s 1868KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 MahindraSatyam
 MahindraSatyam
 The value of xis                   10
 The value of xis 10         32 value of x:10
https://ideone.com/A8aac
language:
Ada95 (gnat 8.3)
created:
14 years ago
visibility:
public

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!