Question

Помогите пж дополнить программу в паскале так, чтобы в введенном предложении пропадала не только русская буква "о", но и "О".
Само задание, которое нужно было выполнить: Составить программу на Паскале, которая удалит все буквы «о» из текста, который состоит из 6 слов.
Мой ответ:
var
a:string;
i:integer;
begin
writeln('Введите предложение из 6 слов');
readln(a);
for i:= 1 to 6 do
if a[i] = 'о' then
delete(a,i,1);
writeln(a);
end
В чем ошибка и что нужно добавить? Помогите!!! Даю 58 баллов!

Answer 1

Ответ:

(см. объяснение)

Объяснение:

Приведенная вами задача решается на паскале в одну строчку кода:

##

ReadString.Where(x->(x<>'О') and (x<>'о')).Print;

Или еще один способ:

##

Regex.Replace(ReadString, 'о|О', '').Print;

Как видите, делать так, как вы не только не обязательно, но и неправильно. Пожалуйста, пользуйтесь современными возможностями языка. Код успешно выполнился на версии: 3.8 2899.

Возвращаясь к вашему решению:

1. Вы смотрите первые 6 символов, а не слов.
2. Каждый раз, когда вы удаляете символ, происходит смещение индексов на один. Подобная неосторожность приводит к ошибке "Индекс находится вне границ массива".

Учитывая все выше сказанное, получаем, что ваш код должен выглядеть так:

var a: string;

   i, k: integer;

begin

 writeln('Введите предложение из 6 слов');

 readln(a);

 k:= 0;

 for i:= 1 to length(a) do

   if((a[i-k] = 'о') or (a[i-k] = 'О')) then

   begin

     delete(a,i-k,1);

     k:= k+1;

   end;

 writeln(a);

end.

Здоровье кода такой программы по оценке компилятора равно 56%. Это означает, что выбранный вами стиль написания программ уже давно очень сильно устарел и не является грамотным. Но в логике и реализации ошибок теперь нет.

Задание выполнено!