Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#5

Re: Problem in Pascal!

  Alt 27. Okt 2003, 18:44
Zitat von Sofa5000:
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?
Da sind schon einige Hämmer drin: i ist nicht deklariert, höchstens globaler, was aber keinen Sinn macht. anz ist nicht initialisiert. Ich vermute mal, daß das ganze auf ein Array hinauslaufen soll, wobei jedem Buchstaben die Anzahl der Vorkommnisse zugeordnet werden soll.
Gruß
Hansa
  Mit Zitat antworten Zitat