обработка текста. посмотрите

[Absent]

Дан текст. Способ описания текста (массив символов, строка, текстовый файл). Текст разбит на слова. Предпологается что слово- это группа символов, не сожержащая пробелов и отделенная пробелами от других слов.
В задонном тексте найти все слова, начинающиеся с задонного символа.
"как тут типы слов , символов задавать. И обЪясните пожалуста или ссылку киньте"

[MusicMan]

Какой язык? Тогда помогу

[Absent]

языкпаскаль.

[MusicMan]

Могу посоветовать вот , что :
Бежать по всем пока не встретится пробел,
если пробел то проверяешь следующий на
совместимость с заданным символом,
как встретишь нужный то параллельно заполняешь строку до
следующего пробела (конца слова).
А уж как рассматривать "text" как одну большую строку,
это дело техники.

[Stilet]

По-моему где-то тут уже выкладывалось решение этой задачи.

[MusicMan]

А как примерно тема называлась?

[Stilet]

Ну точно я не помню, но вот хотябы здесь http://programmersforum.ru/showthrea...F1%EB%EE%E2%E0

[МаксимNEWProgramm]

если понял что надо то:просто разделим слова в массив слов

uses crt;
var b:array[1..250]of string;
a:string;i,j,n,k,l,m:longint;c:char;
begin
clrscr;
readln(a);
write('Vvedite kakoi simvol=');readln(c);n:=length(a);l:=0;i:=1;
while i<=n do
begin
            while (a[i]=' ')and(i<=n)do
            i:=i+1;l:=l+1;b[l]:='';
            while (a[i]<>' ')and(i<=n)do
            begin b[l]:=b[l]+a[i];i:=i+1;end;
end;if a[n]=' ' then l:=l-1;writeln;
for i:=1 to l do
if b[i][1]=c then write(b[i],' ');
end.

[MusicMan]

МаксимNEWProgramm - "если понял что надо то:просто разделим слова в массив слов";

Не катит, слишком огранничено...

[Absent]

Списабо, вроде все ясно.
program Zadacha;

{$APPTYPE CONSOLE}

uses
SysUtils;

var b:array[1..250]of string;
a:string;i,n,l:longint;c:char;
begin
begin
write('vvedite stroky');
readln(a);
write('Vvedite kakoi simvol=');readln(c);n:=length(a);l: =0;i:=1;
while i<=n do
begin
while (a[i]=' ')and(i<=n)do
i:=i+1;l:=l+1;b[l]:='';
while (a[i]<>' ')and(i<=n)do
begin b[l]:=b[l]+a[i];i:=i+1;end;
end;if a[n]=' ' then l:=l-1;writeln;
for i:=1 to l do
if b[i][1]=c then write(b[i],' ');
end;
readln;
end.