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

Посмотрите здесь:

Pascal Дана строка символов. Подсчитать, сколько различных символов встречаются в ней.

Turbo Pascal Данная строка символов. Подсчитать общее число входящих в сроке символов '+' и '-'.

Pascal Если число цифровых элементов больше,чем алфавитных,то получить новый массив,сцепив попарно цифровые и числовые элементы символом "&"

Turbo Pascal "перевод" из одного Паскаля в другой (аналоги функций)

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

Pascal ABC Данные о росте 15 юношей класса, упорядоченные по убыванию, записаны в массиве. В начале учебного года в класс поступил новый ученик. Получить аналоги

Turbo Pascal С помощью подпрограммы определить количество символов ‘п' и ‘у’ в строках из 100 и 300 символов.

Turbo Pascal Текстовые файлы. Подсчитать частоту алфавитных символов в текстовом файле

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

Turbo Pascal Если массив символов упорядочен по возрастанию, то вывести коды этих символов

Puporev
Модератор
43148 / 31519 / 2131
Регистрация: 18.05.2008
Сообщений: 67,480
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
Форумчанин
11773 / 5059 / 247
Регистрация: 19.09.2009
Сообщений: 7,828
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    Трансляция алфавитных символов в аналоги.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 02:07. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.