С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Maximkinzz
0 / 0 / 0
Регистрация: 05.10.2011
Сообщений: 11
1

Шифр Цезаря

04.01.2015, 20:03. Просмотров 321. Ответов 0
Метки нет (Все метки)

Люди добрые,подскажите,при шифровке вправо все работает нормально,а при шифровке влево,выдаются русские символы,как этого избежать?

Pascal
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
var
 i,k,x:integer;
 s:string;
 otvet,d:char;
Begin
 write('Bydem shifrovat (s) ili deshifrovat (d)? ');
  readln(otvet);
 if (otvet='s') or (otvet='S') then
  Begin
  write('Vvedite stroky: ');
  readln(s);
 write('Vvedite kluch: ');
  readln(k);
 write('Napravlenie klucha: (R/L) ');
  readln(otvet);
 if (otvet='r') or (otvet='R') then
  Begin
   for i:=1 to length(s) do
    Begin
     if s[i]<>' ' then
      Begin
       x:=ord(s[i]);
       if x+3>255 then x:=x-32;
       s[i]:=chr(x+k);
      end;
    end;
  end;
 if (otvet='l') or (otvet='L') then
  Begin
   for i:=1 to length(s) do
    Begin
     if s[i]<>' ' then
      Begin
       x:=ord(s[i]);
       if x-3<224 then x:=x+32;
       s[i]:=chr(x-k);
      end;
    end;
  end;
 end;
if (otvet='d') or (otvet='D') then
 Begin
    write('Vvedite stroky: ');
  readln(s);
 write('Vvedite kluch: ');
  readln(k);
 write('Napravlenie klucha: (R/L) ');
  readln(otvet);
  if (otvet='r') or (otvet='R') then
   Begin
   for i:=1 to length(s) do
    Begin
     if s[i]<>' ' then
      Begin
       x:=ord(s[i]);
       if x-3<224 then x:=x+32;
       s[i]:=chr(x-k);
      end;
    end;
  end;
 if (otvet='l') or (otvet='L') then
  Begin
   for i:=1 to length(s) do
    Begin
     if s[i]<>' ' then
      Begin
       x:=ord(s[i]);
       if x+3>255 then x:=x-32;
       s[i]:=chr(x+k);
      end;
    end;
  end;
 end;
write(s);
readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.01.2015, 20:03
Ответы с готовыми решениями:

Шифр Цезаря
Учительница истории Ирина Викторовна очень любит археологические находки. Однажды , посещая один из...

Шифр Цезаря
Нужно написать программу Шифра Цезаря не с ключом а методом перебора. Как ее написать в голову не...

Шифр Цезаря
Программа, которая шифрует файл с помощью шифра, который придумал Цезарь (т.е. алфавит сдвигается...

Шифр Цезаря
нужно написать программу которая для данного текста шифрует его с помощью шифра которые придумал...

Как использовать шифр Цезаря
const n = 3; function CaesarEncipher(toCode: string): string; var i, T: integer; begin ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.01.2015, 20:03

Шифр Цезаря - модифицировать код
помогите разобраться текст программы правильный только вот надо исправить некоторые нюансы...

Шифр Цезаря с ключевым словом
помогите разобраться с программой : программа должна быть написана по формуле E(ti)=(a*ti+bi) mod...

Шифр Цезаря как взять текст из файла
Здравствуйте, помогите пожалуйста с заданием: Составьте программное обеспечение процедур шифрования...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru