Пример выполнения задачи № 3 «Строки»
Постановка задачи
Дана строка. Определить, сколько раз в строке встречается заданный символ и указать места расположения (позиции) этого символа в строке.
Схема алгоритма
Рисунок 7. Схема алгоритма
Исходный текст программы
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
Str1 = Text1
Char = Text2
k = 0
For i = 1 To Len(Str1)
If Mid(Str1, i, 1) = Char Then
k = k + 1
Picture1.Print i;
End If
Next
Picture2.Print k
End Sub
Private Sub Command2_Click()
Task4.Show
End Sub
Private Sub Command3_Click()
End
End Sub
Экранная форма программы с примером решения задачи
Рисунок 8. Экранная форма программы
озонотерапия
Пользователь, раз уж ты добрался до этой строки, ты нашёл тут что-то интересное или полезное для себя. Надеюсь, ты просматривал сайт в браузере Firefox, который один правильно отражает формулы, встречающиеся на страницах. Если тебе понравился контент, помоги сайту материально. Отключи, пожалуйста, блокираторы рекламы и нажми на пару баннеров вверху страницы. Это тебе ничего не будет стоить, увидишь ты только то, что уже искал или ищешь, а сайту ты поможешь оставаться на плаву.