Помогите пж дополнить программу в паскале так, чтобы в введенном предложении пропадала не только русская буква "о", но и "О".
Само задание, которое нужно было выполнить: Составить программу на Паскале, которая удалит все буквы «о» из текста, который состоит из 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 баллов!
Само задание, которое нужно было выполнить: Составить программу на Паскале, которая удалит все буквы «о» из текста, который состоит из 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 баллов!
More Questions From This User See All
Answers & Comments
Ответ:
(см. объяснение)
Объяснение:
Приведенная вами задача решается на паскале в одну строчку кода:
##
ReadString.Where(x->(x<>'О') and (x<>'о')).Print;
Или еще один способ:
##
Regex.Replace(ReadString, 'о|О', '').Print;
Как видите, делать так, как вы не только не обязательно, но и неправильно. Пожалуйста, пользуйтесь современными возможностями языка. Код успешно выполнился на версии: 3.8 2899.
Возвращаясь к вашему решению:
Учитывая все выше сказанное, получаем, что ваш код должен выглядеть так:
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%. Это означает, что выбранный вами стиль написания программ уже давно очень сильно устарел и не является грамотным. Но в логике и реализации ошибок теперь нет.
Задание выполнено!