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

[tanjusha]

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

[amega]

function getInt(s:string; i:integer; var res:string):boolean;
var
  ok:boolean;
  k:integer;
begin
ok:=false;
getint:=false;
k:=i;
res:='';
while (s[i]<>' ') and (i<=length(s)) do
  begin
	case s[i] of
             '-':
                begin
                if k=i then res:=res+s[i]
                else exit;
                end;
		'0'..'9':
		    res:=res+s[i];
		'.':
		  begin
		  if (ok) or (i=k) then exit
		  else
		    begin
			  ok:=true;
			  res:=res+s[i];
			end;
		  end;
	else
	  exit;
	end;
	i:=i+1;
	end;
getint:=true;
end;

вот это больше похожа на правду, ток теперь ее нада правильно вызывать ....

Сообщение отредактировано: amega - 24.01.2010 20:52