"sifra" v pascale

ivooo · Napísal **ivooo**: 06.01.2010 14:21

no chcel by som poradit ze ked mam program ktorym chcem kodovat aj dekodovat nejaky text tym sposobom ked chcem text zakodovat tak ho ulozi v takej forme ze kazdy kod-ty(kod mam ako konstantu) znak bude obsahovat znak z povodneho slova...
a este ze na vsetky ostatne miesta dosadi nahodny znak
tu je program

Kód:

program kodovanie;
 uses crt;
 const max=500;
       kod=3;
 var
  coded,decoded:array[1..max] of char;
  volba,i,dlzka,j:integer;
  slovo:string;
 begin
  clrscr;
  randomize;
  repeat;

   writeln('chces text dekodovat alebo zakodovat ?');
   writeln('1. zakodovat');
   writeln('2. dekodovat');
   readln(volba);

   if volba=1 then
   begin
    writeln('zadaj slovo ktore chces zakodovat');
     readln(slovo);
    dlzka:=(length(slovo)*kod);
   for i:=1 to dlzka do
    begin
     if ((i mod kod) = 0) then
      coded[i]:=slovo[(i mod kod)]
     else
      coded[i]:=chr(random(97)+32);
    end;

   end;
   inc(j);

   for i:= 1 to dlzka do write(coded[i]);
   readln;
   until j=5;
   end.

akurat ze problem je v tom ze na kazdy kod-ty znak mi vypise vzdy ten isty znak ktory nema skoro nic spolocne s povodnym slovom

Kod vkladaj do znacky [code]. Ďuri

raf · Napísal **raf**: 06.01.2010 14:48

ma tam byt coded[(i div kod)], nie coded[(i mod kod)] ako si mal, lebo to je 0 a preto tam mas vzdy to iste - takto je to spravne:

Kód:

if ((i mod kod) = 0) then coded[i]:=slovo[(i div kod)]
else

"sifra" v pascale

Podobné témy