Drei Chinesen mit dem Kontrabass

[Oimeldoimel]

Guten Tag liebe Leute,

ich stehe vor folgendem Problem, dass ich die Aufgabe bekommen habe....
ein Programm zu erstellen mit Delphi, das nach der Eingabe der Liedzeile:
"Drei Chinesen mit dem Kontrabass" und der Wahl des Vokals A E I O U
eine neue Liedtextzeile ausgibt in der alle Vokale ersetzen wurden....

z.B alle Vokale werden durchs I ersetzt:
Drii Chinisin mit dim Kintribiss

Wie setzt man das nun erstmal in ein Struktogramm um und dann anschließend in einen Delphi-
quelltext.

Würde mich sehr auf Antworten freuen:)
mfg oimel

[DeddyH]

Das geht mit einer einfachen Schleife (String durchgehen, Zeichen auf Vokal prüfen und ggf. ersetzen).

P.S: Willkommen in der DP :dp:

[mkinzler]

Oder in einem Rutsch.

[Die Muhkuh]

Für ein Struktogramm bietet sich eine For-Schleife an (siehe DeddyH), im (Delphi-)Source bietet sich die Funktion "StringReplace" an.

[sirius]

Zitat:

Zitat von mkinzler

Oder in einem Rutsch.

in so 1 bis 5 stringreplacerutschen :mrgreen: Dann wird das Struktogramm aber ein bisschen fad.

[DeddyH]

StringReplace dürfte intern auch mit einer Schleife arbeiten.

[STS301]

oder abfragen ob es ein Vokal ist und dann ihn statt den Vokalen einfügen
zb.

Delphi-Quellcode:

Showmessage('Dr'+edit1.text+edit1.text+' Ch'....) //zwar nicht die beste, aber die einfachste Methode

[angos]

Zitat:

Zitat von STS301

oder abfragen ob es ein Vokal ist und dann ihn statt den Vokalen einfügen
zb.

Delphi-Quellcode:

Showmessage('Dr'+edit1.text+edit1.text+' Ch'....) //zwar nicht die beste, aber die einfachste Methode

... ich gehe davon aus, das durch die aufgabe etwas beigebracht werden soll..., und das hier ist zwar eine möglichkeit die für wahrscheinlich jeden ersichtlich ist, aber so ziemlich das schlechteste was man machen kann (man lernt nichts und wird durch stupides hundertfaches tippen des selben wertes eher gefrustet als alles andere ;) ), eine schleife ist da doch schon wesentlich angebrachter ;) und wird auch bei dem ein oder anderem ein lichtlein aufgehen lassen.

Gruß
Ansgar

[STS301]

wie gesagt, das ist die einfachste

[vlees91]

Pseudo Code

Delphi-Quellcode:

function ersetzInString(text: String, vokal: Char): String;
var
  position: integer;
  vokale: array['a', 'e', 'i', 'o', 'u'] of Char;
  neuerText: string;
begin
  neuerText := '';
  for position := 1 to count(text) - 1 do
  begin
    if text[position] not in vokale then              //ist das kein Vokal? (warum kein? weil man normalerweise das ins if setzt, was am oeftesten passiert
      neuerText := neuerText + text[position]         //alter Buchstabe dran; ACHTUNG siehe unten
    else                                              //und hier was weniger oft passiert
      neuerText := neuerText + vokal;                 //neuer Vokal dran; ACHTUNG siehe unten
  end;
  result := neuerText;                                   //zurueckgeben
end;

hab seit langem nicht mit Delphi gearbeitet und da ich auch grade keins hier hab weiss ich niccht ob das hier funktionieren wird.

bei dem ACHTUNG: hier muss man um das text[position] bzw. vokal ein String(...) setzen, da es sonst ein inkompatibeler Typ ist (String und Char).