Advertisement
Guest User

Untitled

a guest
Jan 20th, 2017
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Ada 0.86 KB | None | 0 0
  1. with Ada.Text_IO; use Ada.Text_IO;
  2.  
  3. procedure main is
  4.    
  5.    procedure asknumber is
  6.       Name : String(1 .. 100);
  7.       Last : Natural;
  8.       Number : Integer := 0;
  9.    begin
  10.       Put_Line("Enter a number.");
  11.       Get_Line(Name, Last);
  12.       Put_Line("Your number entered is: " &Name(1 .. Last));
  13.    
  14.       Number := Integer'Value(Name(1 .. Last));
  15.       Put_Line("And now as int: " &Number'Image);
  16.    exception
  17.       when Constraint_Error =>
  18.          Put_Line("That's not a number, try again");
  19.          asknumber;
  20.      
  21.    end asknumber;
  22.    
  23.    
  24.    Name : String(1 .. 100);
  25.    Last : Natural;
  26.    Number : Integer := 0;
  27. begin
  28.    Put_Line("Hello, please enter your name.");
  29.    Get_Line(Name, Last);
  30.    Put_Line("Hello " & Name(1 .. Last));
  31.    
  32.    asknumber;
  33.    
  34.    Put_Line("Last is " &Last'Image);
  35.    Put_Line("All done!");
  36.    
  37. end main;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement