Segitség! Free Pascalban kellene. Ki tudja alkalmazni a backtrakinget?
Figyelt kérdés
2010. ápr. 26. 00:19
1/2 anonim 
válasza:
válasza:var t:array[1..255] of boolean;
v:array[1..255] of byte;
procedure kiir;
....
procedure permutacio(j:byte);
var i:byte;
begin
if j=n+1 then kiir
else
for i:=1 to n do
if not t[i] then
begin
t[i]:=true;
v[j]:=i;
permutacio(j+1);
t[i]:=false;
end;
end;
2/2 A kérdező kommentje:
köszike :)
2010. ápr. 27. 18:56
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!