Ricko
Brain
Dołączył: 07 Sie 2006
Posty: 3255
Przeczytał: 0 tematów
Pomógł: 5 razy
Ostrzeżeń: 0/5
Skąd: ..::Zabrze::..
|
 Wysłany: Pią 22:58, 17 Gru 2010 Temat postu: Szyfrowanie |
|
|
ZAMIANA DWÓCH LITER W WYRAZACH
| Cytat: |
program szyfrowanie;
uses crt;
var
i,j,n:integer;
s,w:string;
begin
clrscr;
writeln ('wprowadz slowo');
readln(s);
i:=1;
w:='';
n:=length(s);
while i<n do
begin
w:=w+s[i+1];
w:=w+s[i];
i:=i+2;
end;
if i=n then
w:=w+s[i];
writeln(w);
readln;
end.
|
Przykładowy Wyraz:
Wynik Działania:
_____________________________________________________________
SZYFR CEZARA
| Cytat: |
program tekst;
uses crt;
var
plik,wyn:text;
s:string;
i,n:integer;
begin
clrscr;
assign(plik,'dane.txt'); {powiazanie pliku z danymi ze zmienna plik}
assign(wyn,'wynik.txt'); {powiazanie pliku z wynikiem ze zmienna wyn}
reset(plik); {otworz plik do czytania}
rewrite(wyn); {utworz plik, zapisz do pliku}
while not Eof(plik) do
begin
while not Eoln(plik) do
begin
read(plik,s);
n:=length(s);
for i:=1 to n do
s[i]:=upcase(s[i]);
for i:=1 to n do
if s[i] in ['A'..'Z'] then
s[i]:=chr(65+(ord(s[i])-62) mod 26);
writeln(wyn,s);
end;
writeln('Zaszyfrowano');
end;
close(plik);
close(wyn);
end. |
Zasada Działania:
| Cytat: |
Litery:
ABCDEFG
Zamienia na:
DEFGHIJ |
Przykładowy Wyraz:
Efekt:
Post został pochwalony 0 razy
Ostatnio zmieniony przez Ricko dnia Pią 23:20, 17 Gru 2010, w całości zmieniany 1 raz
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
