The World of Computer Software/World_Of_Computer_Software-02-385-Vol-1of3.iso/f/funnel-x.zip/examples/ex16.out

Text File | 1992-05-27 | 453b | 19 lines

with text_io; use text_io;

procedure example is
   n : constant natural := 10;     -- How many numbers? (Ans: [1,n]).
   p : constant natural :=  5;     -- How many powers?  (Ans: [1,p]).
begin -- example
   for i in 1..n loop
      declare
         ip : natural := 1;
      begin
         for power in 1..p loop
            ip:=ip*i;
            put(natural'image(ip) & " ");
         end loop;
         new_line;
      end;
   end loop;
end example;