Fortran: if (ibcbeg-1) 11,15,16

[Walter (Gast)]

ich habe zwar vor Urzeiten Mal Fortran gelernt, das ist mir aber 
unbekannt. Kennt jemand dieses Fortran statement,
ich vermute mal bei <0 wird 11 angesprungen,
bei 0 15 und bei >0 16

[Davis (Gast)]

Realisierung in FORTRAN 66: Arithmetisches IF

   IF ( konto ) 1, 2, 3                   ! Arithmet. IF-Anweisung
1  WRITE(*,100) 'Negativer Kontostand'    ! konto < 0
   GOTO 4
2  WRITE(*,100) 'Konto leer'              ! konto = 0
   GOTO 4
3  WRITE(*,100) 'Positiver Kontostand'    ! konto > 0

Quelle: 
http://www2.informatik.uni-halle.de/lehre/fortran/sprache/ftn334.html

[Walter (Gast)]

also wie ich vermutete, vielen Dank.
Dank des Sichworts habe ich es jetzt auch mit google gefunden,

Ich zitiere:
"Schon in grauer Vorzeit fanden Programmierer arithmetische 
IF-Anweisungen sehr unterhaltsam, weil damit der Programmcode 
interessanter gestaltet werden konnte"

Das kann ich nur bestätigen:
nachdem ich erst versuchte das Fortranprogramm (das ein C-Programm 
werden soll) schön mit if und else zu strukturieren, habe ich es jetzt 
aufgegeben, jetzt bilde ich es halt ziemlich 1:1 ab, also auch mit den 
ganzen goto

eine interessante Angewohnheit des Programmierers (Prof) sind auch die 
Kommentarzeile:
c in der ersten Spalte leitet ja einen Kommentar ein,
um Buchstaben zu sparen schreibt er dann z.B.
construct last equation from the second boundary condition

und verwendet also das c von construct doppelt,
das waren noch Zeiten ...

[Werner M. (Gast)]

Walter schrieb:
> nachdem ich erst versuchte das Fortranprogramm (das ein C-Programm
> werden soll) schön mit if und else zu strukturieren, habe ich es jetzt
> aufgegeben, jetzt bilde ich es halt ziemlich 1:1 ab, also auch mit den
> ganzen goto

Pfui

> ... und verwendet also das c von construct doppelt,
> das waren noch Zeiten ...

sehr hübsch - der Mann hat Spaß am Quellcodeschreiben ...

[Helge A. (besupreme)]

Kommt vermutlich aus Lochkarten-Zeiten. Jeder gesparte Punch zählt ;)

[Werner M. (Gast)]

Helge A. schrieb:
> Kommt vermutlich aus Lochkarten-Zeiten. Jeder gesparte Punch zählt ;)

Die Lochkarte wird - im Gegensatz zu einer Textdatei - nicht 
schmäler/kürzer, nur weil man irgendwo nichts ausstanzt.

[Bastler (Gast)]

Sie bleibt sogar schwererer, wenn man sich Löcher spart ;-)

[Wilhelm F. (Gast)]

Bastler schrieb:

> Sie bleibt sogar schwererer, wenn man sich Löcher spart ;-)

Sie ist aber dann auch reißfester.

Z.B. wenn sich zwei Kollegen um die Karte streiten, und daran Tau ziehen 
üben. Da kann jedes nicht gestanzte Loch zählen!

;-)

[Karl H. (kbuchegg)]

Werner M. schrieb:
> Helge A. schrieb:
>> Kommt vermutlich aus Lochkarten-Zeiten. Jeder gesparte Punch zählt ;)
>
> Die Lochkarte wird - im Gegensatz zu einer Textdatei - nicht
> schmäler/kürzer, nur weil man irgendwo nichts ausstanzt.

Wer redet denn von der Lochkarte?
Nach 5000 eingetippten Zeilen bist du um jeden Tastendruck froh, den 
deine Finger nicht machen müssen :-)