AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Vokale Zählen

Ein Thema von userF · begonnen am 18. Jun 2006 · letzter Beitrag vom 19. Jun 2006
Antwort Antwort
Seite 5 von 7   « Erste     345 67      
userF

Registriert seit: 12. Jun 2006
33 Beiträge
 
#41

Re: Vokale Zählen

  Alt 18. Jun 2006, 14:02
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.
  Mit Zitat antworten Zitat
TheAn00bis

Registriert seit: 7. Jun 2004
386 Beiträge
 
#42

Re: Vokale Zählen

  Alt 18. Jun 2006, 14:03
Ja, aber warum probierst du es nicht einfach aus?
  Mit Zitat antworten Zitat
Benutzerbild von semo
semo

Registriert seit: 24. Apr 2004
755 Beiträge
 
Delphi 2010 Professional
 
#43

Re: Vokale Zählen

  Alt 18. Jun 2006, 14:04


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.
  Mit Zitat antworten Zitat
userF

Registriert seit: 12. Jun 2006
33 Beiträge
 
#44

Re: Vokale Zählen

  Alt 18. Jun 2006, 14:05
Ich wollte zuerst mal Eure Meinungen dazu lesen wenn es geht.Ich bin ja am austesten und bisher scheint es auch zu funzen
  Mit Zitat antworten Zitat
userF

Registriert seit: 12. Jun 2006
33 Beiträge
 
#45

Re: Vokale Zählen

  Alt 18. Jun 2006, 14:06
computer-glossar.de wo kann ich das am besten dazufügen deiner meinung nach?
  Mit Zitat antworten Zitat
Benutzerbild von semo
semo

Registriert seit: 24. Apr 2004
755 Beiträge
 
Delphi 2010 Professional
 
#46

Re: Vokale Zählen

  Alt 18. Jun 2006, 14:09
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?
  Mit Zitat antworten Zitat
userF

Registriert seit: 12. Jun 2006
33 Beiträge
 
#47

Re: Vokale Zählen

  Alt 18. Jun 2006, 15:07
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.
  Mit Zitat antworten Zitat
userF

Registriert seit: 12. Jun 2006
33 Beiträge
 
#48

Re: Vokale Zählen

  Alt 18. Jun 2006, 22:20
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.
  Mit Zitat antworten Zitat
Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#49

Re: Vokale Zählen

  Alt 18. Jun 2006, 22:24


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.
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#50

Re: Vokale Zählen

  Alt 18. Jun 2006, 22:25
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).
Markus Kinzler
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 5 von 7   « Erste     345 67      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz