Ich habe ein neue Aufgabenstellung zum lösen!
Es soll ein Text vom Benutzer eingegeben werden (Abbruch mit #). Anschließend wird die Gesamtlänge des Textes sowie die Anzahl der jeweiligen Vokale ausgegeben.
Wie kann ich das machen?
Ich habe mal so angefangen
Delphi-Quellcode:
var ch:char;
anz:integer;
begin
i:=-1;
repeat
ch:=readkey;
write(ch);
anz:=anz+1;
until (ch = '#');
writeln;
writeln('Die Länge des Textes beträgt ' ,anz , ' Zeichen');
end.
Aber es soll zusätzlich noch ausgegeben werden das es 8 A waren und 7 X und so weiter! wie kann ich das machen?
[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]