घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

नीचे

बल्कि एक गणितीय सवाल ... इसी तरह की शाखाएँ खोजें


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

क्या कोई मुझे तत्व तत्वों से बने सभी संभावित मूल्यों को प्राप्त करने के लिए एल्गोरिथम बताता है (उदाहरण के लिए, 3х3)

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 एमबी
समय: 0.024 c
1-22205
डेनिस प्रोस्किन
2001-12-15 12:46
2002.01.08
QReport - बहुत अधिक डेटा


1-22109
avr555
2001-12-19 17:17
2002.01.08
ग्रिड में कॉम्बोक्स


4-22498
cher_gvf
2001-11-05 20:12
2002.01.08
आपको कैसे पता चलेगा कि ऐसी प्रक्रिया चल रही है या नहीं।


4-22479
Vitas
2001-11-02 21:08
2002.01.08
सिस्टम ट्रे में मेरे कार्यक्रम को कम करने में मदद करें


1-22232
T2
2001-12-16 07:24
2002.01.08
WIN386.SWP





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский