автор |
сообщение |
Kurok ![](/img/male.gif)
![](/images/users/4256_0) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
17 февраля 2009 г. 23:59 [нажмите здесь чтобы увидеть текст поста]
|
цитата benommen что сделать с к что б в него можно было записывать? Может перезаписывать массив уже после цыкла фор ту?
цитата Dim X(), n, max, m, i, B(), k
Private Sub Form_Load() n = 10, k=9 ReDim X(n), B(k) X = Array(-100, 12, 24, -3, 25, 0, 34, 56, -13, 7) B = Array(0,0,0,0,0,0,0,0,0) For i = 1 To n List1.List(i — 1) = X(i — 1) Next i End Sub
цитата Private Sub Command2_Click() k=-1 For i = 1 To n If i <> m Then k = k + 1 B(k) = X(i) List2.List(i — 1) = B(k) End If Next i List2.Visible = True Label5.Visible = True End Sub
|
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:13 [нажмите здесь чтобы увидеть текст поста]
|
цитата Kalkin Хотя бы так: поскольку в массиве B будет массив X без максимального элемента, то в самом начале надо объявить B как массив из n-1 элемента.
И как это сделать? k=n-1, но как тогда выкидывать элемент под номером 8, если к уже будет 9?
|
|
|
Kalkin ![](/img/male.gif)
![](/images/users/2643_2) миродержец
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:13 [нажмите здесь чтобы увидеть текст поста]
|
benommen , приведи-ка еще раз код всего, а то я уже запутался в том, что и как ты исправил ![:-)](/img/smiles/smile.gif) В варианте, предложенном Kurok опять баги с индексами, по-моему.
|
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:15 [нажмите здесь чтобы увидеть текст поста]
|
цитата benommen В варианте, предложенном Kurok опять баги с индексами, по-моему.
Ага, я уже в этом все попробовал, один раз даже вышел новый массив только состоящий из одних -13 в количестве 8 штук...
|
|
|
Kalkin ![](/img/male.gif)
![](/images/users/2643_2) миродержец
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:15 [нажмите здесь чтобы увидеть текст поста]
|
цитата benommen И как это сделать? k=n-1, но как тогда выкидывать элемент под номером 8, если к уже будет 9?
Ладно, забей, используй пока вариант Kurok, это непринципиально. Все равно, чувствую, элегантную прогу тебе сделать не удастся ![:-)](/img/smiles/smile.gif)
|
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:15 [нажмите здесь чтобы увидеть текст поста]
|
Вот пока что последний результат: Option Explicit Dim X(), n, max, m, i, B(), k
Private Sub Form_Load() n = 10 ReDim X(n), B(k) X = Array(-100, 12, 24, -3, 25, 0, 34, 56, -13, 7) For i = 1 To n List1.List(i — 1) = X(i — 1) Next i End Sub
Private Sub Command1_Click() max = -10000 For i = 1 To n If X(i — 1) > max Then max = X(i — 1) m = i End If Next i Text1.Text = max Text2.Text = m End Sub
Private Sub Command2_Click() For i = 1 To n If i <> m Then k = k + 1 B(k) = X(i — 1) End If Next i For i = 1 To k List2.List(i — 1) = B(k — 1) Next i List2.Visible = True Label5.Visible = True End Sub
|
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:16 [нажмите здесь чтобы увидеть текст поста]
|
цитата Kalkin Ладно, забей, используй пока вариант Kurok, это непринципиально. Все равно, чувствую, элегантную прогу тебе сделать не удастся
Да хоть какую-нибудь!!! Что б только работала!!! А то у меня еще 5 работ впереди![](/img/smiles/tired.gif)
|
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
|
Kalkin ![](/img/male.gif)
![](/images/users/2643_2) миродержец
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:24 [нажмите здесь чтобы увидеть текст поста]
|
Подобающее определение массива B (как у Kurok хотя бы) опять исчезло. Верни ![:-)](/img/smiles/smile.gif) Задание k=-1, которое тебе Kurok советовал, ты зря убрал. Верни и его
цитата benommen For i = 1 To k List2.List(i — 1) = B(k — 1) Next i
Что ж ты забиваешь-то лист одним числом? Исправь на List2.List(i — 1) = B(i — 1)
|
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:30 [нажмите здесь чтобы увидеть текст поста]
|
Kalkin УРА!!!!!!!!!!!!!!!!!!!!!!!!!!! Немного поекспериментировал с вариантом Kurokб и учтив твои варианты у меня получилось... Вроде,.. Надеюсь...
|
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:31 [нажмите здесь чтобы увидеть текст поста]
|
Вот: Option Explicit Dim X(), n, max, m, i, B(), k
Private Sub Form_Load() n = 10 ReDim X(n), B(k) B = Array(0, 0, 0, 0, 0, 0, 0, 0, 0) X = Array(-100, 12, 24, -3, 25, 0, 34, 56, -13, 7) For i = 1 To n List1.List(i — 1) = X(i — 1) Next i End Sub
Private Sub Command1_Click() max = -10000 For i = 1 To n If X(i — 1) > max Then max = X(i — 1) m = i End If Next i Text1.Text = max Text2.Text = m End Sub
Private Sub Command2_Click() For i = 1 To n If i <> m Then k = k + 1 B(k — 1) = X(i — 1) End If Next i For i = 1 To k List2.List(i — 1) = B(i — 1) Next i List2.Visible = True Label5.Visible = True End Sub
|
|
|
Kalkin ![](/img/male.gif)
![](/images/users/2643_2) миродержец
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif)
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:39 [нажмите здесь чтобы увидеть текст поста]
|
Kalkin Никак не могу загрузить рисунок с результатом Но меня поздравлять не с чем, это вас надо!! Курок прекрасная подсказка с вектором B, да и много других и ты помог своими МНОГОЧИСЛЕННЫМИ подсказками! Можно сказать что это я скорее Вам помогал, а Вы писали ее... Спасибо![:beer:](/img/smiles/beer.gif) ![:beer:](/img/smiles/beer.gif) Столько времени угробить что б оформить программу. Спасибо![](/img/smiles/alc.gif)
|
|
|
Kalkin ![](/img/male.gif)
![](/images/users/2643_2) миродержец
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:43 [нажмите здесь чтобы увидеть текст поста]
|
цитата benommen Но меня поздравлять не с чем, это вас надо!!
Ну меня-то тем более не надо. Курка — возможно Программа-то тривиальна на 500%; с учетом того, что я в общем-то по жизни занимаюсь как раз программированием проблема была не в том, чтобы прогу написать (это дело нескольких минут), а чтобы объяснить тебе, как ее лучше написать и в чем заключаются твои ошибки ![8:-0](/img/smiles/shuffle.gif)
|
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:49 [нажмите здесь чтобы увидеть текст поста]
|
цитата Kalkin Ну меня-то тем более не надо. Курка — возможно
Надо, конечно, тут времени угроблено...
цитата Kalkin Программа-то тривиальна на 500%
Не знаю что значит тривиально, но что легкая, но по написанию...
цитата Kalkin с учетом того, что я в общем-то по жизни занимаюсь как раз программированием проблема была не в том, чтобы прогу написать (это дело нескольких минут), а чтобы объяснить тебе, как ее лучше написать и почему
Ага, плюс мне еще в этом разобратся![;-)](/img/smiles/wink.gif)
|
|
|
Kurok ![](/img/male.gif)
![](/images/users/4256_0) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
|
benommen ![](/img/male.gif)
![](/images/users/7100_6) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
18 февраля 2009 г. 00:58 [нажмите здесь чтобы увидеть текст поста]
|
цитата Kurok Да ладно, не так уж я много сделал. Ошибки всегда проще искать, особенно если не свои
Какие мы все скромные , но все же участвие приняли немалое!!![](/img/smiles/alc.gif)
|
|
|
Черёмуха ![](/img/male.gif)
![](/images/users/10064_1) философ
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
|
Kurok ![](/img/male.gif)
![](/images/users/4256_0) магистр
![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangfilled.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif) ![](/img/rangempty.gif)
|
21 февраля 2009 г. 10:48 [нажмите здесь чтобы увидеть текст поста]
|
цитата Черёмуха Как вызнать у дамы, какие цветы она предпочитает??? Не спрашивая напрямую
дарить каждый раз разные, пока не услышишь "Ой, мои любимые!" ![8-)](/img/smiles/glasses.gif)
|
|
|