Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Losya
0 / 0 / 0
Регистрация: 06.12.2015
Сообщений: 8
1

Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м»

06.12.2015, 14:32. Просмотров 496. Ответов 5
Метки нет (Все метки)

Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м».
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2015, 14:32
Ответы с готовыми решениями:

Дана строка. Вывести на экран слова, внутри которых имеется хотя бы одна буква, с которой слово начинается. [Turbo prolog][есть решение]
predicates ...

Дана строка. Указать те слова в которых есть хотя бы одна буква "k"
Помогите решить задачу: Дана строка. Указать те слова в которых есть хотя бы одна буква "k". Я...

Дана строка. Указать те слова в которых есть хотя бы одна буква "k"
Помогите решить задачу: Дана строка. Указать те слова в которых есть хотя бы одна буква "k". Я...

Найти и вывести все слова текста, в которых есть хотя бы одна цифра
Дана последовательность символов. Найти и вывести все слова текста, в которых есть хотя бы одна...

Из файла удалить слова, в которых содержится хотя бы одна буква предпоследней строки
Доброго времени суток! Подскажите как на питоне v3.3.2 сделать скрипт задача которого в следующем:...

5
Апострофф
Заблокирован
06.12.2015, 15:14 2
Losya, ссылочку на словарь (или просто набор слов, у некоторых из которых есть хотя бы одна буква «а», стоящая рядом с «м») не мешало бы приложить. Не хоть какую-то видимость работы показать...
0
Losya
0 / 0 / 0
Регистрация: 06.12.2015
Сообщений: 8
06.12.2015, 15:58  [ТС] 3
Мамон
папа
мама
Пижама

Добавлено через 9 минут
Апострофф,
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub in_1()
Dim mas() As String, i%, j%, z%
i = 0
Do While Лист1.Range("A" & i + 1).Text <> ""
i = i + 1
s = Лист1.Range("A" & i).Text
ReDim Preserve mas(1 To i)
mas(i) = s
Loop
k = 0
b$ = ""
j = 1
For j = 1 To Len(mas(j))
If (Mid(mas(j), z, 1) = "а") And (Mid(mas(j), z + 1, 1) = "м") Then b$ = mas(j)
Cells(j, 2) = b$
b$ = ""
Next j
End Sub
ошибка : Run-time error '5':
Invalid procedure call or argument
Подскажите где ошибаюсь?
0
Апострофф
Заблокирован
06.12.2015, 16:37 4
Цитата Сообщение от Losya Посмотреть сообщение
For j = 1 To Len(mas(j))
If (Mid(mas(j), z, 1) = "а") And (Mid(mas(j), z + 1, 1) = "м") Then b$ = mas(j)
Visual Basic
1
2
For j = 1 To i ' Len(mas(j))
If InStr(1, mas(j), "ма", vbTextCompare) > 0 Then b$ = mas(j)
Добавлено через 4 минуты
В слове ампер буква «а» стоит рядом с «м»?
0
Казанский
14894 / 6300 / 1716
Регистрация: 24.09.2011
Сообщений: 9,977
06.12.2015, 21:39 5
Losya,
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub in_1()
Dim i&, j&, s$
  Do While Лист1.Range("A" & i + 1).Text <> ""
    i = i + 1
    s = Cells(i, 1).Text
    If InStr(1, s, "ма", vbTextCompare) > 0 Or InStr(1, s, "ам", vbTextCompare) > 0 Then
      j = j + 1
      Cells(j, 2) = s
    End If
  Loop
End Sub
0
Losya
0 / 0 / 0
Регистрация: 06.12.2015
Сообщений: 8
09.12.2015, 21:50  [ТС] 6
Казанский, помогите сделать подпрограмму-процедуры?
PureBasic
1
2
3
4
5
6
7
8
9
10
11
Sub in_1()
Dim i&, j&, s$
  Do While Лист1.Range("A" & i + 1).Text <> ""
    i = i + 1
    s = Cells(i, 1).Text
    If InStr(1, s, "ма", vbTextCompare) > 0 Or InStr(1, s, "ам", vbTextCompare) > 0 Then
      j = j + 1
      Cells(j, 2) = s
    End If
  Loop
End Sub
0
09.12.2015, 21:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2015, 21:50

Дана строка, состоящая из слов. Удалить из строки все слова, в которых хотя бы одна буква встречается дважды
Delphi 6. Нужно с визуализацией, вывод результата в форму.

В заданном тексте найти слова, в которых есть хотя бы одна или две буквы «н» (строки в стиле Си)
Ввести строку. На печать выдать слова, в которых есть хотя бы одна или две буквы «н».

Вывести все слова нечетной длины, в которых есть буква Т
Добрый вечер. Просьба помочь написать программу к следуйщим задачам: 1)Вывести все слова нечетной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru