Форум программистов, компьютерный форум CyberForum.ru

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Frok
0 / 0 / 0
Регистрация: 03.08.2010
Сообщений: 15
#1

Трансляция алфавитных символов в аналоги. - Pascal

03.08.2010, 12:28. Просмотров 826. Ответов 4
Метки нет (Все метки)

На вход подаётся произвольный "текст" (набор строк символов), зашифровать текст по следующей схеме: транслируем каждый алфавитный символ в его аналог(русский в английский и наоборот). Некоторые символы могут быть заменены на комбинацию. Знаки препинания и пробелы не меняем. Пример: "Маша ела кашу", результат="Masha ela kashu".
Вот такое вот задание, не прошу когото делать мучиться, подскажите хотябы название тем паскаля(7.0) к которым эта программа относится, какие темы глав в книжках почитать поподробнее, чтобы сделать это.
Заранее спасибо.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.08.2010, 12:28     Трансляция алфавитных символов в аналоги.
Посмотрите здесь:

Дана строка символов. Подсчитать, сколько различных символов встречаются в ней. Pascal
Если число цифровых элементов больше,чем алфавитных,то получить новый массив,сцепив попарно цифровые и числовые элементы символом "&" Pascal
Turbo Pascal "перевод" из одного Паскаля в другой (аналоги функций)
Подсчитайте количество повторяющихся символов в группах с нечетным количеством символов Pascal ABC
С помощью подпрограммы определить количество символов ‘п' и ‘у’ в строках из 100 и 300 символов. Turbo Pascal
Текстовые файлы. Подсчитать частоту алфавитных символов в текстовом файле Turbo Pascal
Turbo Pascal Если массив символов упорядочен по возрастанию, то вывести коды этих символов
Задана строка символов. Определить, какой из символов встречается наименьшее количество раз Pascal ABC
Из произвольной последовательности символов исключить группы символов, расположенных между круглыми скобками Turbo Pascal
Трансляция Русских предложений в Unicode (например, А в \u0410) Pascal ABC
Выяснить, имеется ли среди символов, пара соседствующих одинаковых символов Turbo Pascal
В заданной последовательности символов определить количество символов «*», стоящих после двоеточия Pascal

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Puporev
Модератор
51289 / 39220 / 12859
Регистрация: 18.05.2008
Сообщений: 89,408
03.08.2010, 12:57     Трансляция алфавитных символов в аналоги. #2
Цитата Сообщение от Frok Посмотреть сообщение
название тем паскаля(7.0) к которым эта программа относится
Темы однозначно Строки или работа со строками, а также строковые массивы. В массивах хранить сами строки(текст), а также создать 2 массива-константы из строк-заменителей. В этих массивах некоторые элементы будут только из одного символа.
А вообще поискать темы и справочные материалы по транслитерации, были такие темы на форуме.
Frok
0 / 0 / 0
Регистрация: 03.08.2010
Сообщений: 15
03.08.2010, 20:56  [ТС]     Трансляция алфавитных символов в аналоги. #3
Спасибо, почитаю, может что получится.
Mawrat
12762 / 5668 / 672
Регистрация: 19.09.2009
Сообщений: 8,838
04.08.2010, 00:38     Трансляция алфавитных символов в аналоги. #4
Frok, функцию транслитерации можешь взять из этого поста.
В Pascal она пойдёт с минимальными изменениями:
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
function Transliterate(const s: string) : string;
var
 i: integer;
 t: string;
begin
 t := ''; 
 for i:=1 to Length(s) do
  begin
   case s[i] of
        'a': t:=t+'a';
        'б': t:=t+'b';
        'в': t:=t+'v';
        'г': t:=t+'g';
        'д': t:=t+'d';
        'е': t:=t+'e';
        'ё': t:=t+'ye';
        'ж': t:=t+'zh';
        'з': t:=t+'z';
        'и': t:=t+'i';
        'ё': t:=t+'y';
        'к': t:=t+'k';
        'л': t:=t+'l';
        'м': t:=t+'m';
        'н': t:=t+'n';
        'о': t:=t+'o';
        'п': t:=t+'p';
        'р': t:=t+'r';
        'с': t:=t+'s';
        'т': t:=t+'t';
        'у': t:=t+'u';
        'ф': t:=t+'f';
        'х': t:=t+'ch';
        'ц': t:=t+'z';
        'ч': t:=t+'ch';
        'ш': t:=t+'sh';
        'щ': t:=t+'ch';
        'ъ': t:=t+'''';
        'ы': t:=t+'y';
        'ь': t:=t+'''';
        'э': t:=t+'e';
        'ю': t:=t+'yu';
        'я': t:=t+'ya';
        'А': T:=T+'A';
        'Б': T:=T+'B';
        'В': T:=T+'V';
        'Г': T:=T+'G';
        'Д': T:=T+'D';
        'Е': T:=T+'E';
        'Ё': T:=T+'Ye';
        'Д': T:=T+'Zh';
        'З': T:=T+'Z';
        'И': T:=T+'I';
        'Й': T:=T+'Y';
        'К': T:=T+'K';
        'Л': T:=T+'L';
        'М': T:=T+'M';
        'Н': T:=T+'N';
        'О': T:=T+'O';
        'П': T:=T+'P';
        'Р': T:=T+'R';
        'С': T:=T+'S';
        'Т': T:=T+'T';
        'У': T:=T+'U';
        'Ф': T:=T+'F';
        'Х': T:=T+'Ch';
        'Ц': T:=T+'Z';
        'Ч': T:=T+'Ch';
        'Ш': T:=T+'Sh';
        'Щ': T:=T+'Ch';
        'Ъ': T:=T+'''';
        'Ы': T:=T+'Y';
        'Ь': T:=T+'''';
        'Э': T:=T+'E';
        'Ю': T:=T+'Yu';
        'Я': T:=T+'Ya';
      else t:=t+s[i];
   end;
  end;
 Transliterate := t;
end;
Frok
0 / 0 / 0
Регистрация: 03.08.2010
Сообщений: 15
04.08.2010, 13:02  [ТС]     Трансляция алфавитных символов в аналоги. #5
Спасибо за помощь
Yandex
Объявления
04.08.2010, 13:02     Трансляция алфавитных символов в аналоги.
Ответ Создать тему
Опции темы

Текущее время: 11:56. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru