Conceptos básicos de programación de Fortran90
? 3.1308185099450458?
3.1415964015690721?
3.1415483065637204?
3.0710763125803080?
3.1415483065637204?
3 .1415964015690721?Mi programa. 36638.86868686667
¿Módulo? La primera letra del alfabeto griego
¿Implícita? ¿Nadie
incluye
función? Fun(x)
real*8: :x, sx, fun
Entero: :n, I
Fun=0
i=1
sx =(-1)* *(I 1)* I * sin(2 * I * x)/(4 * I * * 2-1)* * 2 p>
¿Qué hacer? while(abs(sx)>=1e-9)
Diversión=Diversión sx
i=i 1
sx =(-1)* *( I 1)* I * sin(2 * I * x)/(4 * I * * 2-1)* * 2
Endor
fun=fun*16/ ( x*cos(x))
¿Fin? ¿Función? ¿Se acabó la diversión? ¿Módulo? La primera letra del alfabeto griego
¿Programa? Comunicación
¿Uso? La primera letra del alfabeto griego
¿Implícita? Nadie
Real*8::x(7),y(7)
Entero::I
open(8, file='MYF2. DAT')
open(9, file='MYF2.OUT')
leer como (8, *)x
¿Qué hacer? i=1, 7
y(i)=fun(x(i))
Escribe (9,*)y(i)
Endo
Escribir(*, *) "Salida exitosa"
Leer(*, *)
¿Fin? ¿programa? ¡Comm quiere ayudarte! !