Rucksackproblem, Bitte um Hilfe

[Susan1990]

Zitat von grenzgaenger:

was für 'ne schule machst denn, dass du solche aufgaben bekommst?

ein blick hierdrauf, sollte helfen. <HTH>

.pas rucksackproblem

Danke für den Link.
Ich gehe 11. Klasse Gymnasium und habe dort ganz normal Informatik Grundkurs. Nur leider ist unser Lehrer nicht so toll... Der lässt überhaupt nicht mit sich reden und gibt uns meiner Meinung nach viel zu schwere Aufgaben, die er nichtmal selbst lösen könnte...

Die Lösung bei deinem Link ist doch aber nicht rekursiv gelöst oder? Habe echt keinen Plan wie man das rekursiv löst.

Susan

[grenzgaenger]

doch, die lösung ist rekursiv.

Delphi-Quellcode:

  PROCEDURE try (stufe: Integer; vektor: vektortyp);
  VAR wahl,gewicht,wert: Integer;

   :
   :
   :
  BEGIN  { T }
    FOR wahl:=auswahlanfang TO auswahlende DO
    BEGIN
      vektor[0]:=stufe;     { Stelligkeit setzen }
      vektor[stufe]:=wahl;  { Auswahl Objekt i treffen }
      vektor_bewerten;
      IF vollstaendig
        THEN BEGIN IF neues_optimum THEN  loesung_speichern   END
        ELSE BEGIN IF lebend        THEN  try(stufe+1,vektor) END //hier wird die routine selbst aufgerufen
    END
  END;

BEGIN
  :
  :
  try(1,vektor);     { rekursive Lösungssuche }

das heisst nichts anderes, als dass sich die routine selbst aufruft. hier noch ein Link

PS: möcht zwar nix sagen, aber didaktisch ist diese aufgabe verfehlt.

[Susan1990]

Hmmmm... Habe irgendwie noch Probleme den Quelltext zu verstehen.
Wie ist denn zum Bsp. der Vektor zu verstehen und das letzte Begin { Überschrift und kurze Hinweise }... Was macht denn das Program dort?

Trotzdem muss ich euch und das Forum ersteinmal sehr, sehr loben. Das ich so schnell Antworten bekomme, hätte ich nicht gedacht.

Susan

[grenzgaenger]

schon hier mal die SuFu getestet?

rucksackproblem oder rucksackproblem