Форум программистов, компьютерный форум CyberForum.ru

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Semena1
0 / 0 / 0
Регистрация: 26.12.2016
Сообщений: 6
#1

Даны строки S и S0. Найти кол-во вхождений строки S0 в строку S - Visual Basic

26.12.2016, 18:53. Просмотров 158. Ответов 2
Метки нет (Все метки)

Даны строки S и S0. Найти кол-во вхождений строки S0 в строку S
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2016, 18:53     Даны строки S и S0. Найти кол-во вхождений строки S0 в строку S
Посмотрите здесь:

В заданном массиве строк найти строку с максимальным количеством вхождений заданного символа Visual Basic
Подсчет количества вхождений подстроки в строку Visual Basic
Visual Basic Как записывать на новую строку в файл, что бы не удалялись уже существующие строки?
Как изменить цвет строки(фона строки) в DataGrid Visual Basic
Visual Basic Как при добавлении новой строки в ListView изменить высоту строки?
Visual Basic Удалить первые k слов из строки, сдвинув на их место последующие слова строки
Как найти число вхождений в строку заданного символа Visual Basic
Даны два файла, получить третий, содержащий чётные строки первого файла и нечётные строки второго файла Visual Basic
Даны две строки произвольного текста Visual Basic
Visual Basic Наименьший элемент каждой строки матрицы заменить наибольшим элементом предыдущей строки
Наименьший элемент каждой строки прямоугольной таблицы, замените наибольшим элементом предыдущей строки Visual Basic
Вставить после каждой четной строки Первую строку Visual Basic

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Semena1
0 / 0 / 0
Регистрация: 26.12.2016
Сообщений: 6
28.12.2016, 11:12  [ТС]     Даны строки S и S0. Найти кол-во вхождений строки S0 в строку S #2
текст программы на паскале
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program qq;
Var s,s0:string;
    k:byte;
Begin
    readln(s);
    readln(s0);
    While Pos(s0,s)>0 do
    Begin
      inc(k);
      Delete(s,Pos(s0,s),Length(s0));
    End;
    writeln(k);
End.
Shersh
Заблокирован
28.12.2016, 12:22     Даны строки S и S0. Найти кол-во вхождений строки S0 в строку S #3
Сообщение было отмечено автором темы, экспертом или модератором как ответ
Visual Basic
1
msgbox ubound(split(S,S0))
или
Visual Basic
1
msgbox (len(s)-len(replace(s,s0,"")))/len(s0)
Yandex
Объявления
28.12.2016, 12:22     Даны строки S и S0. Найти кол-во вхождений строки S0 в строку S
Ответ Создать тему
Опции темы

Текущее время: 13:09. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru