mám menší problém. Pokouším se delší dobu naprogramovat v Pascalu bankomat, kterej rozměňuje prachy. Zkouším, aby mi vypsal veškerý možný kombinace rozměnění 100 korun. Rekurzivně, nikoliv standartně. Přikládám zdrojový kód, program se spustí a vypíše hodnoty, nicméně kombinace se opakují a já se potřebuji zbavit toho opakování. Díky za pomoc.
- Kód: Vybrat vše
program rozmenovac;
{$APPTYPE CONSOLE}
uses SysUtils;
const castka=100;
platidla: array [1..6] of integer = (50,20,10,5,2,1);
var a:integer;
prvSez:array [1..6] of integer;
pocet:integer;
procedure rozmen (zbyvCastka,poslCastka:integer;seznam:array of integer);
var i,j,pamet:integer;
begin
if zbyvCastka = 0 then
begin
for i:=1 to 6 do write (seznam[i],',');
writeln ('');
inc (pocet);
end
else
begin
for i:= (poslCastka+1) to 6 do
begin
for j:= 1 to (zbyvCastka div platidla[i]) do
begin
seznam[i]:=j;
rozmen (zbyvCastka-j*platidla[i],i,seznam);
seznam[i]:=0
end;
end;
end;
end;
begin
pocet:=0;
writeln ('Seznam castek v poradi 50,20,10,5,2,1');
for a:= 1 to 6 do prvSez [a]:=0;
rozmen (100,0,prvSez);
readln;
end.
mám dojem že delphi prostě přepíšou při návratu z rekurze to j na jedničku respektvě nedovolej tomu foru pokračovat na větší číslo když sem si to ladil s postupnym výpisem třeba pro nižší částku 4 tak to jelo takhle
