Автор: 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 (подробней в хелпе).