[Pascal] Siforvani v Delphi5

[trinken]

Mam zasifrovat text posunutim o x znaku-->A=Z B=A.... pomozte jak

[jedik]

tomuhle se rika Caesarova sifra. hodim ti to tu v packalu bo delfy po ruce nemam kazdopadne myslenka je stejna

program CSifra;
var
   a:string[255];
   i,rotX:integer;
begin
     a:='Peta';
     writeln(a);
     rotX:=3;
     for i:=1 to Length(a) do
     begin
        case a[i] of
	    'A': a[i]:=chr(ord('Z')-(rotX mod 26)+1);
	    'B'..'Z': a[i]:=chr( ( (ord(a[i])-rotX-ord('A')) mod 26) + ord('A') );
	    'a': a[i]:=chr(ord('z')-(rotX mod 26)+1);
	    'b'..'z': a[i]:=chr( ( (ord(a[i])-rotX-ord('a')) mod 26) + ord('a') );
	    { else : .... tady si dodelaj co chces delat se znaky mimo abecedu}
	end;
     end;
     writeln(a);
     
end.

rotX ovlada posun (o kolik).

zhruba by to melo ficet

[Jezevec]

A) Prejmenuj si thread podle pravidel

B) To je tak jednoduchy, ze se vubec ptas.

Nevim syntax, ale algoritmus ti napsat muzu.

Mas promenou text="blabol", pocitam, ze k tomu jde pristupovat jako k poli znaku ukoncenymu null takze text[0]=b atd. Mno, takze to pekne vemes, hodis do smycky nako takhle:

x=0
while text[x++] not null do
  if text [x-1] = [b..z] then
     text[x-1]= ddd(chr(text[x-1])-1) //ddd fce cislo > char, si nepamaruju, jak se menuje :)
  fi
  if text[x-1] = "a" then text [x-1] ="z"
  if text&#91;x-1&#93; <> &#91;a..z&#93; then echo "si nedelej prdel"
done

Je to jen tak zbastleny v "zadnym" jazyce, ale tohle snad v delfi napsat zvladnes ne ?

Edit: Koukam, sem pomalej a vypada to, ze tu mas i rovnou Copy&Paste priklad
Edit2: 2Jedik - no fuj, delat to pres CASE.

[jedik]

Edit: Koukam, sem pomalej a vypada to, ze tu mas i rovnou Copy&Paste priklad

zadny C&P. sem to poctive ted zbastlil. gpc rulezz

// mod1
jak fuj? imho lepci 1 case nez 10 ifu minimalne prehlednejsi.

[trinken]

Diky moc