Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Ավելի շուտ մաթեմատիկական հարց ... Գտնել նմանատիպ մասնաճյուղեր


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

Ինչ-որ մեկը ինձ ասում է զանգվածային էլեմենտներից բաղկացած բոլոր հնարավոր արժեքների ալգորիթմը (օրինակ ՝ 3х3).

qwe
ասդ
zxc

այսինքն, արդյունքը կարող է լինել առաջին տողի համար.
Qwe
քվդ
qwc
քս
qsd
qsc

եւ այլն ...
ալգորիթմը ինքնին կարևոր է, քանի որ զանգվածի արժեքները կարող են լինել ինչպես տառերով, այնպես էլ ամբողջ բառերով

Thanks in advance.



Виктор Щербаков   (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]

Չը հավանում է այդպիսին (նա շտապորեն գրել է):
Զանգվածը ինքնին լցված է ձեզնից ձեր պահանջներով:

կարգը TForm1.Button2 սեղմեք (Ուղարկող ՝ TObject); var a: զանգված [1..3, 1..3] of char; CurLine: լարային; ընթացակարգը Proc1 (Col: interes); var i: Հետաքրքրություն; սկսվում է համար i: = 1- ից 3 անել սկսվում է եթե Col = 0 ապա սկսվում է Memo1.Lines.Add (CurLine); ելք; վերջ; CurLine: = CurLine + a [i, col]; proc1 (Col - 1); SetL length (CurLine, երկարություն (CurLine) - 1); վերջ; վերջ; սկսվում է CurLine: = ""; proc1 (3); վերջ;




Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Up





Հիշողություն `0.56 ՄԲ
Ժամանակը `0.036 գ
7-22435
sssss
2001-09-23 14:15
2002.01.08
MASTERYYY !!! ԿՅԱՆՔԻ ԵՎ ՄԱՀՎԱՆ ՀԱՐՑԸ !!!!


1-22013
Նրբագեղ
2001-12-17 12:53
2002.01.08
Run exe- ից ընթացիկ ծրագրից:


7-22433
igor_prg
2001-09-25 21:28
2002.01.08
Ինչպես գրանցել դասարան ???


4-22456
Ռեդմաքս
2001-11-01 11:10
2002.01.08
COM- ն դեմ է NetMeeting- ին


3-21959
Նիկոլաև Կոնստանտին
2001-12-04 20:54
2002.01.08
Սխալ TTable- ի ակտիվացման մեջ ???





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский