Program na zakódovanie a dekódovanie textu

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu

Zrobil: Pheo
web: pascalsource.ic.cz

Program: Sifrovanie_textu.pas
Subor exe: Sifrovanie_textu.exe

Program na zakódovanie a dekódovanie textu. Kódovanie je urobené tak, že každé písmeno sa nahradí nasledujúcim v abecede.
{ SIFROVANIE_TEXTU.PAS                           Copyright (c) Pheo }
{ Program na zakódovanie a dekódovanie textu. Kódovanie je urobené  }
{ tak, že každé písmeno sa nahradí nasledujúcim v abecede.          }
{                                                                   }
{ Datum:24.04.2003                             http://www.trsek.com }
 
program sifrovanie_textu;
uses crt;
var i,k,n:integer;
    a,b :string;
begin
     writeln ('zadaj text');
     read (a);
     writeln ('zvol postup: 0-kodovanie,1-dekodovanie');
     read(k);
     n:=length(a);
     for i:=1 to n do
     begin
          if k=0 then b[i]:=succ (a[i]);
          if k=1 then b[i]:=pred (a[i]);
          write (b[i]);
     end;
     writeln;
     repeat until keypressed;
     if k=1 then clrscr;
end.