2 / 2 / 1
Регистрация: 05.09.2011
Сообщений: 39
1

Вывести слова, которые встречаются в предложении более одного раза

19.11.2011, 13:38. Показов 1710. Ответов 1
Метки нет (Все метки)

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

Определить количество букв Е, Ю и Я в введенном предложении. Слова, в которых эти буквы встречаются более одного раза поставить в начале предложения
Помогите пожалуйста с задачей, очень нужно. Там помимо основного задания еще нужно чтоб программа...

Напечатать все элементы, которые встречаются более одного раза
ЗАДАЧА 5. Выполнить действия над массивами. В таблице при формулировании задания для разъяснения...

Найти символы строки, которые встречаются не более одного раза
Нужно найти символы которые встречаются не более одного раза . ввод:Символы записаны без пробелов...

Найти и распечатать числа, которые встречаются в массиве более одного раза
Одномерный массив А состоит из 30 элементов. Найти и распечатать числа, которые встречаются в...

1
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
19.11.2011, 14:48 2
Лучший ответ Сообщение было отмечено Fedek как решение

Решение

Вот, только не могу сделать, чтобы выводила слово один раз, а не столько, сколько в предложении:
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
uses crt;
var a: array [1..100] of string;
    s, sl: string;
    i, j, h, ks: integer;
begin
write ('s='); readln (s);
s:=s+' ';
sl:='';
j:=1;
for i:=1 to length (s) do
   if s[i]<>' ' then
      sl:=sl+s[i]
      else
          begin
          a[j]:=sl;
          inc(j);
          sl:='';
          end;
ks:=j-1; h:=1;
writeln ('Больше одного раза встречаются');
while h<ks do
      begin
      for j:=h+1 to ks do
          if a[h]=a[j] then write (a[j],' ');
      inc(h);
      end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2011, 14:48
Помогаю со студенческими работами здесь

Сформировать новый массив из элементов исходного массива, которые встречаются более одного раза
Напишите программу, которая выделяет в другой массив все элементы исходного массива, которые...

Напечатать все слова, которые встречаются в последовательности более одного раза
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных русских...

Исключить из файла все слова, которые встречаются более одного раза
Найти в файле f все слова которые встречаются более одного раза исключить их с файла f и получить...

Напечатать все слова, которые встречаются в последовательности более одного раза
Дана последовательность, состоящая от 1 до 30 слов в каждом из которых от 1 до 5 малых латинских...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru