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 :dance:

PS: Willkommen in der :dp:

[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:

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:

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.

[Klaus01]

was ich nicht verstehe ist, daß wenn Tests laufen immer noch der Zugang zum Internet freigeschaltet ist.

Grüße
Klaus

[userF]

bitte leute ich brauch dingends hilfe wenns geht.im mom kann ich solche anmerkungen das jemand es nicht versteht wieso bei einem test noch Netz vorhanden ist echt nicht gebrauchen sorry ist ja nicht böse gemeint.

[RavenIV]

Zitat:

Zitat von Klaus01

was ich nicht verstehe ist, daß wenn Tests laufen immer noch der Zugang zum Internet freigeschaltet ist.

Grüße
Klaus

und vor allem hat er in einem Test Zeit, um hier Kommentare zu schreiben...
so stressig kann's ja nicht sein ;-)

[mkinzler]

Zitat:

Ich check das irgendwie im mom nicht so.

Klaus01 hat dir die Lösung doch schon auf dem Silbertablett präsentiert, jetzt mußt du sie nur noch einbauen.

[userF]

inc(vokale_zaehler)

muss ich das nicht als variable angeben= den zähler wie mach ich das

[userF]

Das hab ich bisher geht aber leider nicht und ich weiß nicht warum.

Delphi-Quellcode:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    eingabe: TEdit;
    vokale: TLabel;
    Label2: TLabel;
    ausgabevokale: TEdit;
    ausgabekonsonanten: TEdit;
    zaehlen: TButton;
    schliessen: TButton;
    procedure zaehlenClick(Sender: TObject);
    procedure schliessenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
var
  Form1: TForm1;
implementation
var satz:string;
    i:integer;
    buchstabe:string;
{$R *.dfm}
procedure TForm1.schliessenClick(Sender: TObject);
begin
close;
end;
procedure TForm1.zaehlenClick(Sender: TObject);
vokal:=0;
konsonant:=0;
begin
 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;
end;
end.

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]

[Klaus01]

if (satz[i]='a') or (satz[i]='e') or (satz[i]='i')
or (satz[i]='u') or (satz[i]='o') then
vokal:=1;


bei Dir kommt immer 1 raus stimmts?

Dann frag Dich mal warum?

Warum schickst Du Deinen Beitrag zweimal, und beim nächsten Mal die Delphi Tags setzen.

Grüße
Klaus

[userF]

ja,ich komm aber gerade nicht drauf wieso.kannst du mir das nicht eben bitte sagen?

[Klaus01]

nein, ruhig bleiben und selber nachdenken.

Grüße
Klaus

[userF]

sorry ich hab noch 15 minuten dann ist es vorbei ich bin voll fertig im mom.ich seh den fehler einfach nicht.sorry das ich das 2mal gesendet hatte und nicht die regeln beachtet hatte

[CG2003]

Wie heisst es doch so schön? Aus Fehlern lernt man.
Sorry, aber hier während eines Tests eine Lösung rauszusaugen finde ich schon mehr als dreist.

[RavenIV]

und?
hast Du ne Lösung gefunden?

[DGL-luke]

