בית
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.024 c
3-21929
@ אנדרו
2001-12-04 11:38
2002.01.08
שלום לכולם! אני עושה יומן. איפה המשימה ....


1-22250
דמיטרי ד.
2001-12-17 13:28
2002.01.08
אלא שאלה מתמטית ...


3-21956
סבסטיאנוב איגור
2001-12-05 17:56
2002.01.08
בצע באופן תכנותי את הכיבוי המיידי


1-22077
אמנות
2001-12-18 17:19
2002.01.08
שאלה ל pascalshchik ???


1-22176
Serg5
2001-12-20 14:57
2002.01.08
שוב, הבעיה בטקסט: אני מציג את Image1.Canvas.Text Out, אך מתחת לטקסט עצמו יש מסגרת לבנה. האם זה אפשרי, אם לא מוסר (רק כדי להטיל אותיות), אז לפחות להפוך את העגול השחור לשחור.





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