Return to ts_brackmons.adb CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Schubert |
File: [local] / OpenXM_contrib / PHC / Ada / Schubert / ts_brackmons.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:32 2000 UTC (23 years, 8 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
with text_io,integer_io; use text_io,integer_io; with Brackets,Brackets_io; use Brackets,Brackets_io; with Bracket_Monomials; use Bracket_Monomials; with Bracket_Monomials_io; use Bracket_Monomials_io; procedure ts_brackmons is procedure Main is d,m : natural; bm,bm_last : Bracket_Monomial; begin put("GIve the number of entries in the brackets : "); get(d); put("Give the number of brackets : "); get(m); for i in 1..m loop declare b : Bracket(1..d); si : integer; begin put("Give "); put(d,1); put(" numbers for the "); put(i,1); put("th bracket : "); get(b); Multiply(bm,b); end; end loop; put_line("The bracket monomial : "); put(bm); new_line; end Main; begin Main; end ts_brackmons;