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 := INTEGER'SIZE;
  21. put(" value of x:");
  22. put(x,2);
  23.  
  24. Put(LONG_LONG_FLOAT'SIZE);
  25.  
  26.  
  27. End test;
Success #stdin #stdout 0.01s 1732KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 MahindraSatyam
 MahindraSatyam
 The value of xis                   10
 The value of xis 10 value of x:32         96
https://ideone.com/1BQdN
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!