Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/2: Рейтинг темы: голосов - 2, средняя оценка - 5.00
misha000
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 6
1

Написать процедуру-функцию, которая должна добавить исходный символ в уже имеющуюся строку

21.03.2015, 20:55. Просмотров 461. Ответов 2
Метки нет (Все метки)

Всем добрый вечер. Попытался написать процедуру-функцию, которая должна добавить исходный символ в уже имеющуюся строку. Но бейсик выводит без добавления туже строку, которая и была... Знаю, что процедура, которую я написал, должна удалять символ, но она тоже не работает. Помогите разобраться. Заранее спасибо!

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
 Function Povt(ByVal str2 As String, ByVal simvol As Char) As String
     
        Dim i As Byte
        Dim x As String
        x = CStr(Len(str2))
        For i = 1 To CByte((x))
            If Mid(str2, i, 1) = simvol Then
                str2 = str2.Substring(1, i - 1) + str2.Substring(i + 1, CInt(x))
            End If
        Next
        Return str2
    End Function
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2015, 20:55
Ответы с готовыми решениями:

Написать функцию которая будет умножать любую строку на уже заданную матрицу
Написать функцию которая будет умножать любую строку на уже заданную матрицу

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

Написать функцию, которая должна выдать длину той строки, которая короче
Напишите функцию с двумя строковыми параметрами. Функция должна выдать длину той строки, которая...

Написать функцию, которая должна выдать длину той строки, которая короче
Напишите функцию с двумя строковыми параметрами. Функция должна выдать длину той строки, которая...

SQLite получить все строки из БД и добавить их в уже имеющуюся DataGridView
Предположим на форму уже имеется DGV настроенная как надо, вот и вопрос возникает , как иначе...

2
chumich
1485 / 847 / 280
Регистрация: 20.12.2014
Сообщений: 2,164
22.03.2015, 01:18 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'добавление символа
Function Povt(ByVal str2 As String, ByVal simvol As String) As String   
      For i = 1 To Len(str2)
         If Mid(str2, i, 1) = simvol Then
            str2 = str2 + simvol
         End If
      Next i
      Return str2
End Function
'удаление символа
Function Povt(ByVal str2 As String, ByVal simvol As String) As String   
      For i = 1 To Len(str2)
         If Mid(str2, i, 1) = simvol Then
            str2 = Mid(str2, 1, i - 1) + Mid(str2, i + 1, Len(str2) - i)
         End If
      Next i
      Return str2
End Function
1
misha000
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 6
22.03.2015, 12:36  [ТС] 3
Спасибо большое!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2015, 12:36

Создать функцию, которая на вход получает строку символов и один символ, функция печатает те слова строки, в которых встречается этот символ.
Здраствуйте, вы не могли б мне помоч, у меня проблема з задачей, в коде постоянно выдаёт ошыбки на...

Программа вызывает процедуру, которая выводит строку, символ или число в соответствии с вариантом
Программа вызывает процедуру, которая выводит строку, символ или число в соответствии с вариантом....

Написать функцию, которая должна выводить число в текстовом варианте
Написать функцию, какая принимает число от 1 до 99. Функция должна выводить число в текстовом...


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

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

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