С Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

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

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

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

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

Если число цифровых элементов больше,чем алфавитных,то получить новый массив,сцепив попарно цифровые и числовые элементы символом "&" - Pascal
В массиве А содержатся элементы с только цифровой или только алфавитной информацией.Длинна элемента-6 символов.Если число цифровых...

Текстовые файлы. Подсчитать частоту алфавитных символов в текстовом файле - Turbo Pascal
Помогите, пожалуйста: Напишите программу, которая считает частоту алфавитных символов в текстовом файле, путь к которому задается...

Дана строка символов. Подсчитать общее число вхождений символов +, -, *, / в строку. Произвести обмен символов + и -. - Turbo Pascal
помогите, пожалуйста.

Строку из n символов распечатать по m символов. Если в последней строке нет m символов, то ее не печатать - Pascal ABC
Строку из n символов распечатать по m символов в строке. Если в последней строке нет m символов, то ее не печатать.

Трансляция Русских предложений в Unicode (например, А в \u0410) - Pascal ABC
Здравствуйте, дорогие форумчане! У меня появилась такая проблемка: Мне необходимо, например, транслировать строку "привет" в вид "...

Дана строка символов. Преобразовать данную строку, удалив из нее каждую пару символов >> и вставив вместо них пару символов <<. - Pascal ABC
Дана строка символов. Преобразовать данную строку, удалив из нее каждую пару символов &gt;&gt; и вставив вместо них пару символов &lt;&lt;. После...

4
Puporev
Модератор
52581 / 40426 / 13744
Регистрация: 18.05.2008
Сообщений: 93,573
03.08.2010, 12:57 #2
Цитата Сообщение от Frok Посмотреть сообщение
название тем паскаля(7.0) к которым эта программа относится
Темы однозначно Строки или работа со строками, а также строковые массивы. В массивах хранить сами строки(текст), а также создать 2 массива-константы из строк-заменителей. В этих массивах некоторые элементы будут только из одного символа.
А вообще поискать темы и справочные материалы по транслитерации, были такие темы на форуме.
1
Frok
0 / 0 / 0
Регистрация: 03.08.2010
Сообщений: 15
03.08.2010, 20:56  [ТС] #3
Спасибо, почитаю, может что получится.
0
Mawrat
12792 / 5699 / 672
Регистрация: 19.09.2009
Сообщений: 8,807
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;
1
Frok
0 / 0 / 0
Регистрация: 03.08.2010
Сообщений: 15
04.08.2010, 13:02  [ТС] #5
Спасибо за помощь
0
04.08.2010, 13:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.08.2010, 13:02
Привет! Вот еще темы с ответами:

Работа с файлами. Измените регистр алфавитных символов текста - C++
В файле test.in записан текст на английском языке. Измените регистр алфавитных символов. (Пример: &quot;Hello, World!&quot; Станет &quot;hELLO, wORLD!&quot;)....

Блокировка алфавитных клавиш - C#
Помогите за блокировать буквенную раскладку клавиатуры программно, всех кроме цифр

трансляция ip - Софт
Доброго времени суток. жизнь поставила такую задачу: есть некий ресурс в локальной сети и к нему допущен один из компов сети с...

Трансляция с C# на С++ - C++
Здравствуйте. Прошу помощи: кто может транслировать этот проект с C# на С++ ? Немного о проекте: Windows Forms приложение в VS2010,...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.