Cäsar-Code

[CASA]

wir haben ein riesiges Problem
und zwar wollen wir ein Programm zum Cäsar-Code schreiben, um uns auf eine bevorstehende Klausur vorzubereiten.

Delphi-Quellcode:

procedure TForm1.CodierenClick(Sender: TObject);
var eingabe, ausgabe1 : String;
    i, ascii, schritt, n : Integer;
    c : char;
begin
  eingabe := EditEingabe.text;
  ausgabe1 := '';
  n := StrToInt(EditVerschiebungsgrad.text);
  for i := 1 to length(eingabe) do
    begin
    c := EditEingabe.text[i];
    ASCII := ord(c);
    schritt := n;
    ASCII := ASCII + schritt;
    if ASCII < ord(n)
    then ASCII := ASCII - 26;
    EditAusgabe1.Text := EditAusgabe1.text + chr(ASCII);
    end;
end;

nun muss aber noch ein mod mit in die procedure, allerdings wissen wir nicht, wie wir das umsezten sollen.
wenn ihr uns helfen könntet, wäre das sehr nett.

[edit=Luckie]Delphi Tags. Mfg, Luckie[/edit]

[Luckie]

Wieso muss da noch der Modulo-Operator rein? Es ist doch nur eine einfache Verschiebung.

[CASA]

das klappt so mit dem z nicht
außerdem is das ne angabe von unserem lehrer, dass das so soll

[Luckie]

Was für ein "z"? Benenne deine Variablen bitte mal aussagekräftig.

[implementation]

Zitat:

Zitat von CASA

Delphi-Quellcode:

procedure TForm1.CodierenClick(Sender: TObject);
var n : Integer;
begin
    ...
    if ASCII < ord(n)
    ...
end;

Sicher, dass du nicht Ord(c) meinst? :cyclops:

[fkerber]

Hi!

Ich denke, er meint den Buchstaben z, und wenn der verschoben wird, dann muss da ja wieder ein a z.B. rauskommen.
Wo genau ist das Problem? Wisst ihr, was modulo macht?

Grüße, Frederic

[himitsu]

Muß unbedingt ein MOD da rein?
So wie der Code jetzt ist, würde ein zusätzlich reingequetschtes MOD den Code nur disoptimieren und vorallem unleserlicher machen.



Ansonsten:
- wozu ist die Variable "schritt"? sie ist ja das Selbe wie "n"
- und in if ASCII < ord(n) then kann das ord(n) nicht stimmen

[Luckie]

Ach so. Wenn man auch immer nur zwei drei Sätze schreibt mit möglichst nicht mehr als fünf Worten...* :roll:

Na ja, wenn Buchstabe + Schrittweite > Anzahl Buchstaben Alphabet ist, dann musst du eben Anzahl Buchstaben Alphabet abziehen.

*) Das war jetzt auf noch ein paar andere Mitglieder bezogen.

[CASA]

Wir brauchen auf jeden Fall den mod befehl, denn dieser wird von unserem Lehrer vorausgesetzt
außerdem besteht das Problem, dass z nicht zu a umgewandelt wird, wenn wir beim veschiebungsgrad 1 eingeben, sondern es entstehen irgendwelche zeichen...
zum schluss sollen wir das ganze auch noch decodieren können, wobei weitere Probleme entstehen. die klausur steht kurz bevor und es wäre nett wenn ihr uns helfen könntet.

[Sherlock]

Zitat:

Zitat von CASA

Wir brauchen auf jeden Fall den mod befehl, denn dieser wird von unserem Lehrer vorausgesetzt

Dann bau halt irgendwo ein

Delphi-Quellcode:

if (1 mod 1 = 0) then

ein.

Sherlock