Uses.
crt;
Function decrypt (a:string):string;
Var i, k: integer;
Begin.
For i:=1 to length (a) do.
If (a[i] = 'А') or (a[i] = 'а') then Begin.
k:=ord (a[i])+31;
a[i]: =chr (k);
End.
else.
If a[i] in ['Б'.'Я','б'.'я'] then Begin.
k:=ord (a[i])-1;
a[i]: =chr (k);
End;
decrypt:=a;
End;
Function encrypt (a:string):string;
Var i, k: integer;
Begin.
For i:=1 to length (a) do.
If (a[i] = 'Я') or (a[i] = 'я') then Begin.
k:=ord (a[i])-31;
a[i]: =chr (k);
End.
else.
If a[i] in ['А'.'Ю','а'.'ю'] then Begin.
k:=ord (a[i])+1;
a[i]: =chr (k);
End;
encrypt:=a;
End;
Var.
a:string;
mode:byte;
Begin.
Readln (a);
Repeat.
Write ('Выберите режим (1-шифрование, 2-расшифрование): ');
Readln (mode);
Until (mode = 1) or (mode=2);
Case mode of.
- 1:writeln (encrypt (a));
- 2:writeln (decrypt (a));
End;
End.
Проверка: шифрующий дешифрующий Паскаль блок-схема Например введем текст «Я люблю маму».
Выберем режим (1-шифрование, 2-расшифрование): 1.
Получим: А мявмя нбнф Введем «А мявмя нбнф».
Выберем режим (1-шифрование, 2-расшифрование): 2.
Я люблю маму Вывод: зашифрованные и расшифрованные данные полностью совпадают.
Блок схема
Выводы
Я обрела навыки работы в среде программирования Pascal. Результатом моей работы стала программа «Шифрование и дешифрование текста».
Основными результатами работы стали:
- 1. Изложение материала по теме «шифрование и дешифрование текста».
- 2. Описание алгоритма программы
- 3. Описание программы
- 4. Составление блок-схемы, характеризующей работу программы
- 5. Составление и испытание программы шифрующей и дешифрующей текст пятью различными методами