Buchstaben vertauschen

[GuenterM]

Hallo!
Sicherlich habt ihr von der Studie gehört, dass man Wörter lesen und verstehen kann, auch wenn alle Buchstaben bis auf den ersten und den letzten vertauscht sind. Also zum Beispiel:
"Hfile ich hbae ein Prlorebm"

Ich hab probiert ein Programm zu schreiben, das das macht - nur war das ne katastrophe. hat jemand ne ahnung, wie das gehen könnte??
Gruß G.M.

[HW764]

Mich würde das auch wundernehmen!

Gruss HW764

[alcaeus]

Hi GuenterM, Hi Kevin,

wichtig ist nur, dass der erste und der letzte Buchstabe nicht verschoben werden. Was mit dem Teil dazwischen geschieht ist egal. Ihr könntet also den Teil zwischen dem ersten und letzten Buchstaben als Array betrachten und es sortieren, oder zufällig mischen, wie oft hängt davon ab, wie stark die Buchstaben vermischt werden sollen.

Greetz
alcaeus

[Sharky]

Zitat:

Zitat von GuenterM

.... hat jemand ne ahnung, wie das gehen könnte??
Gruß G.M.

Hai Guenter,

hier mal meine Version:

Delphi-Quellcode:

function MixString (Const value : string) : String;
var
  foo : String;
  midstr : String;
  ndx : Integer;
  rand : Integer;
begin
  foo := value;
  midstr := copy (value,2,Length(foo)-1);
  for ndx := 2 to Length(foo) -1 do
  begin
    rand := Random(Length(midstr)-1)+1;
    foo[ndx] := midstr[rand];
    Delete (midstr,rand,1);
  end;
  result := foo;
end;

[Mirilin]

:hi:

klick Beantwortet zwar in keiner Weise deine Frage, aber ... hat damit zu tun :) -> 1. Runde -> Aufgaben -> Bcuhstbaenrehenifloge (Passt doch irgendwie zum Thema)


mfg Tobias

[GuenterM]

nein, nehme nicht an der schweizer informatikolympiade teil.

Zitat:

Um an der SOI 2004 teilzunehmen, musst Du Dich bis zum 4. April 2004 anmelden

:)

@ sharky.
für ein wort gehts, aber wenn ich nen satz schreib, macht er unsinn :(

[himitsu]

Du kannst ja den String erstmal z.B. mit explode zerlegen, jedes Wort einzeln bearbeiten und dann wieder mit implode zusammensetzen.

[HW764]

@ Sharky

Wenn ich

Delphi-Quellcode:

MixString(edit1.text);

schreibe, passiert in Edit1 nichts!

Gruss HW764

[Tubos]

@HW764: das kann auch nicht gehen weil der String nicht mit var übergeben wird und daher von der Funktion nicht geändert werden kann.
Richtig wäre:

Delphi-Quellcode:

edit1.text:=MixString(edit1.text);

mfg. Tubos

[Nikolas]

Das liegt daran, dass Sharky statt var const geschrieben hat.