Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [pascal] выделение цифр из текста

Автор: Dower 17.11.2010, 15:05

Обьясните пожалуйста принцип работы кода
Задание выделить из произвольного текста все числа.

Код


const Digits : set of char=['0'..'9'];
var s,d:string;
    i:integer;
begin
     writeln('‚Введите текст:'); readln(s);
     writeln('Числа из текста:');
     i:=1;
     Repeat
        while NOT(s[i] in Digits) and (i<=length(s)) do inc(i);
        d:='';
        while (s[i] in Digits) and (i<=length(s)) do begin
              d:=d+s[i];
              inc(i);
        end;
        if length(d)<>0 then writeln(d);
     Until (i>length(s));
end.

Автор: Dower 17.11.2010, 16:13

Надо к завтрашнему дню. Объясните хотя бы смысл строк 9, 10, 11

Автор: Dower 17.11.2010, 16:40

Все сам разобрался.

Автор: Dower 17.11.2010, 17:01

Возник вопрос а как записать найденные в тексте цифры в массив для дальнейшей сортировки?