Fortran - codigo

 
Vista:

codigo

Publicado por sandra (1 intervención) el 10/12/2008 12:59:54
hola como estan.
Estoy re preocupada. me dieron este codigo en la facultad para que lo aga en otro lenguaje. cualquiera sea. como se manejar VB6 lo quiero pasar a VB6. Pero tengo un grabe problema porq no se que significa este codigo.
Alguien puede ayudarme.. desde ya gracias. un millon de gracias.
Si pueden explicarme el funcionamiento, las declaraciones de las variables.

Aqui comienza:

INTEGER COLA, TTOTAL, CTOTAL
100 FORMAT (1H1, 6X, ≠F≠, 6X, ≠CTOTAL≠, 6X, ≠TTOTAL≠, 6X, ≠TIEMPO≠)
100 FORMAT (5X, 13, 3(4X, F8.2)
WRITE (6,100)
DO 11 J=1,10
F=F
COLA=0
TTOTAL=0
MIN=0
C GENERACION DE 12000 MINUTOS
DO 10 I=1, 12000
IF (COLA) 2,5,2
2 MIN =MIN-1
IF (MIN)5,3,5
3 COLA=COLA-1
IF (COLA) 4,5,4
4 MIN=5
5 U=RANF(0)
X=U*60
IF (X-F) 6,6,10
6 CTOTAL=CTOTAL+1
IF (COLA) 7,8,7
7 TCLIEN= 5*(COLA-1)+MIN
TTOTAL=TTOTAL + CLIEN
8 COLA=COLA +1
IF (COLA-1)10,9,10
9 MIN=5
10 CONTINUE
T=TTOTAL
C=CTOTAL
TME=T/C
11 WRITE (6,101) J, C, T TME
CALL EXIT
END
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder