Fortran: diferència entre les revisions
Contingut suprimit Contingut afegit
m neteja i estandardització de codi |
Mitja -> Mitjana i retocs d'estil del redactat. Etiqueta: editor de codi 2017 |
||
Línia 109:
=== Assignació de memòria ===
El següent programa mostra l'ús de l'assignació dinàmica de memòria
<syntaxhighlight lang="fortran">
program
! Llegeix uns quants nombres i
! Tal i com està escrit, si no hi ha punts d'entrada, la
! Tot i que potser aquest no és
implicit none
Línia 124:
real :: average_points=0., positive_average=0., negative_average=0.
write (*,*) "Entreu el nombre de punts dels que desitgeu calcular-ne la
read (*,*) number_of_points
allocate (points(number_of_points))
write (*,*) "Entreu els punts dels que en voleu calcular la
read (*,*) points
! Calculant la
if (number_of_points > 0) average_points = sum(points) / number_of_points
! Ara calcularem la
if (count(points > 0.) > 0) then
positive_average = sum(points, points > 0.) / count(points > 0.)
Línia 147:
! Mostra el resultat al terminal
write (*,'(a,g12.4)') '
write (*,'(a,g12.4)') '
write (*,'(a,g12.4)') '
end program
</syntaxhighlight>
| |||