Напишите программу, которая (использую оператор выбора – case) производит транслитерацию текста - PascalABC.NET
Формулировка задачи:
Решение задачи: «Напишите программу, которая (использую оператор выбора – case) производит транслитерацию текста»
Program tr;
var s:string;
i: integer;
begin
writeln('Введите текст ');
readln(s);
for i:=1 to Length(s) do
begin
case s[i] of
'А': write ('A');
'Б': write ('B');
'В': write ('V');
'Г': write ('G');
'Д': write ('D');
'Е': write ('E');
'Ё': write ('Yo');
'Ж': write ('Zh');
'З': write ('Z');
'И': write ('I');
'Й': write ('Y');
'К': write ('K');
'Л': write ('L');
'М': write ('M');
'Н': write ('N');
'О': write ('O');
'П': write ('P');
'Р': write ('R');
'С': write ('S');
'Т': write ('T');
'У': write ('U');
'Ф': write ('F');
'Х': write ('Kh');
'Ц': write ('Ts');
'Ч': write ('Ch');
'Ш': write ('Sh');
'Щ': write ('Shch');
'Ь': write ('');
'Ы': write ('Y');
'Ъ': write ('');
'Э': write ('E');
'Ю': write ('Yu');
'Я': write ('Ya');
'а': write ('a');
'б': write ('b');
'в': write ('v');
'г': write ('g');
'д': write ('d');
'е': write ('e');
'ё': write ('yo');
'ж': write ('zh');
'з': write ('z');
'и': write ('i');
'й': write ('y');
'к': write ('k');
'л': write ('l');
'м': write ('m');
'н': write ('n');
'о': write ('o');
'п': write ('p');
'р': write ('r');
'с': write ('s');
'т': write ('t');
'у': write ('u');
'ф': write ('f');
'х': write ('kh');
'ц': write ('ts');
'ч': write ('ch');
'ш': write ('sh');
'щ': write ('shch');
'ь': write ('');
'ы': write ('y');
'ъ': write ('');
'э': write ('e');
'ю': write ('yu');
'я': write ('ya');
' ': write (' ');
else writeln ('Error!');
end;
end;
readln;
end.
Объяснение кода листинга программы
[1] Program tr; [2] var s:string; [3] i: integer; [4] begin [5] writeln('Введите текст '); [6] readln(s); [7] for i:=1 to Length(s) do [8] begin [9] case s[i] of [10] 'А': write ('A'); [11] 'Б': write ('B'); [12] 'В': write ('V'); [13] 'Г': write ('G'); [14] 'Д': write ('D'); [15] 'Е': write ('E'); [16] 'Ё': write ('Yo'); [17] 'Ж': write ('Zh'); [18] 'З': write ('Z'); [19] 'И': write ('I'); [20] 'Й': write ('Y'); [21] 'К': write ('K'); [22] 'Л': write ('L'); [23] 'М': write ('M'); [24] 'Н': write ('N'); [25] 'О': write ('O'); [26] 'П': write ('P'); [27] 'Р': write ('R'); [28] 'С': write ('S'); [29] 'Т': write ('T'); [30] 'У': write ('U'); [31] 'Ф': write ('F'); [32] 'Х': write ('Kh'); [33] 'Ц': write ('Ts'); [34] 'Ч': write ('Ch'); [35] 'Ш': write ('Sh'); [36] 'Щ': write ('Shch'); [37] 'Ь': write (''); [38] 'Ы': write ('Y'); [39] 'Ъ': write (''); [40] 'Э': write ('E'); [41] 'Ю': write ('Yu'); [42] 'Я': write ('Ya'); [43] ' ': write (' '); [44] [45] else [46] begin [47] writeln('Error!'); [48] end; [49] end; [50] readln; [51] end.