Por este medio se les informa que: el próximo jueves tienen un examen.
Los temas a calificar serán:
a) declaración de variables
b) uso de arreglos, contadores, sumas
c) uso del do
d) uso del while
e) uso del if-else-endif
f) archivos, open-close
g) uso de format
h) uso adecuado de common block
i) subroutines and functions
j) alguna otra cosa que hayamos visto y no he numerado.
Se les dará un problema y deberán hacer uso de las intrucciones que consideren adecuadas para resolver el problema, cuyo valor es de 80pts.
Adicionamente habrá otro problema, con valor de 20pts.
El examen dará inicio a las 7am del jueves. No es recomendable su inasistencia.
Buen día.
Suscribirse a:
Enviar comentarios (Atom)
2 comentarios:
A QUE SE REFIERE CON MOD(n,2)
CHEQUE EL PROGRAMA::::::
REAL function potencial(x,n)
implicit none
!dummy variables
REAL::x
INTEGER::n
!local variables
REAL::b0,c0
b0=1.0
c0=x
do WHILE(n.gt.0)
if (MOD(n,2).eg.0) then
!caso par
c0=c0*c0
n=n/2
else
!caso impar
b0=b0*c0
n=n-1
END if
end do
potencial = b0
END
mod(n,2) toma valor 1 o 0
mod(n,3) toma valores 2, 1, o 0
mod(n,m) toma valores m-1,m-2,...,1,0
es el residuo de la división exacta
r=mod(n,2) ya que se puede escribir
n = m*2 + r
... para m adecuada
1=mod(7,2) ya que
7=3*2+1
0=mod(10,2) ya que
10 = 5*2 + 0
... sale?
Publicar un comentario