Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите пожалуйста решить задачу
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
.студенточка.
написать программу, которая выполняет алфавитное кодирование. солнце ]?+, .

А В Е Н О П К И Я Р Т С У М Л З
* / . , ? : ; - ( ) [ ] % \ + !
APAL
Const
MaxNCod = 16;

Type
tCod = Array [1..2,1..MaxNCod] Of Char;

Const
cod : tCod =
(('А','В','Е','Н','О','П','К','И','Я','Р','Т','С','У','М','Л','З'),
('*','/','.',',','?',':',';','-','(',')','[',']','%','\','+','!'));

Function codChar(Ch : char) : Char;
Var i : Byte;
Begin
CodChar:=Ch;
For i:=1 to MaxNCod do
If ch=cod[1,i] then codChar:=cod[2,i];
End;

Function DeCodChar(Ch : char) : Char;
Var i : Byte;
Begin
codChar:=Ch;
For i:=1 to MaxNCod do
If ch=cod[2,i] then codChar:=cod[1,i];
End;


Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.