Pascal найти слова в тексте |
02.06.2010, 19:42
|
|
Участник форума
Регистрация: 01.12.2007
Сообщений: 141
С нами:
9707254
Репутация:
136
|
|
Pascal найти слова в тексте
Ачатовцы, подскажите как на паскале в строке текста найти слова которые больше пяти символов, но меньше 8?
|
|
|
02.06.2010, 19:50
|
|
Постоянный
Регистрация: 16.04.2008
Сообщений: 889
С нами:
9510146
Репутация:
1550
|
|
берешь переменную l под длину, сначала l=0
береме переменную s под слово, сначала s=''
Читать текст посимвольно, пока символ не пробел, прибавляя единицу к l, а символ к s
Когда достигли пробела, смотрим, если l>5 и l<8, выводим слово s
Если нет, не выводим
В любом случае l=0 ставим, s=''
И далее...
|
|
|
|
03.06.2010, 00:24
|
|
Участник форума
Регистрация: 09.05.2009
Сообщений: 186
С нами:
8951426
Репутация:
102
|
|
сунуть текст в стринглист, заменить внём все пробелы на перенос строк и далее:
list:=tstringlist.create;
for i:=0 to list.count-1 do
begin
if (length(list[i])>5) and (length(list[i])<8) the
showmessage('нашли слово: '+list[i] );
end;
|
|
|
|
03.06.2010, 00:27
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
С нами:
8582520
Репутация:
6
|
|
Стринг лист в паскале?
ТС я ответил в теме про лабы.
|
|
|
|
03.06.2010, 00:28
|
|
Участник форума
Регистрация: 09.05.2009
Сообщений: 186
С нами:
8951426
Репутация:
102
|
|
Сообщение от miako
Стринг лист в паскале?
ТС я ответил в теме про лабы.
увлёкся, сорри (:
ну смысл, думаю, понятен. можно и без стринглиста ведь
|
|
|
|
03.06.2010, 09:01
|
|
Участник форума
Регистрация: 01.12.2007
Сообщений: 141
С нами:
9707254
Репутация:
136
|
|
Решил немного выежнуться и решил так, строку разбил на слова в массив, а потом каждое сравнивал по длинне..
Код:
program zadanie3;
var
i,n,k:integer;
predl:string;
words,result:array[1..100] of string;
wfile:text;
filename:string;
begin
predl:='turbo pascal internet go interest programming number size on get post kelvin programming development';
n:=1;
k:=1;
for i:=1 to length(predl) do begin
if predl[k]<>' ' then begin
words[n]:=words[n]+predl[k];
inc(k);
end
else
begin
inc(n);
inc(k);
end;
end;
k:=1;
for i:=1 to n do begin
if (length(words[i])>5) and (length(words[i])<8) then begin
result[k]:=words[i];
inc(k);
end;
end;
filename:='res.txt';
Assign(wfile,filename);
Rewrite(wfile);
Writeln(wfile, 'ishodniy text:');
writeln(wfile, predl);
writeln(wfile, 'slova po usloviu:');
for i:=1 to k do
writeln(wfile, result[i]);
Close(wfile);
end.
|
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
