Zum Inhalt
Beispiel 2
Aus ProgrammingWiki
<
Gymnasium Zitta
<
Langer
Archivierte Version vom 2011-01-19T13:30:54+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; procedure caesar; var a,i,ascii:integer; begin a:=length(t); for i:=1 to a do begin ascii:=ord(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:= StrToFloat(inputDialog('Verschiebezahl')); caesar; writeln (Wort);
ausführen
Seite
Quelltext
Versionen/Autoren
Konto registrieren
Anmelden
Navigation
Startseite
Letzte Änderungen
Alle Seiten
Einführungskurs
Hilfe
Dateien
Suche
Suchen
Werkzeuge
Links auf diese Seite
Spezialseiten