Определить слова,длина которых совпадает с заданой - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.75/4:

@Avrail 0 / 0 / 0 Регистрация: 21.12.2010 Сообщений: 3

	Определить слова,длина которых совпадает с заданой 21.12.2010, 03:23. Показов 837. Ответов 3 Метки нет (Все метки) В заданной строке символов необходимо определить слова,длинна которых совпадает с заданной пользователем.Желательно с помощью процедур и функций.Заранее благодарен 0

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

21.12.2010, 03:23

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

Определить количество слов, у которых первая буква совпадает с последней буквой первого слова.
Помогите, пожалуйста, вывод подсчитанной строки сделать, не получается :(( var s,s1,ch: string; A,B :integer; WriteLn('Введите...

Напечатать те слова из последовательности, которые отличны от последнего слова и длина которых максимальна
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не...

Определить, сколько начальных букв первого слова совпадает с начальными буквами второго слова
Задание: Даны два слова. Определить, сколько начальных букв первого слова совпадает с начальными буквами второго слова. Слова...

@Avrail 0 / 0 / 0 Регистрация: 21.12.2010 Сообщений: 3
	22.12.2010, 16:43 [ТС]
	хелп плиз 0

@Avrail 0 / 0 / 0 Регистрация: 21.12.2010 Сообщений: 3
	25.12.2010, 02:04 [ТС]
	хелп плиз 0

Dekio

Фрилансер

5845 / 1226 / 499

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

Сообщений: 3,373

Записей в блоге: 1

25.12.2010, 10:17

Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure test(n :integer; s :string);
begin
if length(s)=n then
writeln('Совпадает')
else
writeln('Не совпадает');
end;
...
readln(s);
readln(n);
test(n,s);

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

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

25.12.2010, 10:17

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

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

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

Сделать большими все буквы в тех словах, длина которых меньше половины длины самого длинного слова строки
Здравствуйте,помогите пожалуйста решить Сделать большими все буквы в тех словах,длина которых меньше половины длины самого длинного...

Строки. Определить, является ли длина слова четной или нечетной
верно ли,что в заданном предложении всякое несимметричное слово имеет имеет четную длину помогите пожалуйста!!!! var Str, Slovo:...

В строке символов определить количество слов, у которых длина больше указанной пользователем
В строке символов определить количество слов, у которых длина больше указанной пользователем. Заменить такие слова на обратные .

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

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

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

Наверх