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.

Mich würde das auch wundernehmen!

Gruss HW764

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

Zitat von GuenterM:

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

Hai Guenter,

hier mal meine Version:

zusammenfalten · markieren

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;

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


mfg Tobias

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

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

@ Sharky

Wenn ich
MixString(edit1.text); schreibe, passiert in Edit1 nichts!

Gruss HW764

@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:
edit1.text:=MixString(edit1.text); mfg. Tubos

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