Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Eher die mathematische Frage ... Finden Sie ähnliche Zweige


Дмитрий Д.   (2001-12-17 13:28) [0]

Hat mir jemand den Algorithmus zum Abrufen aller möglichen Werte aus Arrayelementen (zum Beispiel 3х3) mitgeteilt:

qwe
asd
zxc

Das heißt, das Ergebnis kann für die erste Zeile sein:
qwe
qwd
qwc
qse
qsd
qsc

usw...
Der Algorithmus selbst ist wichtig, da die Werte des Arrays sowohl Buchstaben als auch ganze Wörter sein können

Vielen Dank im Voraus.



Виктор Щербаков   (2001-12-17 13:33) [1]

Drei verschachtelte Schleifen. Einer in der ersten Spalte, ein anderer in der zweiten, der dritte in der dritten. Das Problem ist was?



Дмитрий Д.   (2001-12-17 13:42) [2]

das ist klar
Das Problem ist, dass meine Anzahl und Zeilen und Spalten unterschiedlich sein können ...
(Ich habe zum Beispiel 3x3 genommen)
Wir brauchen also einen Algorithmus



Виктор Щербаков   (2001-12-17 13:46) [3]

Dann rekursive rohe Gewalt:
Die Funktion ruft sich selbst auf und übergibt als. Der Parameter ist die Spaltennummer des Arrays. Und so bis es die letzte Spalte (oder die erste) erreicht. In der Funktion selbst wird ein Zyklus einer Spalte erhalten.



Дмитрий Д.   (2001-12-17 13:59) [4]

und das Codestück ist möglich?
über Rekursion, dachte ich, ich könnte nichts herausfinden



Виктор Щербаков   (2001-12-17 14:11) [5]

Che so (er schrieb hastig).
Das Array selbst ist mit dem gefüllt, was Sie brauchen.

Prozedur TForm1.Button2Click (Sender: TObject); var a: Array [1..3, 1..3] von char; CurLine: String; Prozedur Proc1 (Col: Integer); var i: Integer; beginnen für i: = 1 bis 3 beginnen Wenn Col = 0, dann beginnen Memo1.Lines.Add (CurLine); Ausfahrt; ende CurLine: = CurLine + a [i, col]; proc1 (Col - 1); SetLength (CurLine, Length (CurLine) - 1); ende ende beginnen CurLine: = ""; proc1 (3); ende




Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.82 MB
Zeit: 0.035 c
14-22341
Dicht
2001-10-26 13:55
2002.01.08
Wettbewerbsprogramme - SEA FIGHTING


6-22315
Marser
2001-08-01 16:04
2002.01.08
SMS Nachricht


1-22119
Socol
2001-12-15 10:45
2002.01.08
Helfen Sie bei zwei Fragen!


1-22116
Bindung
2001-12-19 19:08
2002.01.08
Hat jemand einen Thread-Hash MD5?


4-22458
Ajax
2001-10-31 17:50
2002.01.08
TColor und RGB





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Swedish Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch