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

Как из слова образовать новое слово, в котором сначала идут все буквы, стоящие на четных местах, а потом на нечетных местах

13.12.2013, 19:04. Просмотров 1564. Ответов 3
Метки нет (Все метки)

Ввести слово, содержащее четное количество букв. Образовать новое слово, в котором сначала идут все буквы, стоящие на четных местах, а потом на нечетных местах.
На Basic никогда не программировал, подскажите алгоритм действий)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2013, 19:04
Ответы с готовыми решениями:

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

Вывести для массива на экран сначала элементы, стоящие на четных местах, потом — на нечетных
Есть небольшое задание, нужна помощь: 1) Использование условий для изменения элементов массива и...

Поменять местами слова, стоящие на четных местах, со словами, стоящими на нечетных местах
В заданном предложении, составленном из нескольких слов, поменяйте местами слова, стоящие на четных...

Все элементы исходного массива, стоящие на нечетных местах, возвести в квадрат, на четных местах – в куб
как будет код не знаете? Дано два массива байтов, один заполнен числами. Заполнить второй массив...

3
5528 / 1331 / 146
Регистрация: 08.02.2009
Сообщений: 4,052
Записей в блоге: 29
13.12.2013, 22:36 2
Сделал поиском в документе Word, для первого слова; алгоритм прост как 2 пальца, но пока не отточен:
0
Миниатюры
Как из слова образовать новое слово, в котором сначала идут все буквы, стоящие на четных местах, а потом на нечетных местах  
3795 / 1242 / 335
Регистрация: 07.08.2013
Сообщений: 3,118
14.12.2013, 01:13 3
Visual Basic
1
2
3
4
5
6
7
8
9
dim slovo as string
dim lvsoo as string
for i=2 to len(slovo) step 2
lvsoo=lvsoo & mid(slovo,i,1)
next i
for i=1 to len(slovo) step2
lvsoo=lvsoo & mid(slovo,i,1)
next i
msgbox slovo & "   " & lvsoo
1
5528 / 1331 / 146
Регистрация: 08.02.2009
Сообщений: 4,052
Записей в блоге: 29
26.12.2013, 01:43 4
А давайте-ка вспомним про байтовый массив!
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub SuchEasyByteCombinat()
Dim sLoVo As String 'строка для исходного слова
Dim LVsoo As String 'строка для зашифрованного слова
Dim L As String * 1 'строка для получения буквы из её юникода
Dim b() As Byte     'массив байт
Dim k               'счётчик байт
sLoVo = "мОлОкОвОз"
'sLoVo = "ОбОрОнОсПоСоБнОсТь"
b = sLoVo
'пара байт b(0)b(1) стала равна 1-й букве; b(2)b(3) - 2-й букве и т. д.
 
MsgBox "В исходном слове: букв: " & Len(sLoVo) & "; байт: " & LenB(sLoVo)
 
    For k = 2 To LenB(sLoVo) - 2 Step 4 'набираем сначала чётные буквы
        L = ChrW(b(k) + 256 * b(k + 1))
        LVsoo = LVsoo & L
        MsgBox "буква(" & k \ 2 + 1 & ") = " & L
    Next
    
    For k = 0 To LenB(sLoVo) - 2 Step 4 'набираем остальные буквы
        L = ChrW(b(k) + 256 * b(k + 1))
        LVsoo = LVsoo & L
    Next
    
    MsgBox sLoVo & " (исходное слово)" & Chr(13) & LVsoo & " (анаграмма)"
End Sub
Спецзадание для arku: расшифровать.
0
Изображения
 
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2013, 01:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Массивы. Заменить все отрицательные элементы, стоящие на четных местах, максимальным его элементом, а на нечетных местах - минимальным
В заданном массиве В, который содержит 21 элемент, заменить все отрицательные элементы, стоящие на...

Вычеркните из слова все буквы, стоящие на чётных местах
Если в слове X есть буква "а", то вычеркните из этого слова все буквы, стоящие на чётных местах.

Вычеркните из слова Х все буквы, стоящие на четных местах
Вычеркните из слова Х все буквы, стоящие на четных местах string n,...

Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.
Дана матрица натуральных чисел А(N,N). Найти количество строк, в которых все элементы, стоящие на...


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

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

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