Hey, danke für die Antwort...
Das mit den Strings weiss ich nich so genau, hab aber was im Internet gefunden:
http://www.land.salzburg.at/...deutsch/ti92p89d.pdf Auf Seite 38 wird die Caesarverschiebung als Teilstück eines zusammenhängenden Programmes beschrieben. Hab versucht, nur sie Caesarverschiebung da rauszupicken, klappt aber nich ganz...
Vom Prinzip her is das eigentlich genau das was ich brauche.
Hab es auf "TOPPASCAL" programmiert, da klappts, bin aber mit dem TI-89 nich so geübt...
program caesar;
var klartext:string;
shift,i,x:integer;
begin
Input('Geben Sie bitte den Klartext ein (in Kleinbuchstaben)',klartext);
Input('Geben Sie nun bitte die gewünschte Verschiebungszahl ein',shift);
if shift>=26 then shift:=shift-26;
if shift<=-26 then shift:=shift+26;
for i:=1 to length(klartext) do
begin
x:=ord(klartext
)-97+65+shift;
if x<65 then x:=x-85+90;
if x>90 then x:=x-90+65;
if ord(klartext)=32 then x:=32;
write(chr(x));
end;
end.
Danke für die Bemühungen
MfG
Momo