בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

אלא שאלה מתמטית ... מצא סניפים דומים


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

האם מישהו יגיד לי את האלגוריתם להשגת כל הערכים האפשריים המורכבים מאלמנטים של מערך (לדוגמה, 3x3):

qwe
asd
zxc

כלומר, התוצאה עשויה להיות בשורה הראשונה:
Qwe
qwd
qwc
qse
qsd
qsc

וכן הלאה ...
האלגוריתם עצמו חשוב, מכיוון שערכי המערך יכולים להיות אותיות או מילים שלמות

תודה מראש.



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

שלוש לולאות קינון. אחד על הטור הראשון, אחר על השני, שלישי על השלישי. מה הבעיה?



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

זה ברור
הבעיה היא שיש לי מספר שורות ושורות העמודות יכולות להיות שונות ...
(לקחתי לדוגמא את 3x3)
לכן אנו זקוקים לאלגוריתם



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

ואז איטרציה רקורסיבית:
הפונקציה קוראת לעצמה, עוברת באיכות. מספר העמודה של הפרמטר של המערך. וכן הלאה עד שהוא מגיע לטור האחרון (או הראשון). בפונקציה עצמה אנו מקבלים לולאה של עמודה אחת.



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

ופיסת קוד אפשרית?
חשבתי על רקורסיה, אבל אני פשוט לא מצליח להבין את זה



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

משהו כזה (מוקצף).
המערך עצמו מלא במה שאתה צריך.

procedure TForm1.Button2Click(Sender: TObject);
var a: array[1..3, 1..3] of char;
CurLine: String;
procedure Proc1(Col: Integer);
var i: Integer;
begin
for i := 1 to 3 do
begin
if Col = 0 then
begin
Memo1.Lines.Add(CurLine);
exit;
end;
CurLine := CurLine + a[i, col];
proc1(Col - 1);
SetLength(CurLine, Length(CurLine) - 1);
end;
end;
begin
CurLine := "";
proc1(3);
end;





עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה





זיכרון: 0.56 MB
זמן: 0.027 c
1-22129
אלכסנדר
2001-12-19 16:04
2002.01.08
כיצד להסיר את ההבהוב של סרגל הגלילה?


4-22462
וויני!
2001-11-01 19:50
2002.01.08
באמצעות BitBlt ו- CreateBitmap


1-22080
דלפימון
2001-12-18 17:11
2002.01.08
כיצד לטעון סמן ממשאב ואז לשמור אותו בדיסק?


3-21977
אמלין ואדים
2001-12-03 20:42
2002.01.08
יצירת בסיס נתונים ב- InterBase


14-22373
pan
2001-11-08 18:34
2002.01.08
פיתוח פרויקט ספציפי כנגד תוכנית התחרות.





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский