Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
ronya
0 / 0 / 0
Регистрация: 21.12.2014
Сообщений: 29
#1

Для каждого из слов последней строки текста указать, сколько раз оно встречается в этом тексте

18.05.2017, 09:16. Просмотров 721. Ответов 2
Метки нет (Все метки)

Здравствуйте. Помогите, кто может.

Дан текстовый файл. Для каждого из слов последней строки текста указать, сколько раз оно встречается в этом тексте.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2017, 09:16
Ответы с готовыми решениями:

Для каждого символа заданного текста указать, сколько раз он встречается в тексте
Здравствуйт надо написать программу которая может выполнить следующие действия:...

Посчитать общее количество слов и определить, сколько слов в этом тексте состоит из двух символов
1) Заданы: массив наименований продукции и соответствующие ему данные плановой...

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

Вывести максимальный элемент массива и указать, сколько раз он встречается в массиве
Дан одномерный массив размерностью N. Вывести максимальный элемент массива и...

Сколько раз в тексте встречается заданное слово
Сколько раз в тексте встречается заданное слово? Слова разделены пробелами

2
ZfoxAK
505 / 489 / 222
Регистрация: 26.11.2012
Сообщений: 1,929
18.05.2017, 12:37 #2
Лучший ответ Сообщение было отмечено ronya как решение

Решение

Если ничего не напутал можно так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var STFile, STStr:TStringList; i, j, cnt : Integer;  s, z:string;
begin
STFile:=TStringList.Create;
STFile.LoadFromFile('нужный текстовый файл');
STStr:=TStringList.Create;
 for I := 0 to STFile.Count - 1  do
  begin
    S:=STFile.Strings[i];
    STStr.DelimitedText:=s ;
    z:= STStr.Strings[STStr.Count -1 ];
    j:=Length(s);
    StringReplace(S,z,'',[rfIgnoreCase, rfReplaceAll]);
    cnt:=Round((j-Length(S))/ Length(z));
    ListBox1.Items.Add(IntToStr(cnt));
  end;
STStr.Free;
STFile.Free;
end;
1
ronya
0 / 0 / 0
Регистрация: 21.12.2014
Сообщений: 29
21.05.2017, 23:12  [ТС] #3
Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2017, 23:12

Массив: Найти наибольший элемент массива и указать сколько раз он встречается в массиве
Дан двумерный массив размером 13х12. Найти наибольший элемент массива и указать...

Сколько раз данный символ встречается в заданном тексте
Помогите кто чем может :) или дайте наводку где копать:cry: Задача:

Работа со строками. Сколько раз шаблон встречается в тексте.
Определить,сколько раз входит заданное сочетание символов в заданную строку,и...


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

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

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