Задание на символы и строки

[zjenya14]

Дана строка, состоящая из СЛОВ. Выдать слова , содержащие цифры, и посчитать их количество.

Например, дана строка: abc123 abc jsa654
Нужно чтобы выводилась результирующая строка: abc123 jsa654
И количество цифр: 6

Помогите пожалуйсто!

[ViktorR]

1. Пусть есть строка - sIn
2. Результирующая строка - sOut
3. Подсчитываем кол-во цифр в переменной - m - так понимаю, что нужно выдать всего цифр в строке.
4. Просматриваем строку по символам и копируем слова в отдельную строку - sWord

i := 1;  // порядковый номер символа в строке
k := 1; // порядковый номер символа в слове
m := 0; // найдено цифр
flg := false; // найдена/не найдена цифра
while i <= length(sIn) do
begin
   sWord[k] := sIn[i];
k := k + 1;

5. Если символ - цифра - sIn[i] >= '0' AND sIn[i] <= '9'
то

m := m + 1;
flg := true;

6. Если sIn[i] = ' ' // пробел
и flg - истина (найдена цифра), то

sOut := sOut + sWord; //sWord уже содержит пробел 
   k := 1;
   flg := false;

7. Можно перейти в начало цикла while
8. Выводим результирующую строку и число цифр в ней.

Понятно, что не решение, но ...

Как-то так ...

[Poma][a]

Если символ - цифра - sIn[i] >= '0' AND sIn[i] <= '9'
то

Чуть-чуть по проще, без Булевой алгебры
if sIn[i] in ['0'..'9'] then

6. Если sIn[i] = ' ' // пробел
и flg - истина (найдена цифра), то

sOut := sOut + sWord; //sWord уже содержит пробел 
   k := 1;
   flg := false;

Вы, наверное, не очень точно выразились
Что-то мне подсказывает что Вы подразумевали такой вариант :

if sIn[i] = ' ' then begin
     if flg then
         sOut := SOut + sWord; 
     k := 1;
     flg := FALSE
end;

Кстати, возможно стоит избавиться от SOut и сразу выводить на экран.
Возможно стоит так же выкинуть переменную k и поступать так :

sWord := '';
...
while .... do begin
      sWord := sWord + sIn[i]
...
end...

[ViktorR]

Большое счастье, когда тебя понимают ...
Конечно-же Ваши замечания верны на все ...

Писал не проверяя ...




И так бывает ...

[zjenya14]

Спасибо огромное! Просто выручили

[Poma][a]

Большое счастье, когда тебя понимают ...

Конечно-же Ваши замечания верны на все ...

Ой! Да какие замечания, максимум уточнения!

Писал не проверяя ...

Все мы грешны

Спасибо огромное! Просто выручили

Пожалуйста Но в следующий раз лучше с конкретными вопросами и желательно с наработками

[Stilet]

И я свои 5 коп. Можно?

var s,c:string; b:boolean;
  i,count:integer;
begin
 s:='He2llo 4ward world';
 b:=false;
 for i:=1 to length(s) do begin
   if s[i]=' ' then begin    if b then Caption:=Caption+c+' '; c:='';b:=false; end;
   if (s[i] in ['0'..'9']) then b:=true;
   c:=c+s[i];
 end;
end;

[Poma][a]

Можно?

Баба Яга против!

Caption:=Caption+c+' '

А можно чуть-чуть по подробнее?

[ViktorR]

var s,c:string; b:boolean;
  i,count:integer;
begin
 s:='He2llo 4ward world';
 b:=false;
 for i:=1 to length(s) do begin
   if s[i]=' ' then begin    if b then Caption:=Caption+c+' '; c:='';b:=false; end;
   if (s[i] in ['0'..'9']) then b:=true; // поскольку в предыдущей операции b
                                         // участвует, то вероятно будет правильным этот оператор сделать вторым.
   c:=c+s[i]; // это значит, что пробел попадает в с.
              // эту строку можно выполнит первой в цикле
              // тогда Caption:=Caption+c+' '; --> Caption:=Caption+c;
 end;
end;

Результат:

var s,c:string; b:boolean;
  i,count:integer;
begin
 s:='He2llo 4ward world';
 b:=false;
 for i:=1 to length(s) do begin
   c:=c+s[i];
   if (s[i] in ['0'..'9']) then b:=true;
   if s[i]=' ' then
   begin
      if b then
          Caption:=Caption+c;
          c:='';
          b:=false;
   end;
   end;
end;

Вроде так ...

[Poma][a]

Нет инициализации с.
И что такое Caption ?