Vokale und Konsonanten zählen

[userF]

[b]hallo,bin neu hier und brauch dringend hilfe. ich soll nun für die schule was machen und habe keinen Plan. bitte helft mir dringend
die fragestellung lautet: ein editfeld in delphi dort gebe ich einen satz eins dann ein button und er soll die anzahl vokale und konsonanten zählen

[mkinzler]

Lege 2 Variablen an (Vokale/Konsonaten) und Gehe in einer Schleife durch den string. Überprüfe ob Zeichen Vokal ist -> Anzahl Vokale erhöhen, wenn nicht Konsonanten erhöhen.

[Steve]

Hi,

evtl. lieber auch gezielt prüfen, ob's ein Konsonant ist, sonst werden Leer- und Satzzeichen auch als Konsonanten gezählt

Gruß
Stephan

PS: Willkommen in der

[userF]

danke dir,aber ich hab davon null ahnung echt, kannst du mir das nicht bitte etwas genauer erklären? ich brauch das nun bis 9.00 uhr schon ich werd noch wahnsinnig

[RavenIV]

Zitat von userF:

[b]hallo,bin neu hier und brauch dringend hilfe. ich soll nun für die schule was machen und habe keinen Plan. bitte helft mir dringend
die fragestellung lautet: ein editfeld in delphi dort gebe ich einen satz eins dann ein button und er soll die anzahl vokale und konsonanten zählen

a) wir sind hier keine Hausaufgaben-Erledigungs-Maschine
b) mit Fettschrift erreichst Du hier garnix
c) Du musst schon ein Wenig Eigeniniziative zeigen, sonst hilft Dir vermutlich keiner
d) Willkommen in der DP.

[userF]

ja ok,das weiß ich auch das ich selbst genug dafür tuen muss.Danke das ich willkommen bin.ich bin nun nur gerade im test drin und hatte mich auf sowas nun gerade nicht vorbereitet sorry.

[mkinzler]

Noch ein Tipp: Auf einen String kann indiziert zugegriffen werden Das i.te Zeichen bekommst du mit s[i].
@steve: Klar, daran habe ich auf die Schnelle nicht gedacht.

[Klaus01]

Du kannst da mit sets arbeiten

Delphi-Quellcode:

var
  vokale      : set of 'a','A','e','E','i','I','o','O','u','U';
  satzzeichen : set of '.' , ',';

  i,vokale_zaehler, konsonanten_zaehler: Integer;

  vokale_zaehler:=0;
  konsonaten_zaehler:=0;

  for i:=1 to length(s) do
    begin
       if s[i] in vokale then
         inc(vokale_zaehler)
       else
         if s[i] not in satzzeichen then
            inc(konsonanten_zaehler);          
    end;
  showMessage('Der Text enthält '+vokale_zaehler+' Vokale und '+konsonaten_zaehler+' Konsonanten.');

wobei s Dein Text ist.

(alles nicht getestet)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,vokale_zaehler, konsonanten_zaehler, ziffern_zaehler: Integer;
  vokale : set of char;
  satzzeichen : set of char;
  ziffern : set of char;
  s:string;

begin
  vokale      := ['a','A','e','E','i','I','o','O','u','U'];
  satzzeichen := ['.' , ','];
  ziffern     := ['0'..'9'];

  vokale_zaehler:=0;
  konsonanten_zaehler:=0;
  ziffern_zaehler :=0;

  s:=edit1.Text;
  for i:=1 to length(s) do
    begin
       if s[i] in vokale then
         inc(vokale_zaehler)
       else
         if s[i] in ziffern then
           inc(ziffern_zaehler)
         else
           if not (s[i] in satzzeichen) then
             inc(konsonanten_zaehler);

    end;
  showMessage('Der Text enthält '+IntToStr(vokale_zaehler)+' Vokale und '+IntToStr(konsonanten_zaehler)+' Konsonanten.');
end;

Grüße
Klaus

[edit]lauffähigen Code hinzugefügt[/edit]

[marabu]

Zitat von userF:

ich bin nun nur gerade im test drin und hatte mich auf sowas nun gerade nicht vorbereitet sorry.

Das nenne ich Einsatz moderner Techniken - fast so wie der Telefon-Joker beim Vokabeltest ...

Grüße vom marabu

[userF]

sorry Leute ich hätte es echt auch selbst schon versucht aber ich wuste nicht das heute der test sein wird.Danke schonmal an die die mir helfen können.Ich check das irgendwie im mom nicht so.