Версия для печати темы

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

Форум «Всё о Паскале» _ Задачи _ текстовый Файл

Автор: itGarD 16.04.2007 1:38

Вот собственно задача, которая вызывает у меня затруднение:
"Дан текстовый файл f, состоящий из нескольких строк. Переписать его в файл g следующим образом: если в тексте нет символа ‘+’, то оставить этот текст без изменения, иначе каждую из цифр, предшествующую первому вхождению символа ‘+’ заменить на символ ‘-‘"

Код
   For i:=1 to n do
  begin
    Readln (z,s);

    For j:=1 to length(s) do
        begin
                if s[j]<>'+' then
                if  s[j] in ['0'..'9'] then s[j]:='-';
                if s[j]='+' then break;
    end;
    writeln (y,s);
  end;

Вот в этом куске моя и есть проблема. А состоит она в следующем, что при принудительном завершении цикла, если в строке находится "+", цикл запускается заново для следующей строки, а вот как решить эту проблему у меня не находится идеи.


Прикрепленные файлы
Прикрепленный файл  LABA9_V7.PAS ( 1.16 килобайт ) Кол-во скачиваний: 227

Автор: Archon 16.04.2007 1:42

Чтобы найти вхождение символа в строку используй функцию pos (подробней в хелпе).