паскаль(строки)

[masterlomaster]

Например есть у меня предложение типа string, мне нужно просмотреть его подсчитать сколько в нем пробелов после цифр и если пробелов после цифр в строке больше 3 то вывести его.

Как пробел увидеть та? как его описать?

[Noor]

Сформулируйте вопрос более точно
ну и для наглядности ...

{ **** UBPFD *********** by delphibase.endimus.com ****
>> удаление лишних пробелов в строке

удаляет из строки лишние пробелы без использования всяких указателей и т.д.

Зависимости: стандартные модули
Автор:       Артем, boss1999@mail.ru, москва
Copyright:   собственное описание (Артем)
Дата:        24 сентября 2003 г.
***************************************************** }

{процедура удаления лишних пробелов в строке (см. function Sha_SpaceCompress)}
var
  c, i: integer;
  stt, st, st1: string;
begin
  c := 0;
  st := edit1.Text;

  for i := 1 to Length(st) do
  begin

    stt := copy(st, i, 1);
    if (stt = ' ') and (c >= 1) then
    begin
      st1 := st1;
      c := c + 1;
    end
    else if (stt = ' ') and (c = 0) then
    begin
      c := c + 1;
      st1 := st1 + stt;
    end
    else if (stt <> ' ') then
    begin
      c := 0;
      st1 := st1 + stt;
    end
  end;

  edit2.text := st1;
end;

[masterlomaster]

ну вот допустим надо узнать сколько в строке гласных, для этого мы описываем все эти гласные и затем делаем условие если встретится в строке то вывести.

а тут пробелы.

[Serge_Bliznykov]

Count := 0; {счётчик пробелов после цифр}
for i:=2 to Length(S) do 
  if (s[i-1] in ['0'..'9']) {предыдущий символ был цифра}
     and {и}
    (s[i] = ' ') {текущий символ пробел}
   then Inc(Count);

WriteLn('после цифр ',Count,' пробелов.');

ВНИМАНИЕ!. такой алгоритм подчсчитае в строчке (пробелы отмечены подчёркиваниями:

A___1_____2___C_D

всего ДВА пробела (т.е. они ПОСЛЕ цифр - остальные пробелы уже после букв или после ДРУГИХ пробелов). Если такой вариант не устраивает, значит, нужно чуток изменить алгоритм подсчёта...

[masterlomaster]

Спасибо .