Zählen von Buchstaben III

LetterCount.om

(* print counts *) i := 0; WHILE i < letters DO IF count[i] > 0 THEN Write.Char(CHR(i + ORD("A"))); Write.String(": "); Write.Int(count[i], 1); Write.Ln; END; INC(i); END;

Für die Ausgabe muß der Index i jeweils in einen Buchstaben abgebildet werden. Dies geschieht, indem zunächst zu i der Ordinalwert von ``A'' addiert wird. Danach konvertiert CHR den so gewonnen Ordinalwert in ein Zeichen.