Строки, Удаление Опции

[Real]

Составьте программу удаления символов «А» стоящих на четных местах в полученной от пользователя строке.

[Bokul]

А какие могут быть проблемы?

Код

var s : строка; i: byte;
Begin
Берем строку(s);
от i:=1 до длина(s) делаем
    если (i = четное) и (s[i] = 'А')  то
           удаляем(со строки s, в позиции i, 1 элемент);
выводим результат;
конец.

Что не можешь сделать сам?

Сообщение отредактировано: Bokul - 19.05.2006 19:39

[volvo]

А какие могут быть проблемы?

А очень простые

Вот тебе пример:

S := 'fAfAfA';

По строке надо от конца в начало проходить, иначе твой алгоритм идет лесом - при удалении символа в позиции №2 все остальные символы сдвинутся на 1 вправо, и обе оставшиеся буквы 'A' не будут удалены, хотя изначально находились именно на четных позициях...

Кстати, ты можешь в своем алгоритме получить еще одну проблему - длина строки при использовании цикла For вычислится перед началом цикла, и то, что ты будешь изменять длину строки при удалении элементов никак не будет замечено. Результат - возможен выход за пределы строки.