Programmieren in Fortran, Zeichenkette sortieren..

Hallo Stefan,

wie wär's mit den ASCII-Werten der eingelesenen Zeichen als Zeiger auf ein Ergebnis-Array?

Gruss
Günter

Hi Günter,
ich bin mir nicht sicher, ob Fortran so'n Typenmissbrauch erlaubt. Außerdem setzt es die Verwendung von ASCII auch voraus. Was machst Du dann in einer Rechnerumgebung mit EBCDIC-Code? (oder anderen Codetabellen, die landestypische Zeichen mit 2 Bytes oder noch anders codieren. Denk mal an ein "ü" im Domainnamen.)

Mit Fortran kann ich aber nicht dienen, COBOL, Pascal hab ich noch schwach in Erinnerung. Und da konnte man Zeichenketten Zeichen für Zeichen einlesen bis ein EOF auftratt. So nach dem Motto:

Solange Zeichen NOT EOF tue dies:
Lese Zeichen
Normiere und Vergleiche (wg. Groß/Klein)
nächstes Zeichen

Fortran ist aber bei Schleifen "strenger", da muss man die Länge der Zeichenkette vorher ermitteln und damit die vorab festlegen, wie oft man die Schleife durchläuft.

Gruß

Hallo Stefan,

wie wär's mit so was:

CHARACTER BEISPIELTEXT*100
      CHARACTER C
      INTEGER I
      INTEGER N
      INTEGER ANZAHL(256)


*     BEISPIELTEXT = 'DIES_IST_MEIN_BEISPIELTEXT_BEI_DEM_DIE_EINZELNEN_ZEICHEN_GEZAEHLT_WERDEN'
      READ*, BEISPIELTEXT
      DO 5 I = 1, 256
        ANZAHL(I) = 0
5     CONTINUE


      DO 10 I = 1, LEN(BEISPIELTEXT)
        C = BEISPIELTEXT(I:I)
        N = ICHAR(C)
        ANZAHL(N) = ANZAHL(N) + 1
10    CONTINUE


      DO 20 N = 1, 256
        IF (ANZAHL(N) .GT. 0) THEN
          PRINT*, CHAR(N), ANZAHL(N)
        END IF
20    CONTINUE
      END

Solltest dann noch die Häufigkeit sortieren...

Gruß aus der Pfalz

... welcher wahnsonnige lässt euch in fortran programmieren??

... hab ich schon bei meiner diplomarbeit ned verstanden, wieso ich das jetzt tun muss ...

lg
wolfi

Wolfi,

[:D][:D]
So 'ne Frage hatte ich vor 15 Jahren hinsichtlich COBOL an der Uni. Handschriftlich kodiert auf Formblatt mit 'Lochspalten'. Wehe, man hat das Raster nicht eingehalten, das gab Punktabzug. Bis ich dann als Prüfer dann die Realität erleben durfte. Das war dann eine Mischung aus COBOL und Assembler.

Ist zwar schon eine Weile her, aber in COBOL hatte man so wunderbare "99" als Feldbelegung**, wenn man Datensätze löschen wollte. Dumm nur als man dann das Ende des letzten Jahrtausend erreichte und Jahreszahlen "platzsparend" nur mit zwei Ziffern hinterlegte.

[:D][:D][:D]

Gruß

** Beim nächsten Sortierungslauf landeten solche Datensätze dann ans Ende der Datei und konnten dann easy entfernt werden. Nicht dass jemand denkt, die wären damals "blöd" gewesen.[;)]

Ein bißchen Geschichtsbewußtsein kann nicht schaden. Aber Fortran geht ja noch. Die hier wären schlimmer:

http://de.wikipedia.org/wiki/Esoterische_Programmiersprache
http://esolangs.org/wiki/Language_list

Viele Grüße
Stick