Beispiel 2

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T13:20:19+00:00. Aktuelle Version

Der Caesar-Algorithmus

Teste das Programm mit verschiedenen Eingaben.
Erkläre mit eigenen Worten, was das Programm macht.

var t,wort:string;
    v:integer;
function caesar;
var a,i,ascii:integer;
begin
  a:=length(t);
  for i:=1 to a do
     begin
       ascii:=ord(t[i]);
       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:= StrToFloat(inputDialog('Verschiebezahl'));
caesar
writeln (Wort);

Beispiel 2

Suche