Morsealphabet als Binärbaum programmieren? What?

[Clashhelfer]

Zitat von freimatz:

Was ist denn die Datei morsebaumanwendung.urd?
Vermutlich soll man die Datei uBinTree.pas verwenden. Dessen Code habe ich mal überflogen

Was bedeutet das nun konkret? Was die Datei morsebaumanwendung.urd ist, weiß ich nicht. Kann sie auch nicht öffnen.
Hast du einen groben Plan, was man bei a) und b) tun soll?
Danke für deine Antwort

[KodeZwerg]

hab probleme dein google auf zu machen. Screenshot - 16_10 003.jpg

[Clashhelfer]

Zitat von KodeZwerg:

hab probleme dein google auf zu machen. Anhang 50100

https://drive.google.com/open?id=1CU...3ym0hbmSQYGMdo
Müsste damit wieder gehen,
LG

[KodeZwerg]

sorry, ich gebe es auf. Screenshot - 16_10 004.jpg bzw probiere es später von zu hause nochmal

[Clashhelfer]

Zitat von KodeZwerg:

sorry, ich gebe es auf. Anhang 50101 bzw probiere es später von zu hause nochmal

Gerne, Edit: Das Ganze soll doch implementiert werden[in Delphi]

Die Unit dafür habe ich schon geschrieben.. Inhalt brauch ich nurnoch und da fehlt mir das nötige Wissen.. Bzw. ich verstehe es nicht.

Delphi-Quellcode:

unit uTMorsecode;

interface

uses
  uBinTree, graphics;

implementation


type
 TMorsecode = class(TBinTree)

  public
     constructor Create (canvas: TCanvas);
     function code (text: String): String;
     function decode(Text: String): String;
  private
     function charcode (c: char; node: TNode; code: string): string;
     function chardecode (c: char; node: TNode; code: string): string;
 end;

implementation
 
.
.
.

end.

[hoika]

Hallo,
hast du dir uBinTree.pas und dessen Klasse/Methoden schon angesehen?

Bsp:

Delphi-Quellcode:

function TBinTree.insertleft(c: char): boolean;
  // Es wird an der Cursorposition ein neues Blatt an den Baum gehängt, wenn
  // der Cursorknoten links einen leeren Teilbaum besitzt. Bei einem leeren Baum
  // wird der Wurzelknoten erzeugt. War das Einfügen erfolgreich, wird das
  // Zeichen "c" als Knoteninhalt gespeichert "true" zurückgegeben - sonst "false".

Ich fange ich mit einem leeren Binärbaum an:

var 
  BinTree: TBinTree;
begin
  BinTree:= TBinTree.Create;
  BinTree.Empty;  // eigentlich nicht notwendig, weil der Baum ja eh leer ist

  BinTree.insertleft('E');
  // Der "Cursor", also der aktuelle Knoten ist jetzt
  BinTree.insertleft('I');

  so dann erst mal alle ganz linken rein ('S', 'H','5').
  Danach mit Reset wieder auf Root.
  BinTree.Reset;
  auf 'E' springen
  BinTree.Left;
  BinTree.InsertRight('A');

So kannst Du dir schrittweise deinen Baum aufbauen.

[Klaus01]

.. ist es in dem Beispielbaum (in dem .odt) nicht so , das man vom root node wenn ein "-" kommt nach rechts im Baum abzweigt, und wenn ein "." nach links.

T(-) steht dann rechts vom root-node
M(--) steht rechts vom T node
N(-.) steht dann links vom T node.

E(.) steht dann entsprechend links vom root-node.


Grüße
Klaus