summaryrefslogtreecommitdiff
path: root/web/funnelAC/results/ex16.out
diff options
context:
space:
mode:
Diffstat (limited to 'web/funnelAC/results/ex16.out')
-rw-r--r--web/funnelAC/results/ex16.out18
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;