ТурбоПаскаль. Выделение чисел из слов.

[eduard.80@mail.ru]

Задача такова:
Составить программу, которая будет выводить числа с которых начинается слово. 23февраля = 23, фвраля23=0.
Написал следующее:
function f:string;
begin
for i:=1 to length(s) do
if (s[i] in ['0'..'9']) or (s[i]=' ') then
s1:=s1+s[i]

end;
Проблема: для одного слова она прокатит 23февраля=23, но она также будет выводить все цифры, которые встречаются в словах, если вводить предложение(23фев апр5 5 выо5смв=23 5 5 5), а это не есть гут(((
Подскажите пожалуйста алгоритм действий для предложения.

[Arigato]

Есть оператор Break, что бы принудительно завершить цикл.
По вашему решению есть замечания. Если вы хотите вынести решение в отдельную функцию, то переменная i должна быть локальной в этой функции, а s передаваться как параметр.

[Serge_Bliznykov]

я бы предложил Вам такой подход.

Взять любой подходящий Вам алгоритм, который выделяет из строки слова (разделителем может быть пробел, а может быть и любой знак пунктуации).
Таких алгоритмов на форуме полно (да и самому написать несложно).

после получения выделенного слова (пусть это будет строковая переменная W) выделить цифры в начале слова.
например, так:

var
   W : string
   i, kErr, NN : integer;
...

   ... выделили очередное слово в строке ...
   i:=1;
   while (i<=Length(W)) and (W[i] in ['0'..'9'] do Inc(i);
   if i>1 then begin  {значит есть цифры в начале слова и их ровно i-1}
      Val(Copy(W,1,i-1), NN, kErr );
      if kErr=0 then WriteLn(' в слове ',W, ' в начале строки целое число ',NN);
   end;

[eduard.80@mail.ru]

Сообщение от Arigato

переменная i должна быть локальной в этой функции, а s передаваться как параметр.

А вот здесь если можно поподробнее, а то по книгам чего то не доходит(((
Тоесть мне записать (function f(i:byte,???):string; как записать s как параметр?
И ещё потом в программе ставлю f;, а он меня материть начинае всякими ошибками.
Как енту функцию описывать потом в программе? По идее я должен записать то, что вычисляет функция, примерно так f(i,s,s1) - всёравно материт((
В общем одни вопросы, второй день голову ламаю.
И подскажите пожалуйста книженцию по турбопаскаль с изложением понятным простому смертному, а не: функция Pos возвращает курсор в позицию...бла,бла,бла, пока я понял что такое возвращает три часа прошло((( (извините за офтоп)

[Serge_Bliznykov]

функция Pos возвращает курсор в позицию...бла,бла,бла, пока я понял что такое возвращает три часа прошло((( (извините за офтоп)

мда... функция Pos ищет позицию подстроки в строке и возвращает, соответственно индекс вхождения одной подстроки в строку или ноль, если ничего не нашла.. К курсору и его позиции эта функция отношения не имеет...
Извините за оффтоп..

[eduard.80@mail.ru]

спасибо всем, разобрался)))