Vokale Zählen

[userF]

So sollte es korrekt aussehen?

Delphi-Quellcode:

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    EdtSatz: TEdit; 
    LblVokNum: TLabel; 
    LblKonstNum: TLabel; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: Integer; 
  vokal, KonstNum: Integer; 
  Satz: String; 
begin 
  vokal    := 0; 
  KonstNum := 0; 

  // Groß-/Kleinschreibung ignorieren 
  Satz := AnsiLowerCase(EdtSatz.Text); 

  vokal     :=0; 
  KonstNum  :=0; 
  for i:=1 to length(satz) do 
    if (satz[i] in ['a', 'e', 'i', 'u', 'o']) then 
      inc(vokal) 
    else 
if satz[i] in ['a'..'z'] then 
      inc(KonstNum);

  LblVokNum.Caption := IntToStr(vokal); 
  LblKonstNum.Caption := IntToStr(KonstNum); 
end; 

end.

[TheAn00bis]

Ja, aber warum probierst du es nicht einfach aus?

[semo]

:thumb:

ich hatte weiter oben n och ne möglichkeit genannt um die satzzeichen zu zählen, dann wird dein ergebnis der konsonanten auch nicht durch enthaltene sonderzeichen verfälscht.

[userF]

Ich wollte zuerst mal Eure Meinungen dazu lesen wenn es geht.Ich bin ja am austesten und bisher scheint es auch zu funzen

[userF]

computer-glossar.de wo kann ich das am besten dazufügen deiner meinung nach?

[semo]

guck dir mal das posting nummer #31 an, dürfte das erste auf der dritten seite sein.

ich hoffe du versuchst auch nachzuvollziehen und kopierst hier nicht nur den code?

[userF]

Danke computer-glossar.de. Was bringt es mir einfach nur den Code zu Kopieren wenn ich es dann morgen nicht erklären kann wie ich dahin komme. Nein,ehrlich ich muss mich da schon mit dem ganzen Thema auseinandersetzen..Danke für die hilfe hier,ich denk nun komm ich bestimmt besser klar.

[userF]

Was mach ich nur falsch? kann keiner helfen bitte?

Delphi-Quellcode:

unit zaehlen; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 

type 
  TForm1 = class(TForm) 
    zaehlen: TButton; 
    eingabe: TEdit; 
    vokalelabel: TLabel; 
    konsonantenlabel: TLabel; 
    ausgabevokale: TEdit; 
    ausgabekonsonanten: TEdit; 
    schliessen: TButton; 
    procedure zaehlenClick(Sender: TObject); 
    procedure eingabeChange(Sender: TObject); 
    procedure schliessenClick(Sender: TObject); 
  private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end; 

var 
  Form1: TForm1; 

implementation 
var i:integer; 
    satz:string; 
    vokal:integer; 
    konsonant:integer; 

{$R *.dfm} 

procedure TForm1.schliessenClick(Sender: TObject); 
begin 
close; 
end; 

procedure TForm1.eingabeChange(Sender: TObject); 
begin 
satz:=eingabe.text 
end; 

procedure TForm1.zaehlenClick(Sender: TObject); 
begin 
    vokal:=0; 
    konsonant:=0; 
    for i:=1 to length(satz) do 
      if (satz[i]='a') or (satz[i]='e') or (satz[i]='i') 
         or (satz[i]='u') or (satz[i]='o') then 
        vokal:=1 
      else 
       konsonant:=1; 
end; 

end.

[3_of_8]

:wall:

Das hatten wir schon mal.

vokal:=1;

Wenn ein Buchstabe ein Vokal ist, weißt du der Variable vokal eine 1 zu.

Hat zur Folge: Wenn im Satz ein Vokal ist, kriegst du am Ende IMMER eine 1 raus, ansonsten 0.

Du musst schreiben vokal:=vokal+1; oder inc(vokal);

Das gleiche gilt bei den Konsonanten.

[mkinzler]

Man könnte den Eindruck bekommen, du hast all die vielen Beiträge nicht gelesen.

Zitat:

vokal:=1

so wirst du nie mehr als ein vokal finden und natürlich auch nicht mehr als ein Konsonat, obwohl ja alles was nicht kleiner Vokal ist, gleich Konsonant ist ( auch große Vokale).