Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2013, 15:38   #1
s2df
Пользователь
 
Регистрация: 26.03.2013
Сообщений: 15
По умолчанию Язык "С" Удалить рядом стоящие гласные буквы

Дана строка,из нее нужно удалить рядом стоящие одинаковые гласные буквы.
Например:
cecaab
Результат:
сecb
Спасибо.

Последний раз редактировалось s2df; 20.10.2013 в 16:13.
s2df вне форума Ответить с цитированием
Старый 21.10.2013, 04:46   #2
Nuklon
Форумчанин
 
Аватар для Nuklon
 
Регистрация: 05.04.2012
Сообщений: 134
По умолчанию

Код:
#include <stdio.h>



// только для ASCII
char* str_remove(char* s, const char* chs) {
    char* a, *b, *p, c;
    char  cs[128] = {0};

    while(*chs) {
        if((c = *chs++) > -1)
            cs[c] = 1;
    }

    for(a = b = s; *a; *a = *b) {
        c = *b;
        if((c > -1) && cs[c]) {
              for(p = b + 1; *p && (*p == c); ++p);
              if((p - b) > 1) {
                  b = p;
                  continue;
              }
        }
        ++a;
        ++b;
    }
    return s;
}




int main(void) {
    char s[] = "OOOOOOOOcecaaaaaaaaaaaabIIIIii";
    puts( str_remove(s, "aeiouAEIOU") );
    return 0;
}
Пример работы кода
Nuklon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Строки(pascal) - удалить все гласные русские буквы wormiks40 Помощь студентам 3 20.04.2012 09:39
Подсчитать гласные буквы в предложении. glebast Помощь студентам 8 28.12.2011 22:57
гласные буквы в richedit stanislav_ivanovic Общие вопросы Delphi 2 22.12.2011 18:42
напечатать все строчные русские гласные буквы Aimet Паскаль, Turbo Pascal, PascalABC.NET 0 16.06.2011 21:28
Гласные и согласные буквы artemavd Общие вопросы Delphi 7 22.06.2009 20:53