ejercicios programacion Fortran

[Ilcostritore]

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

[Serapis]

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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)

• Hallar la suma de los cuadrados de los 100 primeros números enteros impares.

Código [Seleccionar] Expandir


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...