Szyfr Cezara
Procedure cezar(s:PChar;p:shortint);
var i,n:longint;
beginn:=StrLen(s);
p:=(p+26) mod 26;
for i:=0 to n do
if s[i] in ['a'..'z']
then s[i] := chr( (ord(s[i]) + p - ord('a') ) mod 26 + ord('a') ) else
if s[i] in ['A'..'Z']
then s[i] := chr( (ord(s[i]) + p - ord('A') ) mod 26 + ord('A') );end;
BEGINWriteln('Wprowadz przesuniecie');
Readln(p);
Writeln('Wprowadz text');
Readln(s);
cezar(s,p);
Writeln('Po zakodowaniu');
Writeln(s);
cezar(s,-p);
Writeln('Po rozkodowaniu');
Writeln(s);
Writeln('Wcisnij Enter');
Readln;END.
Podobne strony
Podobne Strony • Sortowanie Przez Kopcowanie • Sortowanie Babelkowe • Rok Przestepny • Wieża hanoi • wyswietlanie liczby calkowitej metodą odejmowania poteg • Parzysta Nieparzysta • Ruchoma Gwiazdka • Sortowanie Przez Wstawianie • Sortowanie Przez Wybieranie • QuickSort • Nww • Metoda Babelkowa • Silnia • Miejsca Zerowe Funkcji Kwadratowej • Fibonacci
wersja strony: 2, ostatnia edycja: 18 Jul 2009 19:23