Red de conocimiento informático - Aprendizaje de programación - Conceptos básicos de programación de Fortran90

Conceptos básicos de programación de Fortran90

Resultado final:

? 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

¿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! !