Поиск буквы в слое - Помощь студентам

o1ps · 10.05.2007, 05:28

Допустим у нас есть текст. И нам необходимо найти в нем все 5 символьные слова
После того как мы их нашли, как организовать удаление из всех слов (уже найденных) буквы "А"?
Подскажите пожалуйста алгоритм (если вас не затруднит в виде блок схемы, буду очень признателен)

juden · 10.05.2007, 08:11

премерно во так

o1ps · 10.05.2007, 12:48

А можно это воплотить без "pos"?

Трофимов Александр · 10.05.2007, 13:08

Можно рассматривать слово как массив и при помощи цикла удалять символы А. Как вариант делаешь временную строковую переменную и циклом добавляешь туда буквы которые не равны А из слова, а затем (в конце цикла) заменяешь приравниванием искомое слово временным.

o1ps · 11.05.2007, 05:19

Подскажи как реализовать эти варианты более подробною Буду очень признателен и благодарен.

juden · 11.05.2007, 08:16

насчет первого варианта с "pos" то там все по схеме должно быть понятно выглядеть там будет ват так :
while x<>0 do
begin
x:=pos('A', st);
if x<>0 then
delete(st, x, 1);
end;

а начет второго с массивом примерно вот так:
x:=length(st);
for i:=1 to x do
if st[i]<>'A' then
st1:=st1+st[i];
st:=st1;
есле же у тебя текст в несколько строк то st сначало будет ровняться первой строке, затем второй и т.д.

o1ps · 11.05.2007, 11:59

Возникла еще одна идея поиска слов из 5-букв.
вводим массив, потом задаем цикл i=1,5. Затем b=a(i) (:5) потом присваиваем b=a(i)

По-поводу отсутствия буквы s: так же прогоняем массив
b(:1)='s'
b(2:2)='s'
Помогите доразвить идею схемы, пожалуйста. Буду очень благодарен.

10.05.2007, 05:28	#1
o1ps Пользователь Регистрация: 07.05.2007 Сообщений: 12	Поиск буквы в слое Допустим у нас есть текст. И нам необходимо найти в нем все 5 символьные слова После того как мы их нашли, как организовать удаление из всех слов (уже найденных) буквы "А"? Подскажите пожалуйста алгоритм (если вас не затруднит в виде блок схемы, буду очень признателен)

11.05.2007, 08:16	#6
juden Пользователь Регистрация: 28.03.2007 Сообщений: 67	насчет первого варианта с "pos" то там все по схеме должно быть понятно выглядеть там будет ват так : while x<>0 do begin x:=pos('A', st); if x<>0 then delete(st, x, 1); end; а начет второго с массивом примерно вот так: x:=length(st); for i:=1 to x do if st[i]<>'A' then st1:=st1+st[i]; st:=st1; есле же у тебя текст в несколько строк то st сначало будет ровняться первой строке, затем второй и т.д. Проблема не в том могут ли машины думать, а в том - делают ли это люди? B. F. Skinner

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Русские буквы в TurboPascal	DartMrakkk	Паскаль, Turbo Pascal, PascalABC.NET	4	10.03.2009 21:51
Как открыть в DIV слое	antfrolov	PHP	4	14.07.2008 03:29
DEV C++ не читает русские буквы	gumar	Общие вопросы C/C++	1	21.04.2008 09:53
Прописные буквы	Guest_	Помощь студентам	6	15.12.2007 21:29
Изменение первой буквы	Костя	Общие вопросы Delphi	4	28.11.2007 14:31

10.05.2007, 12:48	#3
o1ps Пользователь Регистрация: 07.05.2007 Сообщений: 12	А можно это воплотить без "pos"?

10.05.2007, 13:08	#4
Трофимов Александр Форумчанин Регистрация: 03.11.2006 Сообщений: 321	Можно рассматривать слово как массив и при помощи цикла удалять символы А. Как вариант делаешь временную строковую переменную и циклом добавляешь туда буквы которые не равны А из слова, а затем (в конце цикла) заменяешь приравниванием искомое слово временным.

11.05.2007, 05:19	#5
o1ps Пользователь Регистрация: 07.05.2007 Сообщений: 12	Подскажи как реализовать эти варианты более подробною Буду очень признателен и благодарен.

11.05.2007, 11:59	#7
o1ps Пользователь Регистрация: 07.05.2007 Сообщений: 12	Возникла еще одна идея поиска слов из 5-букв. вводим массив, потом задаем цикл i=1,5. Затем b=a(i) (:5) потом присваиваем b=a(i) По-поводу отсутствия буквы s: так же прогоняем массив b(:1)='s' b(2:2)='s' Помогите доразвить идею схемы, пожалуйста. Буду очень благодарен.