Добавить комментарии

{ Шифрование сообщения методом Цезаря }
const // Вводим константу (непеременную)
  sym = ' '+' АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'+
        ' АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'+
        ' АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'+
        ' АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'+
        ' АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'+
        ' '+
        ' абвгдеёжзийклмнопрстуфхцчшщъыьэюя'+
        ' абвгдеёжзийклмнопрстуфхцчшщъыьэюя'+
        ' абвгдеёжзийклмнопрстуфхцчшщъыьэюя'+
        ' абвгдеёжзийклмнопрстуфхцчшщъыьэюя'+
        ' абвгдеёжзийклмнопрстуфхцчшщъыьэюя'+
        ' '+
        ' 01234567890.'+
        ' 01234567890.'+
        ' 01234567890.'+
        ' 01234567890.'+
        ' 01234567890.'+
        ' '+
        ' ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
        ' ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
        ' ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
        ' ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
        ' ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
        ' '+
        ' abcdefghijklmnopqrstuvwxyz'+
        ' abcdefghijklmnopqrstuvwxyz'+
        ' abcdefghijklmnopqrstuvwxyz'+
        ' abcdefghijklmnopqrstuvwxyz'+
        ' abcdefghijklmnopqrstuvwxyz';
 
var
  s0,s1: string; // Строки, которые имеют тип string,
  //состоят из набора последовательно расположенных
  //символов char и используются для представления текста.
 
 
  key:integer; // integer - это целочисленный тип цифр,
  //также есть real - это не целочисленный тип цифр (дроби)
 
procedure Encrypt(s: string;k: integer;var es:string);
//Процедура или функция представляет собой последовательность
 //операторов, которая имеет имя, список параметров и может быть вызвана
 //из различных частей программы.
 //Для единообразия функции и процедуры называются подпрограммами
 //Encrypt - имя, которое я задал процедуре
 
 
var
  l,ll,i,p: integer;
  c:char; //Символьный тип char занимает 2 байта и хранит Unicode-символ
          //Для операций с буквами, цифрами и прочими символами
begin
  es:=s;
  l:=length(s); //length(s) возвращает длину (кол-во символов) строки s в виде целого числа. 
  ll:=length(sym);//length(sym) возвращает длину (кол-во символов) строки sym в виде целого числа. 
  for i:=1 to l do begin //i - это счётчик цикла, выполняется он до 1 раза
    c:=s[i];
    p:=pos(c,sym); p:=p+k;
    if p>ll then p:=p-ll;
    es[i]:=sym[p];
  end;
end;
procedure Decrypt(s:string;k:integer;var ds:string);
var
  l,ll,i,p:integer;
  c: char;
begin
  L:=length(s); ll:=length(sym);
  k:=1;
  ds:=s;
  for i:=1 to l do begin
    c:=s[i];
    p:=pos(c,sym)-k; if p<=0 then p:=p+ll;
    ds[i]:=sym[p];
  end;
end;
begin
  write('Введите сообщение: '); readln(s0);
  write('Выполнить сдвиг на: '); readln(key);
  if key>0 then Encrypt(s0,key,s1)
  else Decrypt(s0,-key,s1);
  writeln('Ваш результат: ',s1);
end.