Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 19.03.2018
Сообщений: 5
1

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

19.03.2018, 18:48. Просмотров 1095. Ответов 8
Метки нет (Все метки)

Пожалуйста, помогите написать программу. Вот условие:

Дана последовательность символов, состоящая из слов четной длины.
Вывести на экран все слова четной длины, у которых все буквы из
первой половины слова встречаются во второй половине слова, или сообщение «Нет»,
если требуемых слов нет.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.03.2018, 18:48
Ответы с готовыми решениями:

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

Удалить из файла все слова, длина которых меньше половины длины самого длинного слова второй строки
Переписать текст в файл output.txt, удалив из него все слова, длина которых меньше половины длины...

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

Получит слово состоящее из первой половины первого слова и второй половины второго слова
Ввести 2 слова, состоящие из четного числа букв. Получит слово состоящее из первой половины первого...

8
Модератор
61565 / 46098 / 31818
Регистрация: 18.05.2008
Сообщений: 111,117
19.03.2018, 18:51 2
Цитата Сообщение от Lukariel Посмотреть сообщение
состоящая из слов четной длины.
Цитата Сообщение от Lukariel Посмотреть сообщение
Вывести на экран все слова четной длины,
Так и написано в задании?
0
0 / 0 / 0
Регистрация: 19.03.2018
Сообщений: 5
19.03.2018, 18:54  [ТС] 3
Да, именно так и написано
0
Модератор
61565 / 46098 / 31818
Регистрация: 18.05.2008
Сообщений: 111,117
19.03.2018, 18:57 4
По любому один раз слово четные лишнее.
0
0 / 0 / 0
Регистрация: 19.03.2018
Сообщений: 5
19.03.2018, 18:59  [ТС] 5
Предположительно, можно исправить так:
Дана последовательность символов, состоящая из слов.
Вывести на экран все слова четной длины, у которых все буквы из
первой половины слова встречаются во второй половине слова, или сообщение «Нет»,
если требуемых слов нет.
0
4021 / 1876 / 2008
Регистрация: 10.12.2014
Сообщений: 7,267
20.03.2018, 06:43 6
Лучший ответ Сообщение было отмечено Lukariel как решение

Решение

Из условия будем считать словом любой набор символов разделённый одним или несколькими пробелами.
Тогда:
Pascal
1
2
3
4
5
6
7
begin
  var words:=ReadLnString('Введите последовательность символов:').ToWords(' ').Where(word->Not odd(Word.Length));
  if words.Count=0 then begin WriteLn('Нет слов чётной длины.');Halt;end;
  words:=words.Where(word->word.SubString(0,word.Length div 2).Sorted.JoinIntoString=word.SubString(word.Length div 2).Sorted.JoinIntoString);
  if words.Count=0 then begin WriteLn('Нет слов, у которых все буквы первой половины встречаются во второй.');Halt;end;
  Write('Слова, у которых все буквы первой половины встречаются во второй: '); words.Println;
end.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30262 / 19770 / 7733
Регистрация: 22.10.2011
Сообщений: 34,496
Записей в блоге: 6
20.03.2018, 10:52 7
Lukariel, слово aabbba подходит под условие задачи? Все буквы из первой половины (и "a" и "b") встречаются и во второй.
0
4021 / 1876 / 2008
Регистрация: 10.12.2014
Сообщений: 7,267
20.03.2018, 10:55 8
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

volvo, я так понял: буквы второй части как перестановка букв первой…
Хотя, может быть и так, как вы говорите.
Ждём-с ответа ТС.
;–)
0
0 / 0 / 0
Регистрация: 19.03.2018
Сообщений: 5
20.03.2018, 17:13  [ТС] 9
Большое спасибо, работает, как надо =) Теперь осталось в этом разобраться
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.03.2018, 17:13

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Распечатать все слова четной длины, в которых нет удвоенной буквы Н
уважаемые эксперты помогите пожалуйста с заданием 27.1. Дана матрица размером 6Х6 элементов,...

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

Слово имеет четное количество символов, и в правой половине слова имеются все символы из левой половины слова
Помогите пожалуйста составить программу на С++ Слово имеет четное количество символов, и в правой...

Сделать большими все буквы в тех словах, длина которых меньше половины длины самого длинного слова
программа с множествами, процедурами и функциями на turbo pascal Работать с символами и со...

Сделать большими все буквы в тех словах, длина которых меньше половины длины самого длинного слова строки
на Тurbo Pascal с использованием множеств, процедур и функций


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

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

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