Return to ts_exp.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Continuation

Annotation of OpenXM_contrib/PHC/Ada/Continuation/ts_exp.adb, Revision 1.1.1.1

1.1       maekawa     1: with text_io;                             use text_io;
                      2: with Standard_Floating_Numbers;           use Standard_Floating_Numbers;
                      3: with Standard_Floating_Numbers_io;        use Standard_Floating_Numbers_io;
                      4: with Standard_Mathematical_Functions;     use Standard_Mathematical_Functions;
                      5:
                      6: procedure ts_exp is
                      7:
                      8:   a,b : double_float;
                      9:   ans : character;
                     10:
                     11: begin
                     12:   new_line;
                     13:   put_line("Calculating a**b, for a,b floating points");
                     14:   new_line;
                     15:   loop
                     16:     put("Give a : "); get(a);
                     17:        loop
                     18:       put("Give b : "); get(b);
                     19:       put(a); put("**"); put(b);
                     20:       put(" : "); put(a**b); new_line;
                     21:       put("Do you want other exponents of a ? (y/n) ");
                     22:       get(ans);
                     23:       exit when (ans /= 'y');
                     24:     end loop;
                     25:     put("Do you want other values for a ? (y/n) ");
                     26:     get(ans);
                     27:     exit when (ans /= 'y');
                     28:   end loop;
                     29: end ts_exp;