home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mega Top 1
/
os2_top1.zip
/
os2_top1
/
APPS
/
TEKST
/
FUNNEL_S
/
ANSWERS
/
EX16.OUT
< prev
next >
Wrap
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;