hi,
Ich versuche eine Rekursive Funktion zu schreiben um ein Problem zu lösen, als Bsp: es seien 15 Frauen, eine Frau bekommt eine Nachricht und will sie den anderen erzählen, darf aber nur 2 andere Frauen benachrichtigen. Die beiden können wieder 2 Frauen benachrichtigen usw. (Baumdiagramm).
Beispielbaum:
Delphi-Quellcode:
F1
/ \
F9 F2 // <- für 15 Personen
/ \ / \
F10 F13 F3 F6
/ \ / \ /\ / \
F11 F12 F14F15 F4F5 F7 F8
Alle Frauen werden in einer Procedure in einem Array gespeichert:
Delphi-Quellcode:
Type Frau = array of String;
procedure liste(N:Anzahl);
var i:integer;
begin
setlength(Frau,n);
for i:=0 to n-1 do frau[i]:='Person '+inttostr(i+1);
end;
Jetzt kommt die Funktion:
Delphi-Quellcode:
Type Endfrauen = record
Frau1:String;
Frau2:String;
end;
Function getfrauen(Ausgangsfrau:integer,Frauenarray:Frau):Endfrauen;
begin
// <- :(
end;
Die Funktion soll die 2 Frauen ausgeben, die die Ausgangsfrau benachrichtigt, in diesen fall würde z.B. Frau 9 - Frau 10 und Frau 13 benachrichtigen, also muss als ergebnis Person 10 und Person 13 raus kommen. Da es rekursiv gelöst werden soll müsste also Also der Rekursionsanfang erreicht sein, wenn n = 1 ist sonst soll er die Frauenliste durch 2 teilen und die Function nochmal aufrufen (irgendwie so). Aber mir fehlt leider die Vorstellung, wie ich das lösen könnte
. Wüsste jemand ne Lösung?
Ps: es soll nicht so ein Baum werden, das Person1 - Person2 und 3 informiert, sondern so, wie oben gezeichnet nur ebend mit n* Frauen.
Wieviel Lösungen hat die Gleichung x^13=1? .... 13!