fork download 
  1. with ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO,ADA.Long_Long_Float_Text_IO;
  2. Use ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO,ADA.Long_Long_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. new_line;
  25. Put(LONG_LONG_FLOAT'SIZE);
  26. Put(LONG_LONG_FLOAT'FIRST);
  27. Put("to");
  28. put(LONG_LONG_FLOAT'LAST);
  29.  
  30. new_line;
  31. Put(LONG_LONG_FLOAT'SIZE);
  32.  
  33. new_line;
  34. Put(LONG_FLOAT'SIZE);
  35.  
  36. new_line;
  37. Put(FLOAT'SIZE);
  38.  
  39.  
  40. End test;
Success #stdin #stdout 0.01s 1748KB
comments (?)
stdin 
Standard input is empty
stdout 
 MahindraSatyam
 MahindraSatyam
 The value of xis                   10
 The value of xis 10 value of x:32
         96-1.18973149535723177E+4932to 1.18973149535723177E+4932
         96
         64
         32
https://ideone.com/kP0wC
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!