Foro de elhacker.net

Programación => Programación General => Mensaje iniciado por: Ilcostritore en 26 Octubre 2017, 20:41 pm



Título: ejercicios programacion Fortran
Publicado por: Ilcostritore en 26 Octubre 2017, 20:41 pm
Necesito algunos consejos sobra como hacer estos ejercicios en programacion Fortran95

Determinar si un cierto número entero, n, es par o impar. Utilice funciones
intrínsecas de F : Este lo he planteado de la siguiente manera:
program par
integer:: numero1, numero2
real:: resto
read*, numero1, numero2
resto = mod (numero1,numero2)
if (resto == 0) then
print*, "par"
else if (resto == 1) then
print*, "impar"
end if
end program par

Sin embargo, el comando mod me han dicho que no funciona para hallar el resto asi que estoy intentando usar el algoritmo de euclides pero no se como

• Hallar la suma de los cuadrados de los 100 primeros números enteros impares.
• Encontrar las n raíces n-ésimas de un número.
• Resolver una ecuación de segundo grado. Examine previamente toda la casuística
posible.
• Determinar el factorial de un número. Construya una función factorial


Título: Re: ejercicios programacion Fortran
Publicado por: Serapis en 27 Octubre 2017, 23:21 pm
Citar
el comando mod me han dicho que no funciona para hallar el resto asi que...

Cuando un lenguaje carece de una función, toca implementarla.
Código:
entero = funcion Modulo(dividendo, divisor)
   entero n

    n = ParteEntera(dividendo / divisor)

    Devolver (dividendo - n)
fin funcion

Entonces tu función de paridad sin (simplificar), quedaría así:
Código:
buleano = funcion EsPar(valor)
    entero n
    n = Modulo(valor, 2)

    devolver (n = 0)
fin fncion
Igualmente puede recrears ela función inversa, EsImpar devolveindo (n=1)

Citar
• Hallar la suma de los cuadrados de los 100 primeros números enteros impares.
Código:
entero = Funcion SumaCuadrados
    entero k,  suma 
 
    bucle para k desde 1 a 100
        Si EsPar(k) = FALSE luego  //se pide la suma de los impares
            Suma = (suma + k)
        fin si
    fin bucle

    Devolver suma   
fin funcion

Avanza, codifica y luego comenta donde tengas problemas, pero plantea dudas específicas, no el problema completo...