Vokale Zählen

[semo]

*räusper*

wir hatten dir doch schon genügend fertige beispiele gepostet.

Delphi-Quellcode:

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

--> dies ist überflüssig, da du ja den satz nur in deiner procedure TForm1.zaehlenClick(Sender: TObject); benötigst.

auch lässt du dir norgendwo ein ergebnis anzeigen, was du doch vorhin schon drin hattest?

es gibt auch due möglichkeit schrittweise durch das programm zu steppen (debugging genannt),
setze dazu einen breakpoint (durch drücken von F5) in der Zeile "begin" der procedure:

Delphi-Quellcode:

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;

danach kannst du mit F8 Zeilenweise durch da sProgramm steppen und dir die Inhalte der Variablen anzeigen lassen.

[userF]

sorry ich sitze schon den ganzen tag da dran.die ideen waren bisher auch gut zu verwenden nur einige funktionen hatte ich davon noch nicht in der schule und kann die deshalb nicht anwenden und hab versucht die so hinzubekommen das es mit den funktionen klappt die ich kenne.

[mkinzler]

Du kannst natürlich auch

Delphi-Quellcode:

vokal := vokal +1;

bzw.

Delphi-Quellcode:

konsonant := konsonant + 1;

schreiben.

[semo]

welche funktionen hattest du denn davon nicht? ist doch alles standard?!

Delphi-Quellcode:

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

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

  // jedes Zeichen des Satzes prüfen:
  for i:=1 to length(satz) do
    // prüfen ob wir einen Buchstaben haben:
    if (satz[i] in ['a'..'z']) then
    begin
      // unterscheiden zwischen vokalen und Konsonanten
      if (satz[i] in ['a', 'e', 'i', 'u', 'o']) then
        inc(vokal)
      else
        inc(KonstNum);
    end else
      inc(sonderzeichen);

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

wenn du das AnsiLowerCase nicht hattest, dann musst du nur die Großbuchstaben bei deinen Abfragen berücksichtigen:

Delphi-Quellcode:

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

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

  // jedes Zeichen des Satzes prüfen:
  for i:=1 to length(satz) do
    // prüfen ob wir einen Buchstaben haben:
    if (satz[i] in ['a'..'z']) or (satz[i] in ['A'..'Z']) then
    begin
      // unterscheiden zwischen vokalen und Konsonanten
      if (satz[i] in ['a', 'e', 'i', 'u', 'o', 'A', 'E', 'I', 'U', 'O']) then
        inc(vokal)
      else
        inc(KonstNum);
    end else
      inc(sonderzeichen);

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

[3_of_8]

Ich schätze mal, Sets wird er auch noch nicht gehabt haben.

EDIT: Und wenn du ne Funktion noch nicht hattest, sag deinem Lehrer, dass du in die OH geschaut hast.

[semo]

wenn erkeine sets hatte, dann muss er ja nur seine if-prüfungen erweitern um die Großbuchstaben.....

[3_of_8]

Das kann ein Problem geben bei den Konsonanten. 42 and's in nem if, uuuh...

[semo]

wenn der lehrer das so will, kenne da auch so einige exemplare...
die kennen nur bestimmte funktionen und techniken und was anderes wird nicht erlaubt - voll schwachsinnig

[mkinzler]

Man kann ja auch ein case mit den ASCII-Codes nehmen.

[3_of_8]

Ich glaube, dass er auch das noch nicht hatte.