Visual Basic - codigo

Life is soft - evento anual de software empresarial
   
Vista:

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

RE:codigo

Publicado por quique (16 intervenciones) el 10/12/2008 13:34:45
aga, grabe, echo?

¿a qué facultad vas?

Deberías estudiar mas gramática y menos programación.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Tampoco

Publicado por Manolito (7 intervenciones) el 10/12/2008 17:16:51
El problema es que no creo que ESTUDIE programación, por lo que se ve.
Así que "MENOS programación " no creo que sea posible.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tampoco

Publicado por Alguien (8 intervenciones) el 10/12/2008 17:40:42
En lugar de criticar deberían de ponerse a ayudar sino mejor ni respondan nada...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tampoco

Publicado por igor (633 intervenciones) el 10/12/2008 21:34:21
Ya, pero para ayudar hace falta alguien con una duda y lo que tiene sandra no es una duda, más bien es un trabajo no remunerado y como dice el anuncio !Yo no soy Tonnnnto!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

¿Y tú en qué ayudaste?

Publicado por Manolito (7 intervenciones) el 11/12/2008 17:15:52
Deberías poner el ejemplo, entonces, compadre ...
o mejor sigue tu consejo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿Y tú en qué ayudaste?

Publicado por Alguien (8 intervenciones) el 11/12/2008 18:03:01
La verdad no vale la pena discutir con soquetes como ustedes pero si uno no sabe como ayudar a los demás, mas vale cerrar la bocota, yo tan solo utilicé ese post para aclarárselos, montón de idiootas... apuesto que ni saben que significa la palabra programación bola de estuupidos...

(La verdad NO ENTIENDO!! como es posible que existan inuutiles como estos, no sirven para nada... debería de haber un botadero donde pudieras irlos a tirar o algo así... bueno hay algo parecido... los puedes enviar a la MIERRRRDA!!!, lo malo es que siempre regresan... en fin, que se le va a hacer...)

Saludos!! jejeje Imbeeeciles
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ni entenderás

Publicado por Manolito (7 intervenciones) el 11/12/2008 18:25:51
Pues si "no vale la pena discutir", no discutas, animal.
Saludos jijiji Pobre diablo
P. D. aprende a escribir, estupidín.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ni entenderás

Publicado por Alguien (8 intervenciones) el 11/12/2008 18:35:46
¬¬ ... De verdad que no cachas ni una, bueno al menos admites lo que eres... y pues si no lo has notado escribo asi porque la pagina censura las palabras, que son mas apropiadas para ti...

ADIOS!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ni entenderás

Publicado por Alguien (8 intervenciones) el 11/12/2008 18:36:54
PD: Aprende a programar...Stupidín...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ni entenderás

Publicado por igor (633 intervenciones) el 11/12/2008 21:21:23
Gracias "amigo".
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar