Adunarea elementelor unui șir.

Dacă se consideră șirul x1, x2, x3, ..., xk, ...., xn cu n componente și se pune problema însumării elementelor sale, schema logică aferentă este:

Programul este:

         SUBROUTINE SUMA (X,N,SUM)
         SUM=0.
         DO 10 I=1,N
10     SUM=SUM+X(I)
         RETURN
         END

Fără prea multe modificări acest subprogram se transformă în subprogramul pentru calculul mediei aritmetice simple sau mediei aritmetice ponderate sau pentru calculul mediei armonice dar și pentru calculul mediei geometrice.



(23 decembrie 2017)