Also bitte, Leute, noch nie gehört, dass man Leuten, die in Not sind, helfen sollte? Hat von euch noch niemand vom Nachbarn abgeschaut? Der Arme hat sicher jegliches Interesse an Delphi verloren... :(

[mkinzler]

Hallo Lukas, was hätte Klaus01 noch machen sollen, dort hinfahren und den test für ihn zu schreiben?

[DGL-luke]

^^

na Inc(vokal) hinschreiben, bzw. vokal := vokal + 1...

[Klaus01]

nun, ich habe vocal:=1 doch schon extra dick markiert
darauf kommen, daß man den Wert addieren muß war dann
doch wirklich nicht mehr so schwierig.

Wie man addiert oder Werte hochzählt sollte
einem doch auch unter Teststreß einfallen.
Außerdem war das in dem Beispiel von mir auch schon drin.

Grüße
Klaus

[mquadrat]

*g* nettes Thema :D

Welcher Lehrer kommt überhaupt auf die Idee an PCs programmieren zu lassen.. Wir mussten das immer alles auf Papier machen.

[inherited]

LOL, ich (da ich in der Sys-Admin-AG der Schule bin) hab gegen die benutzung des internets mal ein Programm geschrieben. Kann ich allerdings jederzeit deaktivieren :P

[mbamler]

Zitat:

Zitat von userF

inc(vokale_zaehler)

muss ich das nicht als variable angeben= den zähler wie mach ich das

Sach mal - merkst du noch was ?

[inherited]

ICh glaub nich das der wiederkommt :cry:
[sing]He's leeaaaavvvinnnng, on a jetplane, don't know when he'll be back again[/sing]

[SirThornberry]

@mbamler: Überleg dir bitte was du schreibst und unterlasse Beleidigungen jeglicher Art. Wenn du etwas konstruktives zum Thema beitragen willst kannst du das gerne machen, aber überlege dir bitte zukünftig deine Wortwahl.

Ansonsten finde ich es richtig das dem Fragesteller die Aufgabe nicht abgenommen wurde. Im Codex steht eindeutig das wir keine fertigen Programme für Leute schreiben oder deren Hausaufgaben machen. Und mehr als darauf hinweisen welche Zeile falsch ist (wurde ja fett dargestellt) können wir auch nicht. Eine Schulzensur soll das wissen des Schülers wiederspiegeln und wenn der Schüler versäumt hat etwas zu lernen so ist er selbst schuld und lernt am ehesten wenn nicht andere führ ihn die Arbeit machen/schreiben.

[CG2003]

Zitat:

Zitat von SirThornberry

@mbamler: Überleg dir bitte was du schreibst und unterlasse Beleidigungen jeglicher Art. Wenn du etwas konstruktives zum Thema beitragen willst kannst du das gerne machen, aber überlege dir bitte zukünftig deine Wortwahl.

Ansonsten finde ich es richtig das dem Fragesteller die Aufgabe nicht abgenommen wurde. Im Codex steht eindeutig das wir keine fertigen Programme für Leute schreiben oder deren Hausaufgaben machen. Und mehr als darauf hinweisen welche Zeile falsch ist (wurde ja fett dargestellt) können wir auch nicht. Eine Schulzensur soll das wissen des Schülers wiederspiegeln und wenn der Schüler versäumt hat etwas zu lernen so ist er selbst schuld und lernt am ehesten wenn nicht andere führ ihn die Arbeit machen/schreiben.

a, ich würde sagen, damit ist alles gesagt... :hello:

[stifflersmom]

Zitat:

Zitat von userF

inc(vokale_zaehler)

muss ich das nicht als variable angeben= den zähler wie mach ich das

Du solltest Dir mal den bereits geposteten Quelltext genauer ansehen,
dort sind doch die notwendigen Variablen deklariert

Delphi-Quellcode:

var
  i,vokale_zaehler, konsonanten_zaehler, ziffern_zaehler: Integer;

Moin

[3_of_8]

Ich zitiere mal vollkommen wertungsfrei eine niederbayrische Redewendung:

Zitat:

Do is Hopfn un Moiz valoan.

Und auf Deutsch:

Zitat:

Da ist Hopfen und Malz verloren.

Und @topic (falls es hier noch eines gibt):
@userf (falls es den hier noch gibt):
Frühzeitig mit Hausaufgabe anfangen, bei Bedarf Lehrer fragen und dann nicht kurz vor Abgabeschluss in der DP panisch eine Lösung einfordern.

[Klaus01]

@stifflersmom
habe ich nachträglich editiert, zu dem Zeitpunkt waren Sie noch nicht deklariert,
da bin ich davon ausgegangen, das solche "Kleinigkeiten" wohl selbstständig gelöst werden könnten.

Grüße
Klaus

[stifflersmom]

@Klaus01

und ich hatte mich wirklich schon gewundert...

Moin