Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > Вырезать слова из текста


Автор: yraloz 8.3.2006, 11:31
Товарищи программисты, помогите пожалуйста
решить одну задачку.
Дан текст, между словами либо пробел, либо запятая, выделить из него:
1.Слова в которых нет цифр
2.Слова в которых одни цифры
3.Смешанные слова.

Спасибо большое за помощь.

Автор: DonPager 8.3.2006, 16:23
Код

function ISZIXER(S:string):boolean;
var
X,i:byte;
ss:string;
begin
i := 1;
ss := s+' ';
while  (ord(ss[i]) > 29)and(ord(ss[i]) < 40)and(i <=s[0])do i:=i+1;
IsZixer := (i=s[0]);
end;

function ISNoZIXER(S:string):boolean;
var
X,i:byte;
ss:string;
begin
i := 1;
ss := s+' ';
while  (not ss[i] in ['0'..'9'] )and(i <=s[0])do i:=i+1;
IsNoZixer := (i=s[0]);
end;

var
 vxod,z:string;
 i:byte;
begin
i:= 1;
while i<=vxod[0] do 
begin
 while (vxod[i]<> ' ')or(vxod[i]<> ',')and( i<=vxod[0]) do 
   begin z[i] := vxod[i]; i:=i+1;end;
 if ISNoZIXER(z) then write('slovo bez zixer')
 else if ISZIXER(z)then write('slovo is zixer');
end;
end.

Вариант требует осмысления smile и возможно доработки

Автор: yraloz 8.3.2006, 17:56
Спасибо огромное!!!!!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)