Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ удаление из текста гласных букв

Автор: пaша 8.06.2007 10:46

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

Автор: Ozzя 8.06.2007 11:35

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

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 8.06.2007 12:05

Цитата(Ozzя @ 8.06.2007 8:35) *

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

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

Автор: Ozzя 8.06.2007 12:10

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

Автор: Malice 8.06.2007 12:51

Цитата(Ozzя @ 8.06.2007 9:10) *

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

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

Автор: Ozzя 8.06.2007 12:57

Цитата(Malice @ 8.06.2007 9:51) *

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

Точно! (С) unsure.gif
На балл оценку снижу rolleyes.gif 
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.

Автор: Артемий 8.06.2007 13:03

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

Автор: пaша 8.06.2007 19:25

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

Автор: Ozzя 8.06.2007 19:36

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

Автор: пaша 8.06.2007 22:00

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

Автор: Ozzя 9.06.2007 11:31

http://forum.pascal.net.ru/index.php?showtopic=4270&view=getnewpost

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

Автор: пaша 9.06.2007 13:48

Цитата(Ozzя @ 9.06.2007 7:31) *

http://iew=getnewpost

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

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

Автор: Ozzя 9.06.2007 14:17

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

Автор: пaша 9.06.2007 14:55

Цитата(Ozzя @ 9.06.2007 10:17) *

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

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

Автор: Ozzя 9.06.2007 15:11

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