Abilit aInformatiche Fortran 90

Document Sample
Abilit aInformatiche Fortran 90 Powered By Docstoc
					                       a
                 Abilit` Informatiche: Fortran 90
                  Prova di Laboratorio del 20 Settembre 2004

Esercizio 1

  a) leggere in input un intero positivo n e due vettori x, y ∈ IRn+1 che rappresentano
     rispettivamente le ascisse e le ordinate di n + 1 punti P0 , . . . , Pn ∈ IR2 (si richiede di
     controllare che in input sia immesso n > 0);

  b) tramite un’apposita logical function controllare che risulti Pi = Pj , ∀i, j = 0, . . . , n;

  c) in caso affermativo, ovvero se tutti gli n+1 punti sono distinti, utilizzando un’apposita
     subroutine, costruire il vettore d ∈ IRn con di = distanza(Pi−1 , Pi ), per i = 1, . . . , n
     e stampare su un file la seguente tabella:
      n dn
      ... ...
      ... ...
      ... ...
      1 d1
     In caso negativo, mandare a video un messaggio del tipo ”i punti non sono distinti”.

Si richiede di lavorare in doppia precisione e di dichiarare i vettori x e y con l’attributo
allocatable.


Esercizio 2
Scrivere un programma che riceve in input due masse m1 ed m2 ed una distanza r positiva
(si richiede di controllare che in input sia immesso r > 0);.
Tramite un’apposita real function calcolare la forza di attrazione
                                               Gm1 m2
                                         F =
                                                 r2
con G costante gravitazionale pari a 6.67 · 10−11 N w m2 /Kg 2 definita come parameter.
Stampare a video il risultato.
(Assumere che le masse siano espresse in Kg e la distanza in m).

				
DOCUMENT INFO
Shared By:
Categories:
Stats:
views:6
posted:8/19/2010
language:Italian
pages:1