[Smile188]

Программа работает , но при расшифровке удаляет пробелы, помогите исправить(программа должна удалять символы которые не входят в алфавит, она их удаляет, но и пробелы тоже удаляются)

Код:

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 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123

program zi3;   {$APPTYPE CONSOLE}   uses   windows,   SysUtils;   function Cesar_Crypt(s: string): string; const   SizeA = 34;   RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; var   i, P, n: integer;   temp: string;   flag: boolean;   Q: string; begin flag:=false;   Result := ' ';   writeln('введите размер шага');   readln(n);   s := AnsiLowerCase(s);   temp := '';     //удаление символов сообщения, не входящих в наш алфавит   for i := 1 to length(s) do     if pos(s[i], RusA) <> 0 then       temp := temp + s[i]     else       flag := true;   if flag then   begin     writeln('удалить другие символы да/нет');     readln(Q);     if Q = 'да' then       s := temp     else if Q = 'нет' then      writeln('неверный ввод. Буквы удалим ');          begin             s := temp      end;   end;   for i := 1 to length(s) do   begin       P := pos(s[i], RusA) + n;       if P > SizeA then       P := P - SizeA;     Result := Result + RusA[P];     end; end;   //Дешифрование Цезаря function Cesar_DeCrypt(s:string):string; const   SizeA = 34;   RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя  '; var   i, P, n: integer;   temp: string;   flag: boolean;   Q: string; begin flag:=false;   Result := ' ';   writeln('введите размер шага');   readln(n);   s := AnsiLowerCase(s);   temp := '';   //удаление символов сообщения, не входящих в наш алфавит     for i := 1 to length(s) do     if pos(s[i], RusA) <> 0 then       temp := temp + s[i]     else       flag := true;   if flag then   begin     writeln('удалить другие символы да/нет');     readln(Q);     if Q = 'да' then       s := temp     else if Q = 'нет' then writeln('неверный ввод. Буквы удалим ');         begin            s := temp      end;   end;   for i:=1 to length(s) do   begin   P:=pos(s[i],RusA)-3;   if P<=0 then   P:=P+SizeA;   Result:=Result+RusA[P];   end; end;   var  aStr : String;  bStr: string; begin SetConsoleCP(1251); SetConsoleOutputCP(1251);   writeln ('введите фразу для шифрования '); readln ( aStr );     writeln ('зашифрованный текст - ',Cesar_Crypt(aStr));   writeln('введите фразу для дешифрования'); readln ( bStr ); writeln ('расшифрованный текст - ',Cesar_DeCrypt(bStr)); readln; end.

[lmikle]

Удаляет не при расшифровке, а при шифровании.
Надо в алфавит соотв функции добавить пробел:

Код:

1 2 3 4

function Cesar_Crypt(s: string): string; const   SizeA = 34;   RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя ';