Beispiel 2

var t,wort:string;
    v:integer;

t:='HALLO';
v:=2;
wort:='';
procedure caesar_test;
var a,i,ascii:integer;
begin
  a:=length(t);
  wort:='';
  for i:=1 to a do
     begin
       ascii:=(t[i]); //ord noch nicht bekannt, einfach weglassen, dann wandelt er automatisch um
       if (ascii<91) and (ascii>64)
          then begin ascii:=ascii+v;
                     if ascii>90 then ascii:=ascii-26;
                     wort:=wort+chr(ascii)
               end
          else wort:=wort+' ';
     end;
end;

t:= inputDialog('Klartext');
v:= StrToInt(inputDialog('Verschiebezahl'));
caesar_test;
writeln (Wort);

var t,wort:string;
    v:integer;
procedure caesar;
var a,i,ascii:integer;
begin
  //Länge vom Klartext t bestimmen
  //Zählschleife mit Laufvariable a
     begin
       //Ermittle den ASCII-Code (ascii) des i-ten Buchstabens
       //addiere v zum Ascii-Code
       wort:=wort+chr(ascii)         
     end;
end;

Suche