Заданный текст в котором все украинские символы изменить на латинские. Латинские символы-не менять. Напечатать преобразованый текст

@CheburashkaRR · Регистрация: 17.03.2013

Студворк — интернет-сервис помощи студентам

Заданный текст в котором все украинские символы изменить на латинские. Латинские символы-не менять. Напечатать преобразованный текст

@Mawrat · 28.03.2013, 20:43

Транслитерация. Решение для русского языка. Там подправишь на украинский.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
program Project1;
 
function Transliterate(const aStr : String) : String;
var
  Res : String;
  i : integer;
begin
  Res := '';
  for i := 1 to Length(aStr) do
    case aStr[i] of
      'a': Res := Res + 'a';
      'б': Res := Res + 'b';
      'в': Res := Res + 'v';
      'г': Res := Res + 'g';
      'д': Res := Res + 'd';
      'е': Res := Res + 'e';
      'ё': Res := Res + 'ye';
      'ж': Res := Res + 'zh';
      'з': Res := Res + 'z';
      'и': Res := Res + 'i';
      'й': Res := Res + 'y';
      'к': Res := Res + 'k';
      'л': Res := Res + 'l';
      'м': Res := Res + 'm';
      'н': Res := Res + 'n';
      'о': Res := Res + 'o';
      'п': Res := Res + 'p';
      'р': Res := Res + 'r';
      'с': Res := Res + 's';
      'т': Res := Res + 't';
      'у': Res := Res + 'u';
      'ф': Res := Res + 'f';
      'х': Res := Res + 'ch';
      'ц': Res := Res + 'z';
      'ч': Res := Res + 'ch';
      'ш': Res := Res + 'sh';
      'щ': Res := Res + 'ch';
      'ъ': Res := Res + '''';
      'ы': Res := Res + 'y';
      'ь': Res := Res + '''';
      'э': Res := Res + 'e';
      'ю': Res := Res + 'yu';
      'я': Res := Res + 'ya';
      'А': Res := Res + 'A';
      'Б': Res := Res + 'B';
      'В': Res := Res + 'V';
      'Г': Res := Res + 'G';
      'Д': Res := Res + 'D';
      'Е': Res := Res + 'E';
      'Ё': Res := Res + 'Ye';
      'Ж': Res := Res + 'Zh';
      'З': Res := Res + 'Z';
      'И': Res := Res + 'I';
      'Й': Res := Res + 'Y';
      'К': Res := Res + 'K';
      'Л': Res := Res + 'L';
      'М': Res := Res + 'M';
      'Н': Res := Res + 'N';
      'О': Res := Res + 'O';
      'П': Res := Res + 'P';
      'Р': Res := Res + 'R';
      'С': Res := Res + 'S';
      'Т': Res := Res + 'T';
      'У': Res := Res + 'U';
      'Ф': Res := Res + 'F';
      'Х': Res := Res + 'Ch';
      'Ц': Res := Res + 'Z';
      'Ч': Res := Res + 'Ch';
      'Ш': Res := Res + 'Sh';
      'Щ': Res := Res + 'Ch';
      'Ъ': Res := Res + '''';
      'Ы': Res := Res + 'Y';
      'Ь': Res := Res + '''';
      'Э': Res := Res + 'E';
      'Ю': Res := Res + 'Yu';
      'Я': Res := Res + 'Ya';
      else
        Res := Res + aStr[i];
    end;
 
  Transliterate := Res;
end;
 
var
  S : String;
begin
  repeat
    Writeln('Задайте текст:');
    Readln(S);
 
    S := Transliterate(S);
 
    Writeln('Текст после транслитерации:');
    Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

@CheburashkaRR · 30.03.2013, 00:24 **[ТС]**

большое спасибо, но листинг слишком длинный... есть ли возможность сделать его короче и с использованием множеств ... очень прошу о помощи!

@Mawrat · 30.03.2013, 01:01

Код "длинный" из-за того, что каждую букву надо перевести:

Pascal
1
2
3
4
5
6
7
8
9
    case aStr[i] of
      'a': Res := Res + 'a';
      'б': Res := Res + 'b';
      'в': Res := Res + 'v';
      ...
      'Я': Res := Res + 'Ya';
      else
        Res := Res + aStr[i];
    end;

Сообщение от CheburashkaRR

и с использованием множеств

Вот множества здесь совсем не нужны.

Если бы задание было такое: "Удалить из текста все украинские буквы. Остальные символы не трогать" - здесь можно было бы множество использовать. Составили бы множество украинских букв, запустили цикл перебора символов строки и для каждого символа делали сверку на принадлежность множеству. Если принадлежит множеству, то символ удаляем, не принадлежит - пропускаем.
Или такое условие: "Все украинские буквы заменить на цифру 1" - здесь тоже множество бы применили.

@CheburashkaRR · 31.03.2013, 21:37 **[ТС]**

вновь спасибо, но суть именно в том чтобы решить эту задачу с применением множеств.... если кто-то знает, как это сделать, прошу, помогите....

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@CheburashkaRR 1 / 1 / 1 Регистрация: 17.03.2013 Сообщений: 28

	Заданный текст в котором все украинские символы изменить на латинские. Латинские символы-не менять. Напечатать преобразованый текст 28.03.2013, 17:53. Показов 1604. Ответов 4 Метки delphi, транслитерация (Все метки) Заданный текст в котором все украинские символы изменить на латинские. Латинские символы-не менять. Напечатать преобразованный текст 0

@CheburashkaRR 1 / 1 / 1 Регистрация: 17.03.2013 Сообщений: 28
	30.03.2013, 00:24 [ТС]
	большое спасибо, но листинг слишком длинный... есть ли возможность сделать его короче и с использованием множеств ... очень прошу о помощи! 0

@CheburashkaRR 1 / 1 / 1 Регистрация: 17.03.2013 Сообщений: 28
	31.03.2013, 21:37 [ТС]
	вновь спасибо, но суть именно в том чтобы решить эту задачу с применением множеств.... если кто-то знает, как это сделать, прошу, помогите.... 0