Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge

FORTRAN: Maximalwert auslesen lassen... Anfänger!

Koch79 / 3 Antworten / Flachansicht Nickles

Hallo zusammen,


ich muss in Fortran 77 ein Programm schreiben, dass aus 2 Spalten eines Textdokumets die Maximlawerte ausließt. Die Spalten sind nur mit (3) Leerzeichen getrennt. Kann mir jemand eine Anweisung geben wie ich das angehen soll? ich bin ziemlicher Anfänger und habe mich gerade in die verschiedenen Datentypen eingearbeitet.


Desweiteren habe ich ein Programm geschrieben zum üben, dass ein Textdokument mit 4 Zahlen drin öffnet und die dann in einer neuen Datei abspeichert. Nur die Formatierung klappt nicht. Aus Zahlen werden immer seltsame Zeichen. 


z.BSP: àý à0   àý à0   àý à0   àý à0


Das Programm sieht so aus: (habe mal alle mir bekannten Datentypen getestet...)


CHARACTER DRU*10
 REAL A(150), B(150)
 INTEGER I,N
 PARAMETER (PAR=1)
 
 N=30
 
 OPEN(1,FILE='DRU_01.txt',STATUS='OLD')
 OPEN(2,FILE='aus.txt',STATUS='UNKNOWN') 
 OPEN(3,FILE='char.txt',STATUS='UNKNOWN')
 OPEN(4,FILE='par.txt',STATUS='UNKNOWN')
  
  DO  I=0,N
  
   READ(1) A(I)
   B(I)=A(I)
   WRITE(2) B(I)
   WRITE(3) DRU
   WRITE(4) PAR
  ENDDO
  
 CLOSE(1)
 CLOSE(2)
 CLOSE(3)
 
 END


 


Hier ein Auszug was in der DRU_01 Datei steht:


0.0000E+00  0.1624E+01
0.1000E+00  0.1576E+01
0.2000E+00  0.1624E+01
0.3000E+00  0.1624E+01
0.4000E+00  0.1576E+01


Könnt ihr mir helfen?????? BITTEEEEE


DANKE


 


 

bei Antwort benachrichtigen
Koch79 Nachtrag zu: „FORTRAN: Maximalwert auslesen lassen... Anfänger!“
Optionen

Danke Sehr!

Ich habe wirklich im Moment erst mal nur rumprobiert. Wollte nur mal zeichen einlesen und wieder speichern. Mit Maximalwerten hab ich noch nix gemacht. Gestern habe ich immerhin schon mal ein Programm geschrieben, dass 3 Zahlen abfragt (Tastatureingabe) und den Maximalwert bestimmt... Ich bin stolz!

Kannst du mir noch den Tip geben wie ich denn die ASCI Strings einlese und damit rechne? Einfache binärdaten habe ich heute geschafft einzulesen. Maximalwert geht aber noch nicht.
Ich habe einfach eine Datei mit 4 beliebigen Zahlen erstellt...

VIELEN DANK FÜR DEINE MÜHE! DANKE FÜR DIE KRITIK

bei Antwort benachrichtigen