Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

9th
Май

Код перевода в транслит

Posted by Chas under Delphi

Serge_Bliznykov
вот пример алгоритма.
извините, что на Дельфи, думаю, идея понятна, перевести на С особого труда не составит:

{программа для переименования в транслит}

const

  table1='абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

  Table2 : array[1..66] of string =(

   'a','b','v','g','d','e','e','zh','z','i','i','k','l',

   'm','n','o','p','r','s','t','u','f','kh','ts','ch','sh',

   'shc','"','y','''','e','yu','ya ',

   'A','B','V','G','D','E','E','ZH','Z','I','I','K','L',

   'M','N','O','P','R','S','T','U','F','KH','TS','CH','SH',

   'SHC','"','Y','''','E','YU','YA '

);

...

   NewS := '';

   for i:=1 to Length(s) do

    if Pos(s,table1) > 0 then begin

       NewS := NewS + Table2[Pos(s,table1)];

       flWasChages := true

    end

    else

       NewS := NewS + s;