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

Функции. Определить, есть ли в заданном предложении слово PRINT и удалить его

17.05.2012, 03:31. Показов 1901. Ответов 2
Метки нет (Все метки)

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

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

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

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

2
 Аватар для zedox_ru
10 / 10 / 6
Регистрация: 08.04.2012
Сообщений: 56
17.05.2012, 07:18
Лучший ответ Сообщение было отмечено vanes1993 как решение

Решение

Цитата Сообщение от vanes1993 Посмотреть сообщение
Составить программу, в состав которой будет входить функция, определяющая, есть и в заданном предложении слово PRINT (в любом регистре) и удалять это слово.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program print;
Uses crt;
Var
a: string;
i,p: integer;
Zn: set of char;
Begin
Writeln('Введите предложение:');
Readln(a);
For i:=1 to length(a) do
a[i]:= upcase(a[i]);
P:= pos(' PRINT' ,a);
Zn:=[' ', '.', ',', '(', ')' , '[' , ']' , '!' , '?' , ':' ,'/' , '\' , '"' , '*'];
While (P<>0) and ((a[P+6] in Zn) or (P=length(a)-5))
do
begin
  Delete(a,P,6);
  P:=POS(' PRINT', a);
end;
Writeln('_______');
Writeln(a);
end.
P.S. Если есть вопросы по коду,спрашивай не стесняйся.
1
1 / 1 / 1
Регистрация: 17.05.2012
Сообщений: 4
17.05.2012, 15:45  [ТС]
zedox_ru, там нужно через функцию прописать, а у тебя только в циклах. Сможешь через функцию написать? Буду благодарен.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.05.2012, 15:45
Помогаю со студенческими работами здесь

В заданном предложении удалить самое короткое слово
4. В заданном предложении удалить самое короткое слово. Считать, что слова в тексте отделены друг от друга одним пробелом.

В заданном предложении удалить самое короткое слово
В заданном предложении удалить самое короткое слово. Считать, что слова в тексте отделены друг от друга одним пробелом. uses Crt; ...

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

Определить, есть ли в заданном предложении цифры. И если есть, найти их сумму
Определить, есть ли в заданном предложении цифры. И если есть, найти их сумму.

Определить, содержится ли в заданном предложении введенное слово
Определить, содержится ли в заданном предложении введенное слово. Написать программу на Pascal


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
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 и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru