задача с применением обработки строк - Помощь студентам

Евгений77777 · 09.03.2012, 22:11

дан текст на русском языке и некоторые 2 буквы. Найти слова НЕ содержащие указанные буквы.
нужен код в делфи
ввести текст в edit1 и вывести результат в edit2

Евгений77777 · 10.03.2012, 20:35

нужен код делфи

Евгений77777 · 11.03.2012, 20:47

помогите плиз

ACE Valery · 11.03.2012, 21:59

а) у нас на форме не принято "апать темы"
б) у нас на форуме принято называть темы так, чтоб они отражали суть задачи. Эта тема должна называться "[Delphi] Из текста выбрать слова, НЕ содержащие указанные буквы". Вы все свои темы будете называть "задача с применением обработки строк"? Тогда вот вам, пожалуйста, штраф.

whatever · 11.03.2012, 22:00

Разбиваешь строку на слова (обсуждалось на форуме Over9000 раз), потом для каждого слова

Код:

if pos((буква1,слово)=0) and (pos(буква2,слово)=0) then
  edit2.text:=edit2.text+слово+' ';

Евгений77777 · 12.03.2012, 20:13

можно мне как для идиотов
я в делфи нифига не понимаю

Евгений77777 · 12.03.2012, 22:15

не работает нифига

Serge_Bliznykov · 12.03.2012, 23:37

Цитата:

не работает нифига

ладно. давайте свой код, посмотрим, что именно у Вас там "не работает нифига"...

Евгений77777 · 13.03.2012, 19:18

procedure TForm1.Button1Click(Sender: TObject);
begin
if pos((буква1,слово)=0) and (pos(буква2,слово)=0) then
edit2.text:=edit2.text+слово+' ';
end;

end.

Базиля · 13.03.2012, 19:25

Я думаю пора уже загругляться, а то слишком толсто все пошло.
А если серьезно, а что тут собственно должно работать то?

09.03.2012, 22:11	#1
Евгений77777 Пользователь Регистрация: 15.02.2012 Сообщений: 26	задача с применением обработки строк дан текст на русском языке и некоторые 2 буквы. Найти слова НЕ содержащие указанные буквы. нужен код в делфи ввести текст в edit1 и вывести результат в edit2

11.03.2012, 21:59	#4
ACE Valery Сама себе режиссер Старожил Регистрация: 27.04.2007 Сообщений: 3,365	а) у нас на форме не принято "апать темы" б) у нас на форуме принято называть темы так, чтоб они отражали суть задачи. Эта тема должна называться "[Delphi] Из текста выбрать слова, НЕ содержащие указанные буквы". Вы все свои темы будете называть "задача с применением обработки строк"? Тогда вот вам, пожалуйста, штраф. Если я вас напрягаю или раздражаю, вы всегда можете забиться в угол и поплакать

11.03.2012, 22:00	#5
whatever a.k.a. Skull Форумчанин Регистрация: 17.11.2009 Сообщений: 963	Разбиваешь строку на слова (обсуждалось на форуме Over9000 раз), потом для каждого слова Код: `if pos((буква1,слово)=0) and (pos(буква2,слово)=0) then edit2.text:=edit2.text+слово+' ';` Все тривиальное просто

13.03.2012, 19:25	#10
Базиля Участник клуба Регистрация: 03.12.2009 Сообщений: 1,013	Я думаю пора уже загругляться, а то слишком толсто все пошло. А если серьезно, а что тут собственно должно работать то? Последний раз редактировалось Базиля; 13.03.2012 в 19:28.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
задача с применением функций и процедур для работы со строками	Евгений77777	Помощь студентам	2	06.03.2012 20:39
Создание алгоритмов обработки строк	HellkilleR	Microsoft Office Excel	3	30.04.2010 00:01
Помогите решить задачу ан тему: Указатели, строки, функции обработки строк	Chel	Общие вопросы C/C++	3	11.10.2009 19:48
ОБРАБОТКИ СТРОК	юра 3	Паскаль, Turbo Pascal, PascalABC.NET	1	25.12.2008 22:59
Команды обработки строк!	Proskurin	Помощь студентам	11	06.05.2008 16:11

10.03.2012, 20:35	#2
Евгений77777 Пользователь Регистрация: 15.02.2012 Сообщений: 26	нужен код делфи

11.03.2012, 20:47	#3
Евгений77777 Пользователь Регистрация: 15.02.2012 Сообщений: 26	помогите плиз

12.03.2012, 20:13	#6
Евгений77777 Пользователь Регистрация: 15.02.2012 Сообщений: 26	можно мне как для идиотов я в делфи нифига не понимаю

12.03.2012, 22:15	#7
Евгений77777 Пользователь Регистрация: 15.02.2012 Сообщений: 26	не работает нифига

13.03.2012, 19:18	#9
Евгений77777 Пользователь Регистрация: 15.02.2012 Сообщений: 26	procedure TForm1.Button1Click(Sender: TObject); begin if pos((буква1,слово)=0) and (pos(буква2,слово)=0) then edit2.text:=edit2.text+слово+' '; end; end.