| Бағдарламаның жазылуы
BEGIN PROGRAM
Мәтінді енгізу;
FOR I:=1 TO бастапқы мәліметтің соңы DO шифрлеу;
Шифрленген мәтінді беру;
FOR I:=1 TO шифрленген мәтіннің соңы DO дешифрлеу;
Дешифрленген мәтінді беру;
END PROGRAM.
Бұл бағдарлама мәтінді шифрлеуді орыналмасыту әдісімен орындайды.
program demo;
uses crt;
var st,st1:string; i,j,k,v,code:integer;
begin
clrscr;
write('(255 символғадейінгі) мәтіндіенгізіңіз ');
readln(st);
write('Кодталған:');
for i:=1 to length(st) do
begin
v:=ord(st[i]);
st1[i]:=chr(v+3);
write(st1[i]);
end;
writeln;
write('Декодтау:');
for i:=1 to length(st) do
begin
v:=ord(st1[i]);
write(chr(v-3));
end;
readln;
end.
Зертханалықжұмыс2сағатқаарналған. Зертханалықжұмыстытапсырубақылаусұрақтарынажауапберуменжекетапсырманыңорындалуыменанықталады.
Достарыңызбен бөлісу: | 
