DataMuseum.dk

top - metrics - download

    Length: 3187 (0xc73)
    Types: TextFile
    Names: »B«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

separate (Manpower)
procedure Change_Parameters (Name : in String;
                             Coeff_Mm : in out Accurate_Float;
                             Exp_Mm : in out Accurate_Float;
                             Coeff_Tdev : in out Accurate_Float;
                             Exp_Tdev : in out Accurate_Float) is
    ----------------------------------------------------------------------
    --| NAME : CHANGE_PARAMETERS
    --|
    --| OVERVIEW:
    --|   This procedure allows the user to modify the parameters in the
    --|   COCOMO equations.
    --|
    --| HISTORY:
    --|   written by Bonnie Burkhardt     March 1985
    --|
    --| EXCEPTIONS HANDLED:
    --|    others   an error message is printed an processing continues
    ----------------------------------------------------------------------

    Choice : Integer range 1 .. 3;
    Yes_Or_No : Character := 'N';
    Parameter : Float digits 15 := 0.0;

begin
    -- output the current equation
    New_Line;
    Put (Name);
    Set_Col (17);
    Put ("MM = ");
    Put (Coeff_Mm, 2, 3, 0);
    Put (" * KSLOC ** ");
    Put (Exp_Mm, 2, 3, 0);
    New_Line;
    Set_Col (17);
    Put ("TDEV = ");
    Put (Coeff_Tdev, 2, 3, 0);
    Put (" * MM ** ");
    Put (Exp_Tdev, 2, 3, 0);
    New_Line (2);

    -- input the ManMonth coefficient
    Put_Line (" Enter coefficient of the ManMonth equation");
    Put (" (default = ");
    Put (Coeff_Mm, 2, 3, 0);
    Put (") : ");

    begin
        if End_Of_Line then
            Skip_Line;
        else
            Get (Parameter);
            Skip_Line;
            Coeff_Mm := Parameter;
        end if;
    exception
        when others =>
            Skip_Line;
    end;

    New_Line (2);

    -- input the ManMonth exponent
    Put_Line (" Enter exponent of the ManMonth equation");
    Put (" (default = ");
    Put (Exp_Mm, 2, 3, 0);
    Put (") : ");

    begin
        if End_Of_Line then
            Skip_Line;
        else
            Get (Parameter);
            Skip_Line;
            Exp_Mm := Parameter;
        end if;
    exception
        when others =>
            Skip_Line;
    end;

    New_Line (2);

    -- input the Development Schedule coefficient
    Put_Line (" Enter coefficient of the Development Schedule equation");
    Put (" (default = ");
    Put (Coeff_Tdev, 2, 3, 0);
    Put (") : ");

    begin
        if End_Of_Line then
            Skip_Line;
        else
            Get (Parameter);
            Skip_Line;
            Coeff_Tdev := Parameter;
        end if;
    exception
        when others =>
            Skip_Line;
    end;

    New_Line (2);

    -- input the Development Schedule coefficient
    Put_Line (" Enter coefficient of the Development Schedule equation ");
    Put (" (default = ");
    Put (Exp_Tdev, 2, 3, 0);
    Put (") : ");

    begin
        if End_Of_Line then
            Skip_Line;
        else
            Get (Parameter);
            Skip_Line;
            Exp_Tdev := Parameter;
        end if;
    exception
        when others =>
            Skip_Line;
    end;

    New_Line (2);

exception
    when others =>
        Put_Line ("exception raised in CHANGE_PARAMETER");
end Change_Parameters;