LÍO EN LA ESCUELA. BIOPROGRAMANDO ANDO (4)

Chistecito 1

- PAI

- SÍ OTIS

- SUEÑO CON JUGAR UN MUNDIAL

- MANTENETE HUMILDE Y JUGÁ MUCHO

- ¿SOLO ESO?

- SI TE TOCA EL BANCO ORÁ.

JAJAJA.

Chistecito 2

(EN LA CLASE DE BIOINFORMÁTICA)

- MAESTRA

- SÍ OTIS

- ¿PODEMOS PROGRAMAR EN GW-BASIC UN JUEGO DE FUCHIBOL?

- SÍ PODEMOS, QUE DIVERTIDO.

(UN TIEMPO DESPUÉS)

- CHICOS ESTE ES NUESTRO CÓDIGO:

5 'SET DE INSTRUCCIONES DEL BASIC https://www.abcelectronique.com/forum/attachment.php?attachmentid=59456

10 D = INT(RND(6)*10)

20 CLS

30 PRINT "JUEGO DEL BOMBAZO A LO BATIGOL"

40 PRINT@12*64+D,":)"

50 PRINT@12*64,"o"

60 INPUT "ANGULO DE TIRO(NUMERICO DE 0 A 6)";A

70 FOR C=-5 TO 5 

80 Y = INT((C^2)/2)

90 X = (C*A)+(5*A)

100 PRINT@Y*64+X,"o"

110 GOSUB 190 'CALL DELAY

120 NEXT C

130 R = 0

140 IF (X=D) THEN PRINT@12*64+ X,"* " : PRINT "DIO EN EL BLANCO!!!" ELSE PRINT "ERRAR HUMANUM EST..." : R=1

150 PRINT "PRESIONA UNA TECLA"

160 IF INKEY$="" THEN GOTO 160

170 IF R=1 THEN GOTO 20

180 GOTO 10

190 ' *** DELAY ***

200 FOR T=0 TO 80

210 NEXT T

220 RETURN

(SE METE FELIPE)

- ¿QUÉ SIGNIFICA RND(6) EN LA LÍNEA 10?

- ES RAMDOM, UN NÚMERO ALEATORIO DE 1 A 6.

- ¿Y PRINT@12*64+D,":)" EN LA LÍNEA 40?

- IMPRIME EN LA PANTALLA, EN LA LÍNEA 12 Y COLUMNA D UNA CARITA.

- ¿QUÉ ES ESTA FUNCIÓN  Y = INT((C^2)/2) EN LA LÍNEA 80?

- GUARDA EN LA VARIABLE Y C^2 (C AL CUADRADO) DIVIDIDO POR 2, Y A TODO ESO LE SACA LOS DECIMALES CON INT.

(SE METE OTIS)

- ¿QUÉ SIGNIFICA INKEY$ EN LA LÍNEA 160?

- LA COMPUTADORA ESPERA QUE PRESIONEMOS UNA TECLA CUALQUIERA.

- ¿Y POR QUÉ SE LLAMA EL PROGRAMA BATIGOL?

- ¿ES CHISTE OTIS?

- SÍ.

JAJAJA.

Chistecito 3

- JESÚS, EL SER HUMILDE ES LO MÁS IMPORTANTE PARA SER BUEN PROGRAMADOR Y BUENA PERSONA.

AMÉN.

EJEMPLOS DE PARÁBOLAS A LO PAVOTE