Шифрование, Заканчиваем 11 класс, а тут программирование совсем сложным стало... П Опции

[Black Zi]

1. Создать программу шифровщик-дишифровщик. Вначале выбераем шифровку или дишифровку выполняем. Для шифровки вводим русский текст, преобразуем все буквы в заглавные, а затем прибавляем каждому коду буквы сдвиг (сдвиг может быть и отрицательным, мы сами его вводим). А на дишифровщике точно на оборот... Заранее благодарю!!!

[Tan]

Ну вот вроде шифровка так выглядит, если я правильно понял ( или с русскими по другому? ), для любых сиволов. Это только шифровка обратный процесс аналогичен:

uses crt;
var s : string;
   ch : char;
    n,i : integer;
newstring : string;
begin
Clrscr;
writeln ('Vvedite stroku');
readln (s);
newstring:=s;
writeln ('Shifrujem: Y/N');
readln (ch);
    if (Ch='y') or (Ch='y') then
  begin
           writeln ('Vvedite velichinu smeshenija? ');
           readln (n);
           for i:=1 to Length(S) do
       begin
            newstring[i]:=Upcase(chr(ord(s[i])+n));
       end;
  end else exit;
writeln ('Novaja stroka: ',newstring);
readkey;
end.

Сообщение отредактировано: Tan - 19.03.2007 18:20