Версия для печати темы

Автор: .студенточка. 20.05.2013 21:39

написать программу, которая выполняет алфавитное кодирование. солнце ]?+, .

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

Автор: APAL 21.05.2013 15:53

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;