Помогите сделать программу на Паскале.

[eduard]

Надо написать программу: вводим слово, затем пробел, затем какие-то цифры, затем снова слово и надо, чтобы слова вместе с пробелами удалялись и оставались только цифры. В словах тоже могут содержаться цифры, но они не должны входить в результат. Заранее спасибо.

[Sel]

eduard, что уже сделано? Где возникла проблема? Показывай.
На халяву готовый код - это не к нам.

[eduard]

Я смог написатьпрограмму выделяющую числа из текста, но это не совсем то.

Код:

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.

[Вад]

Начало хорошее Теперь осталось дело за малым - учесть 2 условия:
1. числу может предшествовать только пробел
2. после числа тоже должен быть пробел (или конец строки), иначе это не число

Поэтому, выделяя число, нужно знать, стоял ли перед ним не-пробел - если стоял, то мы можем смело пропускать до следующего пробела, т.к. это уже не число. И, соответственно, наткнувшись на первый символ, не являющийся цифрой (у тебя - на выходе из второго цикла while), нужно убедиться, что это пробел или конец строки - иначе накопленный результат можно выбрасывать, т.к. это слово, а не число.

[Oldy]

Если предположить что исходная строка содержит следующий текст "Абонент № 9281234567 имеет задолженность 750 руб. 30 коп.", то "d" будет содержать 30.  Написав строку [d:='';]  перед операторной скобкой [repeat] получим "d" содержащее все цифры строки "928123456775030". Как надо?

[eduard]

Вот, например, дано сидоро4в 123 пе5тя. Надо,  чтобы программа выводила 123

[Sla]

Давай упростим задачу
дана строка "абв 123"
Задача найти число.
Покажи код.

[x77]

я бы решал это поэтапно.

1) из входящей строки получить массив слов
2) найти в массиве слова, состоящие только из цифр.

вопрос: какой паскаль используется? TP 7.0? объектный паскаль? FreePascal?

[eduard]

TP 7.0

[x77]

ну, придётся парсить строку ручками

можно всё сднелать без массивов и в один цикл.

смысл очень простой: бежим по строке, "запоминая" встречающиеся буквы, если запомненная буква не является цифрой, то взводим флаг (типа, NotADigit := TRUE). тогда запомненные буквы считаем словом. если буква является разделителем - проверяем флаг, если текущее слово состоит только из цифр - выводим его в результат, обнуляем строку - "запоминалку", сбрасываем флаг, и бежим дальше. и так до конца строки.