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

13.12.2010, 19:24. Показов 652. Ответов 0

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

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

Дано непустой текст длинной до 255 символов. Этот текст имеет слова, в каждом из которых от 1 до 5 малых латинских букв; между соседними словами - запятая, за последним словом точка.
Вывести:
а) ту же последовательность слов, но изьять из неё повторные вхождения слов;
б) все слова, которые встречаються в последовательности только один раз.
На задачу а, решение вот такое, но не рабочие:

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
program laba5string;
uses crt;
var s:string[255];
p:string[6];
procedure instrings(var D:string);
begin
ReadLn(D);
end;
procedure finda(var P:string; var S:string);
var m,n,k,i,j:integer;
BEGIN
m:=length(S);
i:=1;
while i<m do
 BeGiN
  while ((S[i])<>(' ')) do
  begin
  P[i]:=S[i];
  i:=i+1;
  WriteLn(P);
  readkey;
  end;
    readkey;
 k:=1; n:=(i-1-Length(P));
 repeat
 j:=1;
 while (j<=n) and (S[k]=P[j]) do j:=j+1;
 k:=k+1;
 until ((j>n) or (k>(m-n+1)));
if (j<=n) then
Write(P,' ');
i:=i+1;
EnD;  
end;
BEGIN
WriteLn('Vvedit pershiy ryadok');
Instrings(S);
finda(p,s);
readkey;    
END.

На б решения нету. Собственно, оно "пляшет" из а. Прошу помощи, так как мои мозги отказываються уже работать... По возможности не писать свой код, а поправить этот. Буду предельно благодарен.

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

13.12.2010, 19:24

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

Выбрать и вывести те символы, которые встречаются ровно один раз
Из заданного текста выбрать и вывести те символы, которые встречаются в нем ровно один раз (в том порядке, в как они встречаются в...

Отсортировать массив и вывести элементы массива, которые встречаются ровно K раз
Напишите программу, которая сортирует массив и выводит все элементы массива, которые встречаются ровно K раз. Входные данные Первая...

Вывести слова, в которых первая буква входит в них один раз
Пожалуйста помогите разобраться в задаче на pascale!!! Буду очень признателен! Задача№1 Дана последовательность из 10 слов. Вывести...

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

13.12.2010, 19:24

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

Напечатать только те слова, в которые первые буква слова входит хотя бы еще один раз
Прошу помощи) в составлении программы, HELPPP ME please Напечатать только те слова заданного предложения, в которые первые буква слова...

Вывести на экран слова из предложения, которые содержат ровно три буквы е
помогите пожалуйста написать программы: 1)Указать порядковые номера символов, составляющих слово ‘Паскаль’, если таких символов нет –...

Множества. Вывести буквы, которые встречаются только один раз
Вывести из трех предложений русские буквы, которые встречают только один раз (то есть такие, которые есть только в одном из них).

Вывести в убывающем порядке цифры, которые входят в запись данного длинного целого числа только один раз
б. Вывести в убывающем порядке цифры, которые входят в запись данного длинного целого числа только один раз.

Вывести слова, которые встречаются в последовательности только один раз
Вообщем задача такая. В строке состоящей из символов слова вместо пробела разделены запятой, в конце стоит точка.Нужно вывести...

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

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

Новые блоги и статьи Все статьи Все блоги /
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 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .

Наверх