FORTRAN 90 – examples

Esempi semplici per studenti universitari (AeroSpaziale):

1)

cerchio_f90

2)

!————————————————————-
!–
!–  convertitore euro-lire e lire-euro
!-   usa: if..then….elsif …
!–       do……..end do
!–
!–
!–   Autore: Giuseppe Talarico
!–   Data  : 10/10/2007
!————————————————————-

convertitore_f90

3)

!————————————————————–

!      trovare le radici di una equazione di secondo grado

!      del tipo a*x**2 + b*x + c = 0

!

!  Autore: Giuseppe Talarico

!  Data  : 09/10/2007

!————————————————————————————–

equazione_sg_f90

4)

!************************************************************

!*

!*  Dato un intero segnalare se lo stesso è pari o dispari

!*  uso if..then….else

!*

!*

!*  Autore: Giuseppe Talarico

!*  data  : 10/10/2007

!*

!************************************************************

pari_dispari_f90

5)

!******************************************************************************

!*

!*  Data una sequenza, terminata da 0, di numeri positivi

!*  Visualizzare T se sono tutti pari , F altrimenti

!*

!*  uso di “logical” per definire una variabile booleana che può

!*  assumere due soli valori VERO (.TRUE.) o FALSO (.FALSE.)

!*  uso del ciclo infinito   “do …end do”

!*  N.B. il ciclo infinito può terminare con “exit” oppure “stop”

!*

!*  Si imposta una variabile logica a VERO e se viene immesso un numero dispari

!*  la si cambia a FALSO

!*

!*  Autore: Giuseppe Talarico

!*  data  : 10/10/2007

!*

!*********************************************************************************

tutti_pari_f90

Alri esempi seguiranno. Stay Tuned! (di tanto in tanto sbircia!)