User Input: Difference between revisions

=={{header|Ada}}==

{{works with|GCC|4.1.2}}

function Get_String return String is

Line : String (1 .. 1_000);

-- may raise exception Constraint_Error if value entered is not a well-formed integer

end Get_Integer;

The functions above may be called as shown below

My_String : String := Get_String;

My_Integer : Integer := Get_Integer;

 

=={{header|ALGOL 68}}==

 

=={{header|OCaml}}==

let str = read_line () in

print_string "Enter an integer: ";

let num = read_int () in

 

=={{header|Pascal}}==