Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

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

Определить, сколько раз в заданной строке встречается заданное слово - Delphi

27.02.2016, 22:13. Просмотров 568. Ответов 6
Метки нет (Все метки)

Определить, сколько раз в заданной строке встречается заданное слово. Строка и слово вводятся пользователем.

код Delphi
Пожалуйста)

Добавлено через 3 часа 19 минут
Помогите пожалуйста с решением данной задачи. Очень очень надо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2016, 22:13
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить, сколько раз в заданной строке встречается заданное слово (Delphi):

Определить сколь раз в строке встречается заданное слово - Delphi
Определить сколь раз в строке встречается заданное слово.

Определить, сколько раз в строке встречается данное слово - Delphi
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var s,sl:string; k,i:integer; begin write('введите...

Определить, сколько раз встречается в строке самое длинное слово - Delphi
Дана Строка, содержащая текст на русском языке. Определить, сколько раз встречается в ней самое длинное слово,и вывести это слово.

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

Определить, сколько раз в тексте встречается самое короткое слово - Delphi
ЛЮДИ HELP!!!!!!!!!!!! ПОМОГИТЕ сделать задачу в DELPHI зачет через 2 дня! pliz!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Дан...

В тексте на русском языке определить сколько раз встречается самое короткое слово - Delphi
Помогите решить задачу( тема:строки) Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово. ...

6
D1973
Модератор
2311 / 1687 / 658
Регистрация: 21.01.2014
Сообщений: 6,585
Записей в блоге: 1
Завершенные тесты: 1
28.02.2016, 08:37 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var L        : TStringList;
    i, Count : integer;
begin
 L := TStringList.Create;
 Count := 0;
 L.CommaText := Edit1.Text;
 for i := 0 to L.Count - 1 do
  if L.Strings[i] = Trim(Edit2.Text) then inc(Count);
 Label3.Caption := Format('Cтрока: "%s" '#13'Cлово: "%s"'#13'Количество включений: %d',[Edit1.Text, Edit2.Text, Count]);
 L.Free;
end;
1
Миниатюры
Определить, сколько раз в заданной строке встречается заданное слово  
Mosak
0 / 0 / 0
Регистрация: 30.11.2015
Сообщений: 9
28.02.2016, 08:38  [ТС] #3
Помогите, пожалуйста)
0
Puporev
Модератор
52402 / 40249 / 13581
Регистрация: 18.05.2008
Сообщений: 93,048
28.02.2016, 08:51 #4
Цитата Сообщение от Mosak Посмотреть сообщение
Помогите пожалуйста с решением данной задачи. Очень очень надо
Цитата Сообщение от Mosak Посмотреть сообщение
Помогите, пожалуйста)
А еще что-то умеешь писать? А то во всех темах одно и тоже, аж тошнит. Ощущение как проходишь мимо толпы попрошаек около церкви..
0
D1973
28.02.2016, 08:53
  #5

Не по теме:

Цитата Сообщение от Puporev Посмотреть сообщение
Ощущение как проходишь мимо толпы попрошаек около церкви..

У меня была ассоциация: "мимо цыганок на вокзале"

0
CheshireesCat
86 / 82 / 25
Регистрация: 02.05.2015
Сообщений: 753
28.02.2016, 09:14 #6
D1973, а если строка будет "ААА, ввв ы.ААА" - найдёт?
0
D1973
Модератор
2311 / 1687 / 658
Регистрация: 21.01.2014
Сообщений: 6,585
Записей в блоге: 1
Завершенные тесты: 1
28.02.2016, 09:37 #7
В том виде, который я привел - конечно нет.
1. Ситуация "ААА," дорабатывается элементарной проверкой на содержание в конце слова знака препинания и удаления его при необходимости. В контексте задачи, озвученной ТС-ом, это и не требовалось...
2. Ситуация "ы.ААА". Для компилятора (и для русского языка, кстати) это одно слово. Будет пробел - будет 2 слова. За опечатки пользователя при наборе текста никакая программа (даже знаменитый WORD) ответственности не несет. Ворд, кстати, точно так же посчитает это одним словом. Если же преобразовать ситуацию к виду "ы .ААА" - то она решается так же, как и ситуация 1, только проверка на наличие знака препинания в начале.
0
28.02.2016, 09:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2016, 09:37
Привет! Вот еще темы с ответами:

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

Определить количество различных символов и сколько раз каждый из этих символов встречается в строке - Delphi
Здравствуйте. Есть вот такая задача: "Составить программу, которая принимает строку символов, определяет, сколько в ней различных...

Сколько раз одно слово встречается в другом - Delphi
Посчитайте, сколько раз одно слово встречается в другом. Во входном файле два слова в отдельных строках. В выходной файл выведите...

Сколько раз в тексте встречается самое короткое слово - Delphi
Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово. Сам пробовал - бред какой то получается) ...


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

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

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