Dennis J. Darland
Practice in Programming
ASUS Development Computer - Ubuntu 14.04
Starting  Mon May 21 20:47:54 CDT 2018
Finished  Mon May 21 20:47:56 CDT 2018
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> init_glob := 'readlib( 'init_glob',`init_glob.mxt`)';
                init_glob := readlib('init_glob', init_glob.mxt)

> 
# define conversion function
> cvt_feet_to_meters := proc(feet)
> global feet_per_meter, meter_per_foot;
> local meters;
>     
>     meters := feet * meter_per_foot;
>     return meters;
> end;
cvt_feet_to_meters := proc(feet)
local meters;
global feet_per_meter, meter_per_foot;
    meters := feet*meter_per_foot; return meters
end proc

> 
# define main function
> main := proc()
> local my_height_feet, my_height_meters;
>     init_glob();
# read string from file "pb01.in"
>     readline("pb01.in");
# convert string (last value) to float.
>     my_height_feet := sscanf(%,%f);
>     my_height_meters := cvt_feet_to_meters(my_height_feet); 
>     print("Maple output");
>     print("my_height_feet := ", my_height_feet);
>     print("my_height_meters := ",my_height_meters);
> end;
main := proc()
local my_height_feet, my_height_meters;
    init_glob();
    readline("pb01.in");
    my_height_feet := sscanf(%, %f);
    my_height_meters := cvt_feet_to_meters(my_height_feet);
    print("Maple output");
    print("my_height_feet := ", my_height_feet);
    print("my_height_meters := ", my_height_meters)
end proc

> 
# call main
> main();
                           "feet_per_meter := ", 3.28

                       "meter_per_foot := ", 0.3048780488

                                 "Maple output"

                          "my_height_feet := ", [6.0]

                     "my_height_meters := ", [1.829268293]

> quit
memory used=0.5MB, alloc=8.3MB, time=0.07