SUMMATION
!Program name: SUMMATION
!Summation of product elements, ab, of
vectors A and B
Real*8 S,A(5),B(5)
Print *, 'Input the five elements of vector
A: '
Read *, A
Print *, 'Input the five elements of vector
B: '
Read *, B
S=0
Do 1 I=1,5
S=S+A(I)*B(I)
1
continue
Print *, 'The summation of the product
elements, ab, is: ', S
stop
Comentários
Postar um comentário