Developing.ru

Что тут сложного?
[syntax='Delphi']
const
GL=['A','E','I','O','U','Y'];
var
Txt:string;
I:integer;

procedure Input;
begin
writeln('Введите текст');
ReadLn(Txt);
end;

procedure Main;
begin
I:=1;
while I<=Length(Txt) do
if (UpCase(Txt) in GL) then
Delete(Txt,I,1)
else
Inc(I);
end;

procedure Output;
begin
Writeln(Txt);
Readln;
end;

begin
Input;
Main;
Output;
end.

[/syntax]

Можно, в принципе, и с циклом работать, только его приходится модернизировать: Не знаю, может, без второго брейка можно обойтись, проверять лень.

Да можно было вообще просто проверять каждый символ в обычном цикле, а подходящие записыавть в другую строку.

Хыиуду писал(а):

Код: Выделить всё

for i:=1 to length(s) do

Если не ошибаюсь, то в цикле for верхняя граница вычисляется один раз, перед началом цикла. А так как length(s) все время уменьшается, то условие верхней границы вскоре перестает быть верным.

Так что, или использовать цикл while (где условие считается при каждом витке цикла), или (что я постоянно "рекламирую" ) перебирать символы строки не от начала к концу, а от конца к началу. В этом случае постоянное удаление символов отрицательного эффекта не имеет:

BBB писал(а):Если не ошибаюсь, то в цикле for верхняя граница вычисляется один раз, перед началом цикла. А так как length(s) все время уменьшается, то условие верхней границы вскоре перестает быть верным.

Именно поэтому я и ставлю проверку на выход за границу строки

Хыиуду,
так навороченно как-то получилось все. Цикл for, внутри него (!) еще и цикл while, внутри которого еще и проверка на if.

Я же предложил:

BBB, не спорю, изящней. Видимо, закостеневаю уже. Привык большинство проблем решать циклом с to вместо downto, иногда в ущерб эффективности.
А вообще лучше всего для подобных целей использовать регулярные выражения