fork download 
  1. with Ada.Text_IO;
  2. use Ada.Text_IO;
  3.  
  4. procedure String_oprations is
  5. First_Name : string(1..30);
  6. Last_Name : string(1..30);
  7. Job : constant STRING := "Computer Programmer";
  8. location : string(1..15) ;
  9.  
  10. begin
  11. Put_Line("Enter the first name :");
  12. get(First_Name);
  13. Put_Line("Enter the last name :");
  14. get(Last_Name);
  15. put_line("enter the location :");
  16. get(location);
  17.  
  18. put_line("The details are :");
  19. put(First_Name);
  20. new_line;
  21. get(Last_Name);
  22. new_line;
  23. put(Job);
  24. new_line;
  25. put(location);
  26.  
  27. end String_oprations;
  28.  
Runtime error #stdin #stdout 0.02s 1852KB
comments (?)
stdin 
Standard input is empty
stdout 
Enter the first name :
https://ideone.com/ttSxm
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!