0 / 0 / 3
Регистрация: 12.06.2011
Сообщений: 71
1

Определить, есть ли в данной строке одинаковые слова

06.03.2012, 22:31. Показов 1772. Ответов 2
Метки нет (Все метки)

помогите)хотя бы идейку
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2012, 22:31
Ответы с готовыми решениями:

Вывести слова строки, которые отличны от последнего слова, и определить, есть ли в данной строке одинаковые слова
Дана строка, состоящая из слов, разделённых пробелами. Вывести слова этой строки, которые отличны...

Определить, есть ли в данной строке одинаковые слова
Определить, есть ли в данной строке одинаковые слова. Нужен полноценный код, заранее спасибо.

Функция: Определить есть ли в строке одинаковые слова
Вводится строка. Определить есть ли в ней одинаковые слова с использованием функции. Заранее...

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

2
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
06.03.2012, 23:00 2
Лучший ответ Сообщение было отмечено P.S.I.X. как решение

Решение

Pascal
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
const
  delims:set of char=[' ','.',',',':',';','!','?','"'];
  nmax=30;
type
  Tstring=string[20];
  wordArr=array[1..nmax] of Tstring;
var
  s,wd:string;
  i,j,wStart,size:byte;
  a:wordArr;
  repeats:boolean;
begin
  writeln('Input string');
  readln(s);
  {Выделяем слова из строки в массив}
  size:=0;
  i:=1;
  while i<=length(s) do
    begin
      while (s[i] in delims) and (i<=length(s)) do
        inc(i);
      if i<=length(s) then
        begin
          wStart:=i;
          while not(s[i] in delims) and (i<=length(s)) do
            inc(i);
          wd:=copy(s,wStart,i-wStart);
          inc(size);
          a[size]:=wd;
      end;
    end;
  {Перебираем элементы массива на наличие повторов}
  repeats:=false;
  i:=1;
  while (i<=size) and not repeats do
    begin
      j:=i;
      while (j>=1) and not repeats do
        if (a[i]=a[j]) and (i<>j) then
          repeats:=true
        else
          dec(j);
        if not repeats then 
          inc(i);
    end;
  if repeats then
    writeln('There are repeating words in string')
  else
    writeln('There are no repeating words in string');
end.
1
0 / 0 / 3
Регистрация: 12.06.2011
Сообщений: 71
07.03.2012, 19:48  [ТС] 3
можно чуть по больше коментариев??? а то не все части понятны
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2012, 19:48

Определить, есть ли в строке хотя бы две одинаковые строчные английские буквы
Ввести строку символов s и определить, есть ли в строке s хотя бы две одинаковые строчные...

Определить, есть ли в данной строке два любых одинаковых символа
Строки 1.Дана символьная строка. Определить, есть ли в данной строке два любых одинаковых символа,...

Определить есть ли в строке повторяющиеся слова
Дана строка слов. Определить есть ли в ней повторяющиеся слова

Определить, есть ли в строке слова которые совпадают с последним
Помогите пожалуйста с таким вопросом! 1.Есть строка, определить есть ли в строке слова которые...


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

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

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