1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | C Este programa calcula ‚ para calcular a soma de 4 numeros Program Calcule IMPLICIT NONE Real Soma_Quadrado, Numero1, Numero2, Numero3, Numero4; Print *, "ENTRE COM OS QUATROS NUMEROS" read(*,*) Numero1, Numero2, Numero3, Numero4 Soma_Quadrado=0 C Soma_Quadrado=(Numero1**2+Numero2**2+Numero3**2+Numero4**2) IF (MOD(Numero1,2.0).ne.0.0) then Soma_Quadrado=Soma_Quadrado+Numero1**2 endif IF (MOD(Numero2,2.0).ne.0.0) then Soma_Quadrado=Soma_Quadrado+Numero2**2 endif IF (MOD(Numero3,2.0).ne.0.0) then Soma_Quadrado=Soma_Quadrado+Numero3**2 endif IF (MOD(Numero4,2.0).ne.0.0) then Soma_Quadrado=Soma_Quadrado+Numero4**2 endif Write(*,*) Numero1, Numero2, Numero3, Numero4 C print *, "media do semestre = ", Media_Semestre Print 4, Soma_Quadrado 4 FORMAT (////5X, "SOMA QUADRADO = ", f8.4) Stop end program Calcule |
Direct link: https://paste.plurk.com/show/784554