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

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

29.09.2016, 16:49. Показов 2192. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами – запятая, за последним словом – точка. Вывести все слова, которые встречаются по одному разу
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.09.2016, 16:49
Ответы с готовыми решениями:

Вывести все слова, которые встречаются В СТРОКЕ по одному разу (без массива)
все перерыл, ничего не нашел дали задание Вывести все слова, которые встречаются по одному разу в...

Вывести слова, которые встречаются в строке по одному разу
Помогите пожалуйста с решением задачи! Вывести слова, которые встречаются в строке по одному...

Вывести слова, которые встречаются в строке по одному разу
Вывести слова, которые встречаются в строке по одному разу.

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

6
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
29.09.2016, 19:31 3
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
type mas=array[1..30] of string[5];
     masi=array[1..30] of byte;
var s,slovo:string;
    sl:mas;
    ksl:masi;
    i,j:byte;
    f,ff:boolean;
begin
 for i:=1 to 30 do begin sl[i]:='';ksl[i]:=0 end;
 s:='aa,ab,ac,ad,aa,aa,aaa,abs,aaa,ab,aa,aa,abc,ar,ad,ad,af,ac,af,aw.';
 s[length(s)]:=',';
 i:=1;
 while (pos(',',s)<>0) do
  begin
   slovo:=copy(s,1,pos(',',s)-1);
   delete(s,1,pos(',',s));
   f:=false;
   for j:=1 to i do
    if sl[j]=slovo then begin inc(ksl[j]);f:=true end;
   if not f then begin sl[i]:=slovo;inc(i) end;
  end;
 ff:=true;
 for j:=1 to i-1 do if ksl[j]=0 then begin write(sl[j],' ');ff:=false end;
 if ff then writeln('---')
end.
0
0 / 0 / 0
Регистрация: 03.04.2016
Сообщений: 8
12.10.2016, 13:49  [ТС] 4
А вы не могли бы упростить эту программу чтобы было понятно, что делал студент 3-ешник ? =)
0
0 / 0 / 0
Регистрация: 03.04.2016
Сообщений: 8
16.10.2016, 16:36  [ТС] 5
Если можно , сделайте программу по проще,главное что бы работала,срочно нужно,пожалуйста!
0
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
16.10.2016, 17:32 6
Вывести те слова, которые встречаются по одному разу
1
Cyborg Drone
20.10.2016, 15:53     Вывести все слова, которые встречаются в строке по одному разу
  #7

Не по теме:

Lapatka, рекомендую Вам ознакомиться с правилами форума. Дублирование и кросспостинг тем запрещены. Если и далее будете нарушать правила форума, особенно в плане клонирования, я с Вами буду поступать нехорошо. Кстати, в правилах среди прочего написано, что если в тему написать новое сообщение, например, из одного слова "Актуально", она тут же оказывается наверху списка тем раздела. Получается, что плодить дублей оттого, что тема не на самом виду, бессмысленно. Возможно, Вы считаете, что, если создадите новую тему, то Вам ответят как-то по-другому. Это не верно, поскольку, если уже было обсуждение Вашего вопроса в старой теме, с помощью новой темы Вы теряете контекст обсуждения, и Вам ответят, скорее всего, то же самое, что и в старой теме. Если просто поднять тему новым сообщением, то повышается вероятность того, что Вам будет предложено другое решение. Особенно, если Вы будете задавать грамотные вопросы и хоть что-то делать сами.

И ещё. Вот Вам для поднятия настроения: Как запостить тему, чтобы не получить ответ

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2016, 15:53

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

Напечатать все слова, которые встречаются в нем по одному разу.
1. Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит...

Дано предложение. Напечатать все слова, которые встречаются в нем по одному разу.
Очень нужна помощь в написании программы, что ниже. Заранее ОГРОМНОЕ спасибо! - Задача 2. Дано...

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
1.8. 2.Составить программу печати в возрастающем порядке всех цифр, входящих в десятичную запись...


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

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

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