Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- with Ada.Text_IO; use Ada.Text_IO;
- procedure main is
- procedure asknumber is
- Name : String(1 .. 100);
- Last : Natural;
- Number : Integer := 0;
- begin
- Put_Line("Enter a number.");
- Get_Line(Name, Last);
- Put_Line("Your number entered is: " &Name(1 .. Last));
- Number := Integer'Value(Name(1 .. Last));
- Put_Line("And now as int: " &Number'Image);
- exception
- when Constraint_Error =>
- Put_Line("That's not a number, try again");
- asknumber;
- end asknumber;
- Name : String(1 .. 100);
- Last : Natural;
- Number : Integer := 0;
- begin
- Put_Line("Hello, please enter your name.");
- Get_Line(Name, Last);
- Put_Line("Hello " & Name(1 .. Last));
- asknumber;
- Put_Line("Last is " &Last'Image);
- Put_Line("All done!");
- end main;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement