Program ds;
var s: string;
procedure doWork(var s: string);
var
i: integer;
l: integer;
begin
i := 1;
l := length(s);
while (i < l) and ((s[i] < 'z') and (s[i] > 'a') or (s[i] < 'Z') and (s[i] > 'A')) do
inc(i);
if (i > 1) and (i < l) then
begin
while (i < l) and ((s[i] < 'z') and (s[i] > 'a') or (s[i] < 'Z') and (s[i] > 'A')) do
inc(i);
if (i > 1) and (i < l) then
for i:=1 to l do
begin
if s[i] = '+' then
s[i] := '1';
if s[i] = '-' then
s[i] := '2';
if s[i] = '*' then
s[i] := '3'
end;
end;
end;
begin
readln(s);
doWork(s);
writeln(s);
end.
| М | Тэги, тэги, тэги!.. |
А ты уверен, что задача решена правильно? Мне этот код кажется странным и с явными излишествами. Приведи задание, тогда можно будет точнее сказать.
Вот и задание!!!!!!
Строковый тип данных
дан текст.Если в данном тексте имеется не менее 2 групп букв,то каждый знак+ встерчающийся между двумя первыми по порядку группами букв заменить цифрой 1, знак - заменить цифрой 2,а знак * заменить цифрой 3.Иначе оставить текст без изменений
Тогда задача определенно решена не правильно. По заданию, строка "a+b" должна преобразоваться в "a1b", а строка "+++abc+-*bcd---cde***" должна превратиться в "+++abc123bcd---cde***". А теперь попробуй проверить свою программу на этих исходных данных.
Предлагаю следующий алгоритм решения:
1. Найти первую букву в строке.
2. Продолжая с найденной позиции найти первую небукву в строке.
3. Запомнить эту позицию (начиная с нее надо будет производить замену).
4. Продолжая с найденной позиции найти первую букву (это начало второй группы букв).
5. Запомнить предыдущую позицию (на ней надо будет закончить замену).
6. Если строка еще не закончилась, произвести замену с начальной позиции до конечной.