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

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

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

Сколько раз в тексте встречается самое короткое слово - Delphi

18.03.2012, 19:49. Просмотров 723. Ответов 2
Метки нет (Все метки)

Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово.

Сам пробовал - бред какой то получается)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
s:=edit1.Text;
for i:=1 to length(s) do
begin
if (ord(s[i])>223)   then
edit2.Text:=edit2.Text+chr(ord(s[i])+1);
if ord(s[i])=255 then
edit2.Text:=edit2.Text+chr(224);
if s[i]='' then
edit2.Text:=edit2.Text+s[i];
end;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2012, 19:49
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сколько раз в тексте встречается самое короткое слово (Delphi):

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

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

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

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

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

Определить количество слов, найти самое короткое, определить сколько раз встречается сочетание "сс" - Delphi
Задан текст, в котором до 30 слов, в каждом из которых до 20 символов. Слова между собой отделены одним или несколькими пробелами. В...

2
Ales'hon'ne
157 / 150 / 9
Регистрация: 03.08.2011
Сообщений: 299
Записей в блоге: 14
18.03.2012, 21:21 #2
Может быть работает. В тексте должно быть хотя-бы 2 различных слова
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
const
  delm=[' ','.',',',':','"','''',';'];
 
function TextToList(text:String):TStrings;
var
  i,j,l:Integer;
  tmp:string;
begin
  Result:=TStringList.Create;
  text:=LowerCase(text,loUserLocale)+' ';
  i:=0;
  tmp:='';
  while i<length(text) do
    begin
      for j:=i to length(text) do
        if text[j] in delm then
          begin
            l:=j-i;
            break;
          end;
      if l=0 then
        begin
          inc(i);
          continue;
        end;
      tmp:=Copy(text,i,l);
      if Result.IndexOfName(tmp)>=0 then
        Result.Values[tmp]:=IntToStr(StrToInt(Result.Values[tmp])+1)
      else
        Result.Add(tmp+'=1');
      i:=i+l+1;
    end;
end;
 
function ShortWord(text:String):Integer;
var
  i,minl:Integer;
  tmp:string;
begin
  with TextToList(text) do
    begin
      minl:=length(Names[0]);
      tmp:=Names[0];
      for i:=1 to Count-1 do
        if length(Names[i])<minl then
          begin
            minl:=length(Names[i]);
            tmp:=Names[i]
          end;
      Result:=StrToInt(Values[tmp]);
    end;
end;
1
pma96
1 / 1 / 0
Регистрация: 10.06.2011
Сообщений: 21
19.03.2012, 20:37  [ТС] #3
какаято жесть... я думаю это все намного проще делается, подобно моему примеру...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2012, 20:37
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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