удаление из текста гласных букв, помогите решить задачу. А то я совсем в этом не разбираюсь. Заранее бл Опции

[пaша]

мне нужно сдать это задание, кто может сделать напишите пожалуйста.

[Ozzя]

Для латинских

Var
  S:string;
  i:integer;
begin
  s:='ASDFGHU';
  for i:=1 to Length(s) do
    begin
      if upcase(s[i]) in ['A', 'E', 'I', 'O', 'U'] then
        delete(s,i,1);
    end;
  writeln(s);
end.

[Malice]

Для латинских

Лучше с конца строки к началу идти, тогда за границы не вылетишь, у тебя же она по ходу короче становится.

[Ozzя]

Честно говоря, мальчишки (7-й класс) писали
Я не всматривался, проверил, удаляет и ладно

[Malice]

Я не всматривался, проверил, удаляет и ладно

Проверь тогда на строке "AADUUHU"

[Ozzя]

Проверь тогда на строке "AADUUHU"

Точно! (С)
На балл оценку снижу

Var
  S:string;
  i:integer;
begin
  s:='AAUUDUH';
  for i:=Length(s) downto 1 do
    begin
      if upcase(s[i]) in ['A', 'E', 'I', 'O', 'U'] then
        delete(s,i,1);
    end;
  writeln(s);
end.

[Артемий]

Прости, а буква Y?
(а.понял.все)

Сообщение отредактировано: Артемий - 8.06.2007 9:04

[пaша]

а как сделать с русскими буквами?

[Ozzя]

замени гласные латинские на гласные русские

[пaша]

большое спасибо! А как можно блок схему составить?

[Ozzя]

Программа построения блок-схем

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

[пaша]

Программа построения блок-схем

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

напиши пожалуйста как она должна выглядеть.

[Ozzя]

if s[i] in ['У', 'Е', 'Ы', 'А', 'О', 'Э', 'Ё', 'Я', 'И', 'Ю','у', 'е', 'ы', 'а', 'о', 'э', 'ё', 'я', 'и', 'ю'] then

[пaша]

if s[i] in ['У', 'Е', 'Ы', 'А', 'О', 'Э', 'Ё', 'Я', 'И', 'Ю','у', 'е', 'ы', 'а', 'о', 'э', 'ё', 'я', 'и', 'ю'] then

а после Begin АSDFGHU писать

[Ozzя]

Лучше вставь
readln(s);
чтобы пользователь мог вводить любой текст для проверки.