Транслитератор

[Кодер]

Нужно написать Транслитератор в паскале, можете посоветовать сам принцип, каким образом это сделать как можно более оптимально? Спасибо

[Sazary]

Программу для перевода русского в транслит?
Посимвольный проход по строке с применением case (или втрого цикла для прохода по массиву чаров). Результат пишется во вторую строку.

[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 '
);
...
   flWasChages := false;
   NewS := '';
   for i:=1 to Length(s) do
    if Pos(s[i],table1) > 0 then begin
       NewS := NewS + Table2[Pos(s[i],table1)];
       flWasChages := true
    end
    else
       NewS := NewS + s[i];

ps. решений может быть бесконечно много...

[Кодер]

Спасибо! Очень помогли!