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.55 MB
Zeit: 0.022 c
4-22496
Wic
2001-10-29 18:54
2002.01.08
Woher weiß ich, dass die Verbindung hergestellt ist?


3-21956
Sevostyanov Igor
2001-12-05 17:56
2002.01.08
SHUTDOWN SOFORT programmgesteuert ausführen


1-22001
Socol
2001-12-15 15:55
2002.01.08
Anatoly podgoretsky


4-22505
delphixnumx
2001-11-07 20:14
2002.01.08
Problem mit der Bitmap


4-22459
Yus
2001-11-01 03:13
2002.01.08
Meister, Hilfe ..





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch 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