Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 23.02.2010
Сообщений: 48

Дана строка, в ней текстовое сообщение с пробелами

24.02.2010, 18:14. Показов 1756. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана строка, в ней текстовое сообщение с пробелами.
1) вывести только те слова сообщения, которые содержат не более n букв.
2) Вывести только те слова, которые встречаются в тексте ровно 1 раз.
Пожалуйста Помогите...
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.02.2010, 18:14
Ответы с готовыми решениями:

Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и зна
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания. Вывести...

Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и зна
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания. Удалите...

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

2
 Аватар для yanyk1n
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
24.02.2010, 19:11
Лучший ответ Сообщение было отмечено Traveller710 как решение

Решение

1)
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
uses crt;
const razd:set of char=[' ','.',',',':',';','!'];
var n:integer;
    st,buf:string;
begin
 clrscr;
 write('N-> ');
 readln(n);
 write('Строка -> ');
 readln(st);
 
 repeat
  if (st[1] in razd) or (length(st)=0) then while st[1] in razd do delete(st,1,1)
  else
  begin
   while (not (st[1] in razd)) and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
 
  if length(buf)<=n then write(buf,' ');
  buf:='';
 
 end;
 until (length(st)=0) and (length(buf)=0);
 readln;
end.
1
 Аватар для nepalcemdelan
10 / 9 / 4
Регистрация: 24.02.2010
Сообщений: 27
24.02.2010, 19:49
Вот, держи
Вложения
Тип файла: rar Forum.rar (608 байт, 19 просмотров)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.02.2010, 19:49
Помогаю со студенческими работами здесь

Дана строка, в ней 2 слова разделённых пробелами переставить их местами
Пробовал решать , но не получается поскольку как мне в срезе обозначить пробел ? s = 'Hello, World' s = s + s print(s)

Дана строка, в которой содержится осмысленное текстовое сообщение
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания. ...

Дана строка, в которой содержится осмысленное текстовое сообщение
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания. В...

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

Дана строка, слова в которой разделены пробелами. Оставьте в ней только те слова, которые начинаются на ту же букву, что и первое слово.
5.17 Дана строка, слова в которой разделены пробелами. Оставьте в ней только те слова, которые начинаются на ту же букву, что и первое...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru