codigo
Publicado por sandra (86 intervenciones) el 10/12/2008 13:01:45
hola como estan.
Estoy re preocupada. me dieron este codigo en la facultad para que lo aga en VB6 lo quiero pasar a VB6. Pero tengo un grabe problema porq no se que significa este codigo. Esta echo en Fortran
Alguien puede ayudarme.. desde ya gracias. un millon de gracias.
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
Estoy re preocupada. me dieron este codigo en la facultad para que lo aga en VB6 lo quiero pasar a VB6. Pero tengo un grabe problema porq no se que significa este codigo. Esta echo en Fortran
Alguien puede ayudarme.. desde ya gracias. un millon de gracias.
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


0