Задача на сравнение и нахождение слов в строках

22.10.2012, 23:29. Показов 837. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Задача:
Найти в предложении самое короткое слово и вывести, если оно не встречается во втором

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
53
54
55
56
57
58
59
60
61
62
63
64
65
Const
   Znaki = [' ', '.', ','];
Var minstr,i,len,lengh, ch,r:integer;
   sl,str1, str2,s:string;
   A:array[1..20] of string;
 
Function Sovpad(const Str2, Pword: string) : boolean;
  Var
    i,len,lengh:integer;
 Begin
  lengh:=length(str2);
  len:=0;
  For i:=1 to  lengh do
   begin
    if (i = Len) or (str2[i] in Znaki) then continue;
    inc(len);
    If str2[i+1] in Znaki then
     begin
      If Pword=copy(str2, i - len + 1, len) then
       begin
        Sovpad:=True;
        Exit;
       end;
    len:=0;
      end;
    end;
 end;
 
begin
minstr:=255;
str1:=edit1.Text;
str2:=edit2.Text;
lengh:=length(str1);
len:=0;
For i:= 1 to lengh do
  begin
  If str1[i] in Znaki then continue;
  Inc(len);
  If str1[i+1] in Znaki then
   begin
    sl:=copy(str1, i - len +1, len);
    If (len <= minstr) and not Sovpad(str2, sl) then
     begin
     If (len < minstr) then
     minstr:=len;
     ch:=1;
     A[ch]:=sl;
     end
    else
     begin
     inc(ch);
     A[ch]:=sl;
     end;
    len:=0
    end;
  end;
For r:=1 to ch do
  s:=s + A[r];
  edit3.Text:=s;
 
 
 
end;
 
end.

Первый раз пишу программы с функциями(да и вообще первая программа больше 15 строк), возник вопрос - все ли я сделал правильно и можно ли где-то избавиться от громоздкости?

Комментарий модератора

Перенес в Паскаль.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

22.10.2012, 23:29

Ответы с готовыми решениями:

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

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

Сравнение символов в строках
Добрый день! помогите написать прогу, которая будет сравнивать две строки и показывать каких символов нет в 1-ой строке из 2-ой строки.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

22.10.2012, 23:29

Помогаю со студенческими работами здесь

Сравнение времени в строках
Доброго времени суток товарищи, я только начинаю изучать C#, поэтому прошу у вас совета... у меня консольное приложение считывает с сайта...

Сравнение символов в строках
Здравствуйте. Нужна помощь.. Имеется файл с данными(file1.txt): Имя Фамилия:номер телефона Нужно средствами php сделать...

Сравнение количества символов в строках
Доброго времени суток. Написал программу, для вуза нужно, но позже увидел, что нужно пользоваться встроенными функциями (iostream). ...

Сравнение букв в двух строках
Добрый день! помогите плз нужен алогоритм который проверяет двух edit ов на совпадение. Суть в том что нужна маленькая программа туда нужно...

Поиск, сравнение и замена значений в строках
Имеются четыре строки, например a, b, c, d, Audi 2010-2013, Ремонт 2010-2017, Обслуживание 2009-2010, Выход 2010-2017 Возможна ли...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

Наверх