Помогите с задачками по VB

[МиХаН[MAFIA]]

Помогите с задачками по VB. Их 4 штуки. Нужно очень ко вторнику. Если даже не получится ко вторнику, можно в любой срок, буду жадать. Помогите пожалуйста! Всем откликнувшимся заранее огромное спасибо!!!

Задача №1
Секретный замок для сейфа состоит из 10 расположенных в ряд ячеек, в которые надо вставить игральные кубики. Но дверь открывается только в том случае, когда в любых трех соседних ячейках сумма точек на передних гранях кубиков равна 10. (Игральный кубик имеет на каждой грани от 1 до 6 точек.) Напишите программу, которая разгадывает код замка при условии, что два кубика уже вставлены в ячейки.

Задача №2
Дана строка и некоторое слово. Напечатать те предложения строки, которые содержат данное слово.

Задача №3
Двумерный массив n ? m содержит некоторые буквы русского алфавита, расположенные в произвольном порядке. Написать программу, проверяющую, можно ли из этих букв составить данное слово S. Каждая буква массива используется не более одного раза.

[keks-n]

Задача №2
Примерно так:

Код: Выделить всё

Dim Instring1 as String, Instring2 as String 'ето входные данные
' Заполнишь сам
Dim n as long, tmpmas() as string
tmpmas=split(string1,".") ' Разбиваем на предложения.
for n =0 to ubound(tmpmas)
if instr(1,tmpmas(n),Instring2) <>0 then msgbox tmpmas(n)
next


[alibek]

tmpmas=split(string1,".") ' Разбиваем на предложения.

А думать не пробовал?
Что этот код сделает с текстом, в котором есть вопросительные или восклицательные предложения? Или в котором есть многоточия?

[keks-n]

Ой...
Ну тогда надо ручками писать, или прогонять Split'ом еще 2 раза(на случай "?" и "!").

[Zer]

А первую пребором не прёт?

[keks-n]

Задача #3

Код: Выделить всё


Dim InString as string,  CharMas (n,m) as string 'Твои данные

dim i as long, i2 as long, CharInStr(255) as long ' таблица встречаемости
for i=0 to n
for i2= 0 to n2
CharInStr(Asc(CharMas(i, i2))) = CharInStr(Asc(CharMas(i, i2))) + 1
next
next
'Заполнили таблицу, теперь для каждого символа указано, сколько его
for i=1 to len(InString)
charinstr(asc(mid(InString,i,1)))=charinstr(asc(mid(InString,i,1)))-1
next
'Все значения должны быть >0
for i =0 to 255
if charinstr(i)<0 then msgbox "Низя!"
next


[GAGArin]

А первую пребором не прёт?

Думаю прет ) Просто рекурсия с отсечениями.
Можно конечно циклами, но если ячеек будет не 10, а например k...

[d3drm]

А первую пребором не прёт?

Думаю прет ) Просто рекурсия с отсечениями.
Можно конечно циклами, но если ячеек будет не 10, а например k...

это точно. n ячеек еще ничего, m тоже может работать будет нормально. Но k ячеек это действительно слишком много...

[GAGArin]

это точно. n ячеек еще ничего, m тоже может работать будет нормально. Но k ячеек это действительно слишком много...

Неверная аналогия, но думаю кому надо тот меня понял.

[GB826]

на 1 вопрос не такое и сложное решение просто надо подумать.

какие ключи подходят?
Например

2262262262
1361361361
1451451451

Заметна периодичность ;о)
1)Дана комбинашка
..2...5...
исходя из периодичности
5.25.25.25

10-(5+2)=3

5325325325

2) Дана другая комбинашка
...34.....

34.34.34.3
=> Ключ = 3433433433
Так что все просто....


ЗЫ А код пишите сами... :о))

[Zer]

Перебирать надо только одну ячейку, соседнюю с введённой. А остальные высчитывать и проверять, чтобы они были больше 1 и меньше 7.

[Zizy]

это точно. n ячеек еще ничего, m тоже может работать будет нормально. Но k ячеек это действительно слишком много...

Вспомнил тут как-то слова препода одного...

Допустим летит n самолетов. Нет, n это мало. k самолетов.
И оба реактивные...

[GAGArin]

Перебирать надо только одну ячейку, соседнюю с введённой. А остальные высчитывать и проверять, чтобы они были больше 1 и меньше 7.

Блин, GB826 вроде дал уже хорошее и правильное решение. Все что нужно рассмотреть это что решение есть, и что дано два неодинаковых кубика (иначе решений больше одного) А перебор как выяснилось и не нужен