diff options
Diffstat (limited to 'web/funnelAC/results/ex16.out')
-rw-r--r-- | web/funnelAC/results/ex16.out | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/web/funnelAC/results/ex16.out b/web/funnelAC/results/ex16.out new file mode 100644 index 0000000000..a3b510afd9 --- /dev/null +++ b/web/funnelAC/results/ex16.out @@ -0,0 +1,18 @@ +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; |