De digitale vraagbaak voor het wiskundeonderwijs

home |  vandaag |  gisteren |  bijzonder |  prikbord |  gastenboek |  wie is wie? |  contact

HOME

samengevat
vragen bekijken
een vraag stellen
hulpjes
zoeken
FAQ's
links
twitter
boeken
help

inloggen

colofon

  \require{AMSmath} Printen

Re: Permutaties systematisch opschrijven

 Dit is een reactie op vraag 36553 
De recursie heeft me geholpen! Ik heb het uitgetest met Pascal (Delphi 5) en het werkt en ook best snel.
bedankt.

procedure permu(elm:integer;original:work);
// original is een array van characters ; kan elm elementen bevatten
var
ij:integer;
begin // showit laat inhoud van array zien
if elm=1 then showit(original) else
begin
for ij:=elm downto 1 do
begin
wissel(original,ij,elm);// wissel element [ij] met [elm]
permu(elm-1,original);
end;
end;
end;

p.r.cr
Ouder - zondag 10 april 2005

Antwoord

Mooi!
Succes ermee!

Wie is wie?
Vragen naar aanleiding van dit antwoord? Klik rechts..!
zondag 10 april 2005



klein |  normaal |  groot

home |  vandaag |  bijzonder |  twitter |  gastenboek |  wie is wie? |  colofon

©2001-2020 WisFaq - versie IIb