В слове "инициатор" после каждой гласной буквы поставить такую же букву - VB
Формулировка задачи:
Помогите пожалуйста разобраться с заданиями.
1.Строка:
В слове ИНИЦИАТОР после каждой гласной буквы поставить такую же букву.
2.Простой двумерный массив:
Из массива А (n) создать массив В (n), в котором сначала расположены нулевые элементы массива, а затем положительные и отрицательные.
3.Усложнённый двумерный массив:
Сформировать матрицу, каждый элемент которой представляет собой дробную часть соответствующего элемента заданной матрицы A (n, m).
Заранее благодарю.
Решение задачи: «В слове "инициатор" после каждой гласной буквы поставить такую же букву»
textual
Листинг программы
- Dim f&, s$, s1$, s2$
- s = "ИНИЦИАТОР"
- For f = 1 To Len(s)
- s1 = Mid(s, f, 1)
- If s1 Like "[аоуыэяёюиеАОУЫЭЯЁЮИЕ]" Then s1 = s1 & s1
- s2 = s2 & s1
- Next
- MsgBox s2
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
