Тема «Вопросы о разном или повод пофлудить!»

Вы здесь: Форумы fantlab.ru > Форум «Трёп на разные темы» > Тема «Вопросы о разном или повод пофлудить!»

Вопросы о разном или повод пофлудить!

Страницы: 1 2 3...82 83 84 85 86...1451 1452 1453 🔍 поиск написать сообщение

автор

сообщение

магистр

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

магистр

18 февраля 2009 г. 00:08

цитировать | [ ]

Kurok Сделал как вы сказали только выбивает ошибку...

магистр

18 февраля 2009 г. 00:13

цитировать | [ ]

цитата Kalkin
Хотя бы так: поскольку в массиве B будет массив X без максимального элемента, то в самом начале надо объявить B как массив из n-1 элемента.

И как это сделать? k=n-1, но как тогда выкидывать элемент под номером 8, если к уже будет 9?

миродержец

18 февраля 2009 г. 00:13

цитировать | [ ]

benommen , приведи-ка еще раз код всего, а то я уже запутался в том, что и как ты исправил :-)

В варианте, предложенном Kurok опять баги с индексами, по-моему.

магистр

18 февраля 2009 г. 00:15

цитировать | [ ]

цитата benommen
В варианте, предложенном Kurok опять баги с индексами, по-моему.

Ага, я уже в этом все попробовал, один раз даже вышел новый массив :-[

только состоящий из одних -13 в количестве 8 штук...

миродержец

18 февраля 2009 г. 00:15

цитировать | [ ]

цитата benommen
И как это сделать? k=n-1, но как тогда выкидывать элемент под номером 8, если к уже будет 9?

Ладно, забей, используй пока вариант Kurok, это непринципиально. Все равно, чувствую, элегантную прогу тебе сделать не удастся :-)

магистр

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

магистр

18 февраля 2009 г. 00:16

цитировать | [ ]

цитата Kalkin
Ладно, забей, используй пока вариант Kurok, это непринципиально. Все равно, чувствую, элегантную прогу тебе сделать не удастся

Да хоть какую-нибудь!!! Что б только работала!!! А то у меня еще 5 работ впереди

магистр

18 февраля 2009 г. 00:17

цитировать | [ ]

Так что делать как Курок сказал?

миродержец

18 февраля 2009 г. 00:24

цитировать | [ ]

Подобающее определение массива B (как у Kurok хотя бы) опять исчезло. Верни :-)

Задание 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)

магистр

18 февраля 2009 г. 00:30

цитировать | [ ]

Kalkin УРА!!!!!!!!!!!!!!!!!!!!!!!!!!! Немного поекспериментировал с вариантом Kurokб и учтив твои варианты у меня получилось... Вроде,.. Надеюсь...

магистр

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

миродержец

18 февраля 2009 г. 00:35

цитировать | [ ]

benommen , поздравляю! Надеюсь, теперь ты немного разобрался с индексами :-)

магистр

18 февраля 2009 г. 00:39

цитировать | [ ]

Kalkin Никак не могу загрузить рисунок с результатом :-(

Но меня поздравлять не с чем, это вас надо!!

Курок прекрасная подсказка с вектором B, да и много других и ты помог своими МНОГОЧИСЛЕННЫМИ подсказками! Можно сказать что это я скорее Вам помогал, а Вы писали ее... Спасибо :beer:

Столько времени угробить что б оформить программу. Спасибо

миродержец

18 февраля 2009 г. 00:43

цитировать | [ ]

цитата benommen
Но меня поздравлять не с чем, это вас надо!!

Ну меня-то тем более не надо. Курка — возможно ;-)

Программа-то тривиальна на 500%; с учетом того, что я в общем-то по жизни занимаюсь как раз программированием проблема была не в том, чтобы прогу написать (это дело нескольких минут), а чтобы объяснить тебе, как ее лучше написать и в чем заключаются твои ошибки 8:-0

магистр

18 февраля 2009 г. 00:49

цитировать | [ ]

цитата Kalkin
Ну меня-то тем более не надо. Курка — возможно

Надо, конечно, тут времени угроблено...

цитата Kalkin
Программа-то тривиальна на 500%

Не знаю что значит тривиально, но что легкая, но по написанию...

цитата Kalkin
с учетом того, что я в общем-то по жизни занимаюсь как раз программированием проблема была не в том, чтобы прогу написать (это дело нескольких минут), а чтобы объяснить тебе, как ее лучше написать и почему

Ага, плюс мне еще в этом разобратся ;-)