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

Проверить повторяется ли в предложении первое слово

22.02.2016, 17:14. Показов 1912. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, помогите написать программу которая проверяет повторяется ли в предложении первое слово. Главное не использую массив из слов. Заранее благодарю.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
22.02.2016, 17:14
Ответы с готовыми решениями:

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

Определить сколько раз заданное слово повторяется в предложении
Ввести любое предложение и определить, сколько раз повторяется в нем заданное слово.

Определить, сколько раз в тексте повторяется первое слово
В общем задание таково: есть файл text.txt ( с текстом ) программа должна прочитать его и сказать сколько раз в тексте повторяется первое...

2
 Аватар для ВаЛерика
121 / 26 / 27
Регистрация: 17.04.2013
Сообщений: 106
22.02.2016, 19:06
Присылай свой код решения данной задачи. Помогу доделать или переделать!
0
3410 / 1829 / 489
Регистрация: 28.02.2015
Сообщений: 3,696
23.02.2016, 12:48
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  a,b:string;
begin
  write('Enter string:');readln(a);
  b:=',./;:!';
  while b<>'' do
    begin
      while pos(b[1],a)>0 do
        a[pos(b[1],a)]:=' ';
      delete(b,1,1);
    end;
  while pos('  ',a)>0 do
    delete(a,pos('  ',a),1);
  b:=copy(a,1,pos(' ',a)-1);
  delete(a,1,pos(' ',a));
  writeln(a);
  writeln(b);
  if pos(b,a)>0 then write('YES')else write('NO');
end.
Хотя string это arrary[ 0..255 ]of char;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.02.2016, 12:48
Помогаю со студенческими работами здесь

В заданном предложении поменять местами первое слово и самое длинное слово
Кто-нибудь, помогите решить задачи на Lazarus или Delphi! 1. В заданном предложении поменять местами первое слово и самое длинное...

В предложении удалите первое слово
Условие:Составте программу,используя символьные вырожения (строки). Массив не использовать!:) ПОМОГИТЕ ПЛЗ! В данном предложении...

Удалить в предложении первое и последнее слово
Прошу помощи! Необходимо организовать ввод строкового предложения. Удалить в предложении первое и последнее слова.

Поменять в предложении первое и последнее слово
Вам дана строка SS, состоящая только из пробелов и строчных латинских букв. Строка представляет из себя предложение, т.е. несколько слов,...

Поменять местами первое и последнее слово в предложении
Дано предложение(водить с консоли). Поменять местами первое и последнее слово. Помогите пожалуйста


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru