26 lines
556 B
Plaintext
26 lines
556 B
Plaintext
$ include "seed7_05.s7i";
|
|
|
|
const func integer: multiFact (in var integer: num, in integer: degree) is func
|
|
result
|
|
var integer: multiFact is 1;
|
|
begin
|
|
while num > 1 do
|
|
multiFact *:= num;
|
|
num -:= degree;
|
|
end while;
|
|
end func;
|
|
|
|
const proc: main is func
|
|
local
|
|
var integer: degree is 0;
|
|
var integer: num is 0;
|
|
begin
|
|
for degree range 1 to 5 do
|
|
write("Degree " <& degree <& ": ");
|
|
for num range 1 to 10 do
|
|
write(multiFact(num, degree) <& " ");
|
|
end for;
|
|
writeln;
|
|
end for;
|
|
end func;
|