[GastForen Diverses Was sonst nirgends rein passt... Caesar-Verschiebung

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Themen
Beiträge
Moderatoren
Letzter Beitrag

Caesar-Verschiebung

Momo
Beiträge gesamt: 48

10. Mai 2004, 22:06
Beitrag # 1 von 3
Bewertung:
(812 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Weiss jemand wie man auf einem Texas Instuments Taschenrechner eine einfache Caesarverschiebung programmiert? Also mit vorgabe der Verschiebungszahl!
Dan wird bei der Verschiebung um 2 Stellen z.B. aus ABCDE CDEFG...
Ich habe den TI-89!


Dankbar für jeden noch so kleinen Tipp
Momo
X

Caesar-Verschiebung

jmraemer
Beiträge gesamt: 48

10. Mai 2004, 22:40
Beitrag # 2 von 3
Beitrag ID: #84749
Bewertung:
(812 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi!

Ich hab hier nur einen TI-82, da duerfte man kaum Chancen haben. Wenn der 89 Stringverarbeitung hat sollte es relativ leicht sein:
schleife: vom ersten bis zum letzten Buchstaben
{
ersetzen durch entsprechenden naechsten
}
Dabei kannst du die Buchstaben vielleicht ueber ihren Code ansprechen (die einzige Moeglichkeit, die ich beim 82 sehe) oder moeglicherweise in ein Array/Liste packen und da ueber den Index gehen, dann musst du nur den Ueberlauf bei index 25 (wenn du bei 0 anfaengst) bedenken.

Ich bin jetzt muede und geh schlafen, vielleicht schreib ich morgen noch was, da waere es sinnvoll, wenn du mir sagen koenntest, wie der 89 mit Strings umgeht (also ob du sie in Variablen speichern kannst etc.).

Jan-Martin


als Antwort auf: [#84741]

Caesar-Verschiebung

Momo
Beiträge gesamt: 48

11. Mai 2004, 20:41
Beitrag # 3 von 3
Beitrag ID: #84952
Bewertung:
(812 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
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



als Antwort auf: [#84741]

Aktuell

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
05.02.2021 - 05.11.2021

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Freitag, 05. Feb. 2021, 13.00 Uhr - Freitag, 05. Nov. 2021, 17.00 Uhr

Lehrgang

Bilden Sie sich zum zertifizierten Publishing-Multimedia-Profi aus. Neben Fotografie und Video befassen Sie sich mit der Medienproduktion, digitalen Publikationen und dem Webdesign für Desktop- und mobile Endgeräte.

Preis: CHF 10'500.-
Dauer: 30 Tage (ca. 210 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PM

Veranstaltungen
05.03.2021 - 30.04.2021

Digicomp Academy AG, Zürich oder virtuell
Freitag, 05. März 2021, 13.00 Uhr - Freitag, 30. Apr. 2021, 17.00 Uhr

Lehrgang

Im berufsbegleitenden Web Publisher Lehrgang vertiefen Sie Ihr Wissen rund um das Thema Screendesign und die Umsetzung von Websites. Wir befähigen Sie dazu selbständig und professionell Ihren Webauftritt zu planen und in die Realität umzusetzen.

Preis: CHF 3'250.–
Dauer: 8.5 Tage - Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt.

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PWEB

Neuste Foreneinträge


Verwendung von Quark-Version ohne Support oder wie komme ich von Quark weg ;-)

Serien-Dateinamenänderung (mit Automator?) "nur die ersten 7 Schreibstellen"

Abschnitt mit Absatzformat beginnen?

Scriptphänomen alle 16 Steps

Fotobuch mit gleicher längster Bildseite

Schwarz überdruckt nicht

Von Quark nach Indesign konvertieren

Illustrator 2021 Stapelverarbeitung

Startvolum

Barrierefreies PDF> keine klickbaren Fußnoten im PDF (Tagbaum)
medienjobs