Ada Programming Ascendancy

 23 September 02:59   

    __TOC__

     action

     statement;

     additional statement;

     ;

     action

     statement;

     action

     additional statement;

     action

     additional statement;

     ...

     action

     addition statement;

     ;

     ;

     ;

     ...

     Degrees Float -273.15 .. FloatLast;

     ...

     Temperature : Degrees;

     ...

     Temperature >= 40.0

     Put_Line (Its acutely hot);

     Temperature >= 30.0

     Put_Line (Its hot);

     Temperature >= 20.0

     Put_Line (Its warm);

     Temperature >= 10.0

     Put_Line (Its cool);

     Temperature >= 0.0

     Put_Line (Its cold);

     Put_Line (Its freezing);

     ;

    In Ada, codicillary statements with added than one codicillary do not use circumlocute appraisal by default. In adjustment to actor C/C++s circumlocute evaluation, use or amid the conditions.

     X

     1

     Walk_The_Dog;

     5

     Launch_Nuke;

     8 | 10

     Sell_All_Stock;

    

     Self_Destruct;

     ;

    For procedures:

     ;

    For functions:

     Value;

     Label;

     Dont_Do_Something;

     Label

     ...

     Use_Return

     Do_Something;

     Analysis

     ;

     ;

     Do_Something_Else;

     ;

     Use_Return;

     Use_Goto

     Do_Something

    

     Analysis

     Exit_Use_Goto

    

     Do_Something_Else

     Exit_Use_Goto

    

     Use_Goto

     Use_If

     Do_Something;

    

     Analysis

     Do_Something_Else;

     ;

     ;

     Use_If;

     Endless_Loop :

    

     Do_Something;

     Endless_Loop;

    The bend name is an alternative affection of Ada. Allotment loops is nice for readability but not carefully needed.

     While_Loop :

     X <= 5

     X := Calculate_Something;

     While_Loop;

     Until_Loop :

    

     X := Calculate_Something;

     Until_Loop X > 5;

     Until_Loop;

     Exit_Loop :

    

     X := Calculate_Something;

     Exit_Loop X > 5;

     Do_Something (X);

     Exit_Loop;

    In Ada the avenue action can be accumulated with any additional bend account as well. You can aswell accept added then one avenue statement. You can aswell avenue a called alien bend if you accept several loops central anniversary other.

     For_Loop :

     I Accumulation 1 .. 10

     Do_Something (I)

     For_Loop;

    You dont accept to acknowledge both blazon and ambit as apparent in the example. If you leave out the blazon then the compiler Interface' onMouseOver="tip('infobox1')" onMouseOut="untip()" target='_parent'> compiler will actuate the blazon by ambience and leave out the ambit then the bend will iterate over every accurate amount for the blazon given.

    As consistently with Ada: if actuate by ambience gives two or added accessible options then an absurdity will be displayed and then you accept to name the blazon to be used. Ada will alone do guess-works if it is safe to do so.

     Array_Loop :

     I X

     X (I) := Get_Next_Element;

     Array_Loop;

    With X getting an array. Note: This syntax is mostly acclimated on arrays - appropriately the name - but will aswell plan with additional types if a abounding abundance is needed.

    The afterward Audience shows how to iterate over every aspect of an accumulation type.

    

     ;

     Range_1

     Range_Type -5 .. 10;

     T_IO ;

     I_IO (Range_Type);

    

     A Range_Type

     I_IO.Put (Item => A,

     Amplitude => 3,

     Abject => 10);

     A < Range_TypeLast

     T_IO.Put (,);

    

     T_IO.New_Line;

     ;

     ;

     Range_1;