Сообщения посетителя benommen

Сообщения и комментарии посетителя

ФорумыНовостиАвт. колонки

Сообщения посетителя benommen на форуме (всего: 6988 шт.)

Страницы: 1 2 3 4 5 ... 105 106 107 108 109 110 111 ... 136 137 138 139 140

Сортировка: по дате по форумам по темам

Спорт > Конкурс прогнозистов > к сообщению

Отправлено 19 февраля 2009 г. 22:29

chimera Если можна пожалуйста на примере обьясните ^_^

Спорт > Конкурс прогнозистов > к сообщению

Отправлено 19 февраля 2009 г. 22:29

chimera О у меня есть вопрос: Предугадывать счет матча? 1 и 2 матча, а потом еще и того кто пройдет в следующий тур?

Кино > Что посмотреть? > к сообщению

Отправлено 19 февраля 2009 г. 22:27

цитата Клюква
Ну ничего в этом фильме "философского и умного" нет, но поржать, однозначно, можно!

Про это я сразу сказал, я его сегодня 2 раза посмотрел, 1 раз сам, а потом еще раз с другом — оба раза очень сильно смеялся и настроение поднималось, хотя ничего "умного и философского" 100% нет — так, для поднятия настроения

Из этой же серии "Сидни Уайт" тоже такого же типа фильм только еще смешнее...

Кино > Что посмотреть? > к сообщению

Отправлено 19 февраля 2009 г. 22:24

цитата Клюква
"Знакомтесь, Джо Блэк", — я, правда, не смотрела, но все говорят, что фильм хороший. Если не ошибаюсь, то там играет Брэд Питт, ноя точно не уверенна.

О да!! Одна из самых любимых мелодрам(?)/драм/мистики, И Брэд Питт там очень классно сыграл, мне очень понравилось :cool!:

Кино > Что посмотреть? > к сообщению

Отправлено 19 февраля 2009 г. 22:22

цитата armitura
benommen Вам письмо, Неспящие в Сиэтле, Когда Гарри встретил Салли, Город ангелов, Кейт и Лео — выбирай любой))

Да, я хочу посмотреть спасибо Вам и другим у меня уже динный список, только скачать не вижу где...
Из того что посмотрел довольно интересный "Сдохни Джон Таккер" — не боевик, американская туповатенькая комедия с мелодрамой, хоть конец и немного натянут, но в целом приятное, тупое, раслабляющее видео...

Кино > Анджелина Джоли (актриса) > к сообщению

Отправлено 19 февраля 2009 г. 22:18

"Лара Крофт", хорошо сыграла в "Александр", ну и "Мистер и миссис Смит"- самый лучший фильм с ее участвием... В Беовульфе — самая худшая роль, ИМХО. Другие фильмы вроде не смотрел...

Спорт > Футбол. Еврокубки. Сезон 2008/09 > к сообщению

Отправлено 19 февраля 2009 г. 00:57

Кстати, сегодня мы подбросили пару баллов в рейтинг стран, еще немного и Португалию догоним, а потом и перегоним, плюс 1 команда в Кубок УЭФА нам не помешает!! Шахтер — давай!!!

Спорт > Футбол. Еврокубки. Сезон 2008/09 > к сообщению

Отправлено 19 февраля 2009 г. 00:53

цитата alex2
Донецк.

Даеш 5-0 Тоттенхему! :cool!:

Спорт > Футбол. Еврокубки. Сезон 2008/09 > к сообщению

Отправлено 19 февраля 2009 г. 00:36

Поздравляю Металлист с победой! Хорошая игра!! Желаю в Харькове выступить еще лучше... :cool!:

Компьютерные игры > Лучшая игра 2007 года > к сообщению

Отправлено 18 февраля 2009 г. 23:49

Ведьмак, слышал много лестных отзывов, а вот другие не видел, кроме Ворлд ин конфликт — ужасная игрушка=(

Спорт > Футбол. Еврокубки. Сезон 2008/09 > к сообщению

Отправлено 18 февраля 2009 г. 23:36

Металлист!!!

Молодца!! Красавец, без напряга, на легке побеждает Сампдорию. Красивая игра. Снова и снова поражаюсь как команда поднялась за последний год...

Спорт > Футбол. Еврокубки. Сезон 2008/09 > к сообщению

Отправлено 18 февраля 2009 г. 22:13

Как мне показалось Динамо играло отвратительно, теряли мяч, еле цеплялись за мяч, продирались к штрафной, но в защите все же нормально играли, мяч от наших игроков отлетал на пол метра, может просто не погода? Вязкий футбол получился... Единственное украшение матча — судья, красиво и интересно играть и думать кому дальше судья просто так карточку сунет, а когда просмотрит момент, когда надо давать... :-(

Вся надежда что встречную игру проведем лучше...

Спорт > Футбол. Еврокубки. Сезон 2008/09 > к сообщению

Отправлено 18 февраля 2009 г. 10:31

Да я тоже жду с нетерпением, сразу три украинских команд будут боротся за путевки, надеюсь они все пройдут!!

Трёп на разные темы > Какая скорость у вашего Интернет-соединения? > к сообщению

Отправлено 18 февраля 2009 г. 01:47

2 мбит/сек за 250 рублей, анлимит...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 18 февраля 2009 г. 00:58

цитата Kurok
Да ладно, не так уж я много сделал. Ошибки всегда проще искать, особенно если не свои

Какие мы все скромные :-)))

