Zahlenvorkommen zählen

[Linguini]

Hallo,

ich hab mal wieder für euch wohl ein Kinderproblem.

Ich habe eine Zahlenkette nach diesem Schema : 38 19 74 81 73 38 2719 271 usw.

Nun will ich mit Delphi zählen wie oft welche Zahl darin vorkommt.
Danke

[jfheins]

Sind die Zahlen beschränkt?

Wenn ja, kannste Bucketsort verwenden. Ansonsten mit einem anderen Algorithmus sortieren und nachher dann ne Liste machen mit den Zahlen

[alzaimar]

Zitat von Linguini:

Danke

Bitte bitte, keine Ursache.
Äh. Wofür bedankst Du dich?

[Linguini]

@jfheins

Was meinst du mit beschränkt?
Es sind immer gleich viele Zahlen, allerdings variiert wieviele Stellen sie haben. Getrennt sind sie immer durch ein Leerzeichen.

@alzaimar

Bisher konnte mir DP immer helfen

[jfheins]

Mit beschränkt meine ich, ob die Zahlen immer kleiner sind als eine Zahl X (Bzw. ob für alle möglichen Mengen eine kleinste obere Schranke X existiert, so dass X kleiner ist als die Anzahl der Elemente)

Also wenns z.B. Lottozahlen sind, kann eine Zahl nicht größer als 49 werden - das meine ich

[Linguini]

Die Grenze liegt bei 100(inbegriffen).

[jfheins]

Ja dann ist ja einfach
Entweder mit explode() ein Array erzeugen, oder eine Funktion schreiben, die einen String als var-Argument bekommt und die erste Zahl rausschneidet und zurückgibt.

Dann ein Array[0..100] of Cardinal; deklarieren und die Zahlen nach und nach einsortieren. Mit der oben beschriebenen Funktion ungefähr so:

Delphi-Quellcode:

var
zaehler: Array[0..100] of Integer;
temp: Integer;
begin
// ggf. mit nullen füllen
while str <> '' do
begin
  temp := getfirstnumber(str);
  zaehler[temp] := zaehler[temp] + 1;
end;

[alzaimar]

Zitat von Linguini:

Bisher konnte mir DP immer helfen

Richtig. Aber ein Post ohne eine konkrete Frage und ohne Anzeichen von Eigeninitialitive ist hier nicht gerne gesehen.

Zu deinem Problem: Für jede Zahl hast du einen 'Topf'. Gehe deine Zahlenliste durch und lege in jeden Topf der aktuellen Zahl ein Steinchen.

Übertragen auf ein Programm würde ich den Topf als Zahl darstellen und 'ein Steinchen in den Topf legen' als 'Topf := Topf + 1' implementieren.
Da Du für jede Zahl einen Topf hast, kannst du ein Array deklarieren. Wenn es viel zu viele unterschiedliche Zahlen sein können, dann wird es etwas komplizierter.

[Linguini]

Danke für eure Hilfe
Hab es hinbekommen.