Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
2 / 2 / 0
Регистрация: 06.10.2014
Сообщений: 108
Записей в блоге: 1
1

В заданном тексте из разделенных пробелом слов найти 1-ое слово

02.12.2014, 09:38. Показов 927. Ответов 1
Метки нет (Все метки)

В заданном тексте из разделенных пробелом слов найти 1-ое слово, начинающиеся на буквосочетание «без».
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2014, 09:38
Ответы с готовыми решениями:

Имеется ли заданное слово в заданном тексте из разделенных одним пробелом слов и, если имеется, то сколько бук
Имеется ли заданное слово в заданном тексте из разделенных одним пробелом слов и, если имеется, то...

В заданном тексте из разделенных одним пробелом слов вывести на печать все слова, заканчивающиеся на букву «м»
В заданном тексте из разделенных одним пробелом слов вывести на печать все слова, заканчивающиеся...

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

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

1
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,128
02.12.2014, 10:20 2
Лучший ответ Сообщение было отмечено Ad1LeT как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2:string;
begin
s:=Edit1.Text+' ';
s2:='';
while(pos(' ',s)>0)and(s2='')do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  if copy(s1,1,3)='без'then s2:=s1
  else delete(s,1,pos(' ',s));
 end;
if s2='' then Edit2.Text:='Слова, начинающегося на "без" нет'
else Edit2.Text:='Первое слово, начинающееся на "без" '+s2;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2014, 10:20

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

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

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

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

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

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

Набор слов, разделенных одним пробелом
Добрый вечер. Прошу помочь решить задачу в Python 3. На вход подается набор слов, записанных черед...


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

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

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