Распечатать все числа, встречающиеся в заданном тексте. Опции

[tanjusha]

Распечатать все числа, встречающиеся в заданном тексте.

[amega]

Доберусь до паскаля проверю функциию
с - строка в которой ищется, и - позициия с которой проверяется, рез - возращаемое число, сама функция возращает найдено чило или нет.

function getInt(s:string; i:integer; var res:string):boolean;
var 
  ok:boolean; 
begin
ok:=false; 
result:=false;
{ Проверяем отрицательное ли число, и инициализируем нашу исходну строку }
if s[i]='-' then res:='-'
  else res:='';
 {проыеряем наше число в цикле, пока не встретим очередной пробел,либо конец чтроки} 
 while (s[i]<>' ') or (i<=length(s)) do
  begin
   {проверяем очиредной символ}
	case s[i] of
	    {если это цифра то прибавляем в исходнуюю строку}
		'0'..'9':		  
		    res:=res+s[i];		  
		'.':
		{проверяем точку в вещественном числе}
		  begin
		  {если такова есть то выходим из функции, функциия воратит false}
		  if ok then exit			
		  else 
		    begin
			  {если точки нету добавляем ее в вых значение и указуем флаг}
			  ok:=true; 
			  res:=res+s[i];
			end;
		  end;
	else 
	  {если у нас пришол какойто символ не 0-9 либо . значит выходим из функции, функциия воратит false }
	  exit; 
	end; { end для case}
	{если все хорошо увиличиваем индекс}
	i:=i+1; 
	end;
{если мы не вышли по какойто причине значит все хорошо и устанавливаем значение функции true,в res у нас число}	
getint:=true;
end;