, но все же участвие приняли немалое!!

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 18 февраля 2009 г. 00:49

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

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

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

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

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

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

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 18 февраля 2009 г. 00:39

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

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

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

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

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 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:30

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

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 18 февраля 2009 г. 00:17

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

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 18 февраля 2009 г. 00:16

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

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

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 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:15

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

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

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

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 18 февраля 2009 г. 00:13

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

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

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 18 февраля 2009 г. 00:08

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

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 23:53

И что сделать с к что б в него можно было записывать? Может перезаписывать массив уже после цыкла фор ту?

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 23:52

цитата Kalkin
Выделение памяти под элементы массива происходит динамически, в процессе выполнения программы. Впрочем, у тебя все равно массив обычный, статический. Тогда понятно, что он не работает — вначале k = 0 и ты создал пустой массив. Потом ты в него пытаешься что-то записать, естественно, получается бред, так как записывать инфу некуда.

Хм. логично...

цитата Kurok
benommen лучше попробовать K обнулять перед циклом (а возможно даже присвоить -1)

Лучше не надо Kalkin уже обьяснил почему...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 23:44

Kalkin Kurok С максимумом кувыркаться больше не надо, все правильно и все работает, плюс м равняется 8 как и должно...

цитата Kalkin
Но массив B у тебя ведь все равно не динамический?

Не понял, что значит динамический?

цитата Kurok
какой то он сложный, а это не есть гуд для программы.

Главное для программы — что б она работала, а какая она не важно, я на контрольной по экселю накатал такую програмку по вычислению процентов в банке по интересным депозитам за 1,5 часа

, но она работала и мне поставили 5 баллов. Притом она не сложная — 1 элемент ставим на 1 элемент нового списка, 2 на 2, 3 на 3... 8 пропускаем, 9 на место 8, 10 на 9. — все просто...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 23:39

цитата Kalkin
1) вероятно, max = X(i-1) имелось в виду.
2) смысл следующей после этого строчки неясен. Вероятно, ты имел в виду m=i-1?

Поменял, все осталось прежним, точнее наврное более правильным...

цитата Kalkin
С B(k) вообще что-то странное. Где у тебя первый раз определяется k?

К по умолчанию равно нулю... С В(к) не так трудно, просто мы выкидываем 8 элемент и заганяем новый массив с 9 элемантами...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 23:34

цитата Kurok
начальное k не задано.

Оно автоматом равно 0

цитата Kurok
По-моему надо в этом:

Думаю мой 2 вариант лучше...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 23:24

Если что поясню, мы выбираем не элементы m и создаем новый массив без элемента m и кидаем его в новый лист2, который вконце становится видимым, отсюда и 2 последние строчки...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 23:21

Решил поменять способ выкидывания числа, смотрите теперь так:
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)
          m = i + 1
       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)
          List2.List(i — 1) = B(k)
       End If
   Next i
List2.Visible = True
Label5.Visible = True
End Sub
Пишет что выделенное ошибка...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 23:03

Эти позиции полный дурдом... Не могли с 1 НАЧИНАТЬ!

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 23:02

Kurok Попробовал — не подходит... Смысл в том что в нормальном положении будет начинаться с восьмого элемента и 9 элемент заменит 8 и станет 8, а 10 заменит 9 и станет 9...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 22:51

Так +1 к тексту 2 добавил, теперь все идет, только теперь надо разобратся с выкидыванием, поможете?

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 22:49

цитата Kurok
Если цикл с 0, то он как раз 7-й

Это что тогда писать +1 к порядковому номеру?

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 22:48

цитата Kurok
For i = m To n — 1
X(i) = X(m + 1)
Next i
n = n — 1
End Sub

а m не должно в цикле приращиваться?

Нет

А тут выходит что оно с каждым разом растет?

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 22:47

цитата benommen
X = Array(-100, 12, 24, -3, 25, 0, 34, 56, -13, 7)

56 максимум, 8 в списке, после его выкидывания должен быть 25 и 5...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 22:45

Kalkin Ну а тогда почему в ответе правильный максимум, но порядковый номер его не 7, а 8, а выбивает 7!

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 22:36

