Imam problem s ovim zadatkom, na razne načine sam ga pokušao napraviti, ali ne ide..
Treba napisati rekurzivni potprogram koji će za uneseni n (broj mjesta) i k (baza brojevnog sustava) ispisivati sve kombinacije od n brojeva u sustavu s k znamenki.
Znači treba biti riješen u obliku rekurzivnog potprograma, uz pomoć permutacija.
U permutacijama nema ponavljanja pa ne znam kako problem riješiti na taj način. Evo funkcije koja koristi rekurziju i produkt:
procedure Produkt(n, k: Integer; prefiks: string);
var
i: Integer;
begin
for i := 0 to k - 1 do
if n = 1 then
WriteLn(prefiks, IntToStr(i))
else
Product(n - 1, k, prefiks + IntToStr(i));
end;
Glavni program poziva funkciju s praznim stringom kao zadnjim parametrom:
Produkt(3, 2, '');