Kalkin теперь я еще больше запутался... Сделал как Вы сказали — зашло o_O

Смотрю результат максимум правильный, но порядковый номер теперь не 8, каким должен быть, а 7(х-1

), притом дальше тоже 0шибка, нажимаю выкинуть из списка 56, нажимаю на результат и получаю -13 мас — что есть не правильным $%-\$

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 22:32

Kalkin Смотрим
i=0
List1.List(0)=X(1) — то есть первый элемент массива Х будет 0 элементом массива Лист 1... Сейчас попробую как ты сказал — на всякий случай...

Наука и технологии > Компьютерные вопросы. Любые > к сообщению

Отправлено 17 февраля 2009 г. 22:27

На всякий случай спрошу и здесь... Кто может помочь с Бэйсиком :-(

Задание: Дан масcив Х = {-100;12;24;-3;25;0;34;56;13;7}, среди этих елементов найти максимальный элемент и узнать его номер, потом этот элемент выкинуть из списка.
Вот программа:

Option Explicit
Dim X(), n, i, max, m — обьявление переменных

Private Sub Form_Load() — загрузка формы, запись массива в лист1 на форме...
n = 10
ReDim X(n)
X = Array(-100, 12, 24, -3, 25, 0, 34, 56, -13, 7)
   For i = 1 To n
     List1.List(i — 1) = X(i)
   Next i
End Sub

Private Sub Command1_Click() — загрузка кнопки поиска максимального значения
max = -1000000
   For i = 1 To n
       If X(i) > max Then
          max = X(i)
          m = i
       End If
   Next i
Text1.Text = max
Text2.Text = m
End Sub

Private Sub Command2_Click() — загрузка выкидания максимального числа способом ссужения списка.
For i = m To n — 1
   X(i) = X(m + 1)
Next i
n = n — 1
End Sub

При окончании программы выбивает ошибку run-time error '9': Subscript out of range и как-бы указывает на выделенное место тела программы...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 22:25

Kalkin с нуля, но я вроде ж там и написал что List1.List(i-1) = X(i) — то есть 1 элемент массива Х будет 0 элементов Листе1. Правда если у Вас есть предложения как переписать это по-вашему примеру напишите пожалучста, я попробую, авось поможет...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 22:14

wayfarer Так на Паскале именно что легче!! Я там пару минут мучался, а тут $%-\$ Бейсик хоть с одной стороны лучше, но с другой на порядок запутанней...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 22:11

albori Жаль :-(

Может кто-то еще знает? Не хочется преподу с ошибкой нести, притом не уверен что я там не маразм написал

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 21:58

Задание: Дан масcив Х = {-100;12;24;-3;25;0;34;56;13;7}, среди этих елементов найти максимальный элемент и узнать его номер, потом этот элемент выкинуть из списка.
Вот программа:

Option Explicit
Dim X(), n, i, max, m — обьявление переменных

Private Sub Form_Load() — загрузка формы, запись массива в лист1 на форме...
n = 10
ReDim X(n)
X = Array(-100, 12, 24, -3, 25, 0, 34, 56, -13, 7)
   For i = 1 To n
      List1.List(i — 1) = X(i)
   Next i
End Sub

Private Sub Command1_Click() — загрузка кнопки поиска максимального значения
max = -1000000
   For i = 1 To n
       If X(i) > max Then
          max = X(i)
          m = i
       End If
   Next i
Text1.Text = max
Text2.Text = m + 1
End Sub

Private Sub Command2_Click() — загрузка выкидания максимального числа способом ссужения списка.
For i = m To n — 1
   X(i) = X(m + 1)
Next i
n = n — 1
End Sub

При окончании программы выбивает ошибку run-time error '9': Subscript out of range и как-бы указывает на выделенное место тела программы...

Трёп на разные темы > Вопросы о разном или повод пофлудить! > к сообщению

Отправлено 17 февраля 2009 г. 19:22

Кто-то знает Бейсик? Хоть немного?

Кино > Аманда Байнс (актриса) > к сообщению

Отправлено 17 февраля 2009 г. 17:25

цитата Марианна
Я несколько серий смотрела.

И как?

Кино > Аманда Байнс (актриса) > к сообщению

Отправлено 17 февраля 2009 г. 17:12

Кстати, на этом фан-сайте есть инфа по сериалу с Амандой, конечно вопрос не логичный — но может КТО-ТО видел?

Кино > Аманда Байнс (актриса) > к сообщению

Отправлено 17 февраля 2009 г. 17:02

Странно, на фан-клубе Аманды Байнс http://amandalaurabynes.narod.ru/ написано что она в 2008 году снялась в фильме "Живое доказательство"( Хм. Драма и биопик

), а на кинопоиске этого фильма нету :-(

Страницы: 1 2 3 4 5 ... 105 106 107 108 109 110 111 ... 136 137 138 139 140