QB306

ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ

К ЩЛЫЛЩЛЩЛЫЛЩЛЩЫЛЩЛЩЛЫЩЛЩЛЩ ЩЛЫЛЩЛЩЛЫЩЛ К

К ЬМЬЙКККЛЬЙЬЙКЪКЬЙК КККККК ККЬЙЬЙШЛКК К

К Ъ ЪШШМШМЪШЪЪЪ ЪЪЪШМЪШММШМ ШЙЪМЪЪШМЪШМ К

ЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЫЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ

К ЩЫЛЩЛЫЛЛЩЫ ЩЛ ЩЛ К К

К КЪКККККККК КК Й К PROGRAMACION ESTRUCTURADA К

К Ъ ЪШМЪМШМШМШМ ШМ К К

ЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЪЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ

К К

К EN ESTA LECCION APRENDERAS... К

К К

К кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП К

К Г Г К

К Г ў ЈCu les son las unidades estructurales Г К

К Г de un programa? .............................. 2 Г К

К Г ў ЈQu es un diagrama de flujo? ................ 3 Г К

К Г ў ЈQu es bucle? ............................... 5 Г К

К Г ў Lo que es un bloque de un bucle Г К

К Г con su contador despus de la prueba Г К

К Г IF/THEN ...................................... 7 Г К

К Г ў Lo que es un bloque de un bucle Г К

К Г con su contador antes de la prueba Г К

К Г IF/THEN ...................................... 7 Г К

К Г ў Lo que es un bloque de un bucle Г К

К Г sin contador ................................. 8 Г К

К Г ў Lo que es un bloque de un bucle Г К

К Г en ramas ..................................... 8 Г К

К Г ў Lo que es un bloque de secuencia ............. 9 Г К

К Г ў La definiciЂn completa de 9 Г К

К Г PROGRAMACION ESTRUCTURADA .................... 10 Г К

К Г ў Los bucles traducidos al ingls 9 Г К

К Г con sus correspondientes diagramas Г К

К Г de flujo ..................................... 11 Г К

К Г Г К

К РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй К

К К

ЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЫЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ

К ЩЛЫЛЫ ЩЛЩЛ ЩЛЩЛЩЛ К К

К ККЬЙК Ь К ЙККЬЛ К BLOQUES DE CONSTRUCCION К

К ШЙЪМШМШМШМ ШМШМШМ К К

ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЪЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ

ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЫЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ

К ЩЛЫЛЫ ЩЛЩЛ ЩЛЩЛЩЛ К К

К ККЬЙК Ь К ЙККЬЛ К BLOQUES DE CONSTRUCCION К

К ШЙЪМШМШМШМ ШМШМШМ К К

ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЪЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ

UNIDADES ESTRUCTURALES DE UN PROGRAMA

-------------------------------------

En la lecciЂn QB000 sobre programaciЂn DE ARRIBA A ABAJO

(Top Down Programming) habЁamos indicado que dicha programaciЂn

no era suficiente para escribir programas bien estructurados, que

necesit bamos algo m s. Este es precisamente el tema que

discutiremos a continuaciЂn.

Para descubrir ese "algo" necesario para la programaciЂn

estructurada, consideraremos el programa que estudiamos en la

lecciЂn 301: el juego titulado ADIVINA UN NЃMERO.

Vuelve a leer el programa cuyo listado aparece al final de

esta lecciЂn. Lelo cuidadosamente otra vez. Im ginate cЂmo

funciona y lo que hace cada una de sus subrutinas. Luego de que

lo hayas estudiado, digЁtalo en tu computadora y ejecЃtalo.

Estudia cuidadosamente cЂmo funciona realmente.

En la prЂxima p gina ver s su diagrama de flujo (flowchart).

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 3 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

(EMPIEZA)

кФФФФФФФФФФФФФФ> [TURNO=1]

Г Г

ГSI Г <ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г \Г/ Г

/ \ / \ Г

/ \ SI / G=N \ Г

/ JUEGA \ <ФФФФФФ / or \ Г

\DE NUEVO / \ TURNO=10 / Г

\ ? / \ ? / Г

\ / \ / Г

\Г/NO \Г/NO Г

[TERMINA MENSAJE] [PIENSA UN NUMERO] Г

Г \Г/ [TURNO=TURNO+1]

(FIN) / \ /Г\

/ \ CORRECTO Г

/ADIVINALO\ ФФФФФФФФФТФ> [DI QUE Г

\ / Г ADIVINASTE] Г

\ ? / Г РФФФФФФФФД

\ / Г Г

\Г/INCORRECTO Г Г

[DA OREJITA] Г Г

\Г/ Г Г

[PAUSA] Г Г

\Г/ Г Г

/ \ Г Г

/ \ CORRECTO Г Г

/ADIVINALO\ ФФФФФФФФФй Г

\ / Г

\ ? / Г

\ / Г

ГINCORRECTO Г

\Г/ Г

[DI QUE NO Г

ADIVINASTE] Г

Г Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

-----------------------------------------------------------------

Nota: En el diagrama de flujo de arriba los OVALOS est n

indicados con parntesis ( ) y las CAJAS con parntesis [ ]. De

esta manera ahorramos espacio y podemos dibujar todo el diagrama

de flujo en una p gina solamente.

-----------------------------------------------------------------

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 4 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

ЈQu notas en el diagrama de flujo? Una serie de bloques de

ARRIBA A ABAJO, uno detr s del otro, d ndonos la impresiЂn de que

el programa est escrito en secuencia, justamente de la manera en

que leemos. No notamos brincos que nos desvЁen de nuestra

lectura. Estos bloques hacen que el programa se pueda leer y

entender sin ningЃn esfuerzo de nuestra parte.

Sin embargo, cuando leemos detenidamente rutinas como...

AdivinaNumero:

'------------

LET turno = 1

RepiteTurno: <ФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

CLS Г

LOCATE 1, 20: PRINT "TURNO"; turno; " DE"; 10 Г

PRINT Г

INPUT "ADIVINA UN NUMERO DEL 1 AL 100"; numero.intentado Г

IF numero.intentado = numero.pensado OR turno = 10 THEN Г

GOTO TerminaTurno ФФФФФФФФФФФФФФП Г

END IF Г Г

GOSUB DaOrejita Г Г

GOSUB Pausa Г Г

LET turno = turno + 1 Г Г

GOTO RepiteTurno ФФФФФФФФФФФФФФФФФФХФФФФФФФФФФФФФФФФФФФФФФФФй

TerminaTurno: <ФФФФФФФФФФФФФФФФФФФФФФй

RETURN

...descubrimos algunos brincos GOTO'S que desvanecen la

impresiЂn inicial que tenЁamos del diagrma de flujo de que el

programa carecЁa de saltos. Sin embargo, a pesar de que esta

subrutina tiene saltos, estos no son fuera de la misma sino

dentro. Es decir, al leer la subrutina, nuestra vista es

desviada un poco, ya que los saltos se producen en la misma

subrutina. De modo que, la lectura de la misma se afecta

mЁnimamente.

Ahora bien, otra cosa que notamos es que cuando seguimos los

saltos, estos se detienen en una lЁnea que explica el mismo

(sigue las flechas y lo notar s). AsЁ que, al leer esta

subrutina, encontramos dos cosas importantes:

Primero, que los saltos est n confinados dentro del bloque

AdivinaNumero, no fuera de l. Por lo tanto, la legibilidad de

la misma, no se afecta casi nada.

Segundo, si seguimos los saltos veremos que los mismos caen

en lЁneas que los explican.

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 5 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Volviendo nuevamente a la subrutina AdivinaNumero. Nota que

hay una sentencia IF/THEN GOTO que detiene la repeticiЂn, y otro

GOTO que la causa.

Como puedes ver, estas SENTENCIAS DE CONTROL son esenciales

para repetir instrucciones y para detenerlas. Observa, que esta

subrutina AdivinaNumero, est formada por un grupo de sentencias,

o UNIDAD EN BLOQUE, que lleva a cabo una tarea en particular.

Si observas nuevamente el diagrama de flujo del programa entero,

ver s que est compuesto de varios bloques de sentencias.

Ahora bien, si vuelves a leer nuevamente la subrutina

AdivinaNumero, pero esta vez siguiendo las flechas, notar s que

una se dirige al mensaje RepiteTurno y la otra al mensaje

TerminaTurno. Nota, como dentro de estas dos etiquetas (labels),

hay una serie de instrucciones en las que la instrucciЂn final

(GOTO RepiteTurno), hace que se repitan hasta que la condiciЂn

final (TerminaTurno) es ejecutada.

ЈQUE ES UN BUCLE?

-----------------

En otras palabras, tales instrucciones se repiten varias

veces hasta que una condiciЂn final detiene su repeticiЂn. Esto

se asemeja a un bucle de pelo (loop-pelo enroscado), que parece

que da vueltas y m s vueltas hasta que se detiene al final.

AsЁ que, podemos decir que...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г UNA SERIE DE INSTRUCCIONES Г

Г QUE SE REPITEN UNA Y OTRA VEZ Г

Г SE LLAMA UN BUCLE Г

Г (Loop, en ingls) Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Por supuesto, que no queremos ejecutar una serie de

instrucciones para siempre. De modo que, tenemos que usar una

sentencia, o m s bien, un grupo de sentencias que las detengan.

En nuestro bucle (loop) RepiteTurno, usamos la sentencia

condicional IF/THEN/GOTO, para pararlo.

Si escribamos el bucle nuevamente, pero con solamente las

lЁneas que lo causan, lo explican, lo generan y lo terminan,

tenemos...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 6 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

AdivinaNumero:

'------------

LET turno = 1 <ФФФФФ Se inicia contador fuera del bucle.

RepiteTurno: <ФФФФФ Entrada al bucle.

------------ кФФ CondiciЂn para salir del bucle.

------------ Г

------------ \Г/

IF numero.intentado = numero.pensado OR turno = 10 THEN

GOTO TerminaTurno

END IF

------------

LET turno = turno + 1 <ФФФФФ aumenta contador del bucle

GOTO RepiteTurno <ФФФФФФФФФФФФФФ RepeticiЂn del bucle.

TerminaTurno: <ФФФФФФ Salida del bucle

RETURN

Y si lo reducimos m s aЃn, tenemos...

AdivinaNumero:

'------------

LET turno = 1

RepiteTurno:

------------

IF numero.intentado = numero.pensado OR turno = 10 THEN

GOTO TerminaTurno

END IF

------------

LET turno = turno + 1

GOTO RepiteTurno

TerminaTurno:

RETURN

...y si hacemos algunos cambios de etiqueta (label), para

generalizarlo, tenemos...

AdivinaNumero:

'------------

LET contador = 1

Bucle:

------------

If condiciЂn de salida THEN

GOTO TerminaBucle

END IF

------------

LET contador = contador + 1

GOTO Bucle

TerminaBucle:

RETURN

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 7 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Observa que lo que tenemos ahora es un...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г BLOQUE DE UN BUCLE CON SU CONTADOR Г

Г DESPUS DE LA PRUEBA IF...THEN Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г LET contador = 1 Г

Г Bucle: Г

Г ------------- Г

Г IF condiciЂn salida THEN Г

Г GOTO TerminaBucle Г

Г END IF Г

Г ------------- Г

Г LET contador = contador + 1 Г

Г GOTO Bucle Г

Г TerminaBucle: Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Habr ocasiones en que tengas que usar el contador antes de

la prueba IF/THEN...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г BLOQUE DE UN BUCLE Г

Г CON SU CONTADOR Г

Г ANTES DE LA PRUEBA IF...THEN Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г LET contador=0 Г

Г Bucle: Г

Г LET contador= contador +1 Г

Г IF condiciЂn salida THEN Г

Г GOTO TerminaBucle Г

Г END IF Г

Г GOTO Bucle Г

Г TerminaBucle: Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Si consideramos la subrutina...

RepiteJuego:

'----------

Decidete:

INPUT "QUIERES JUGAR OTRA VEZ (S/N)"; decision$

IF decision$ = "S" OR decision$ = "s" THEN RUN 'Juega otra vez.

IF decision$ = "N" OR decision$ = "n" THEN GOTO TerminaDecision

GOTO Decidete 'otra vez.

TerminaDecision:

RETURN

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 8 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

...y re-escribimos su bucle interno, obtendremos el bloque

de un bucle sin contador...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г BLOQUE DE UN BUCLE Г

Г SIN CONTADOR Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Bucle: Г

Г ------------- Г

Г IF condiciЂn salida THEN Г

Г GOTO TerminaBucle Г

Г END IF Г

Г ------------- Г

Г GOTO Bucle Г

Г TerminaBucle: Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Si hacemos lo mismo con la subrutina...

DaOrejita:

'--------

IF numero.intentado < numero.pensado THEN

GOTO DiNumeroEsMayor

END IF

DiNumeroEsMenor:

PRINT "NO, EL NUMERO PENSADO ES MENOR QUE "; numero.intentado

GOTO TerminaOrejita

DiNumeroEsMayor:

PRINT "NO, EL NUMERO PENSADO ES MAYOR QUE"; numero.intentado

TerminaOrejita:

RETURN

...tendremos un bloque de bucle en ramas.

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г BLOQUE DE UN BUCLE Г

Г EN RAMAS Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г IF condicion THEN GOTO Verdadero Г

Г Falso: Г

Г ------------ Г

Г GOTO TerminaCondicion Г

Г Verdadero: Г

Г ------------ Г

Г TerminaCondicion: Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 9 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Ahora, si re-escribimos el bloque interno de la subrutina...

DiQueAdivinaste:

'--------------

PRINT "CARAMBA, ADIVINASTE!"

PRINT "EL NUMERO ES"; numero.pensado

PRINT "LO ADIVINASTE EN "; turno; " TURNOS DE "; 10

PRINT "O EN UN"; INT((turno / 10) * 100); "% "; "DE LOS TURNOS"

RETURN

...tendremos un bloque de secuencia...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г BLOQUE DE SECUENCIA Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г ------------- Г

Г . Г

Г PUEDE CONSISTIR DE UN ENUNCIADO VACЁO Г

Г UN SOLO ENUNCIADO DE ACCIЂN Г

Г O VARIOS DE ELLOS Г

Г --- Г

Г PERO NO PUEDEN SER Г

Г ENUNCIADOS DE CONTROL COMO: Г

Г GOTO, IF..THEN, ECT. Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Volviendo a nuestro programa de ADIVINA UN NUMERO, te dije

antes, que un programa ideal debe ser aqul que no contenga

saltos. Es decir, un programa que sЂlo consista de una secuencia

de sentenmcias. Como puedes ver, esto es imposible de conseguir.

Para instruir a la computadora a que ejecute una acciЂn repetida,

por ejemplo, serЁa imposible sin que sta haga uno o varios

saltos a otras lЁneas de programa o etiquetas.

Pero hay una cosa que sЁ podemos hacer, y es evitar que la

computadora d largos saltos, y confinar los mismos dentro de sus

subrutinas. De esta forma, encontraremos de inmediato a donde se

dirige el salto. Mejor aЃn, podemos dirigir el mismo hacia una

lЁnea con un mensaje REM que explique la naturaleza del salto.

Otra cosa que podemos hacer es escribir nuestros programas

usando solamente los tres bloques que hemos estudiado: EL BLOQUE

SECUENCIAL, DE BUCLE Y EL DE RAMAS.

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 10 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Y esta es precisamente la forma en que el programa ADIVINA

UN NUMERO est estructurado. ES UNA SERIE DE BLOQUES

SECUENCIALES, DE BUCLES Y DE RAMAS. Estos bloques unidos a la

programaciЂn de ARRIBA A ABAJO o DESCENDENTE (Top Down) forman un

programa bien estructurado. De modo que...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г LA PROGRAMACIЂN ESTRUCTURADA Г

Г ES UN MTODO Г

Г PARA ESCRIBIR UN PROGRAMA BIEN ESTRUCTURADO Г

Г EN CUALQUIER LENGUAJE DE COMPUTADORA Г

Г QUE FACILITA SU LECTURA, Г

Г SU MANTENIMIENTO, Г

Г Y SU MODIFICACIЂN; Г

Г Y QUE HACE TODO ESO, Г

Г USANDO LA PROGRAMACIЂN DE ARRIBA A ABAJO Г

Г Y ESTAS TRES UNIDADES ESTRUCTURALES: Г

Г LOS BLOQUES DE SECUENCIA, DE REPETICIЂN (loop) y DE RAMAS. Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

A continuaciЂn ver s los bucles traducidos al ingls y con

sus correspondientes diagramas de flujos. EstЃdialos.

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 11 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г BLOQUE DE UN BUCLE Г

Г CON SU CONTADOR Г

Г DESPUS DE LA PRUEBA IF...THEN Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г LET counter=1 Г

Г 'Loop Г

Г ------------- Г

Г IF exit condition THEN GOTO End loop Г

Г ------------- Г

Г LET counter = counter + 1 Г

Г GOTO Loop Г

Г 'End loop. Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г кФФФФФФФФФФФФФП Г

Г ГLET counter=1Г Г

Г РФФФФФФТФФФФФФй Г

Г \Г/ Г

Г кФФФФФФФФФФФП Г

Г Г Loop Г<ФФФФФФФФФФФП Г

Г РФФФФФТФФФФФй Г Г

Г \Г/ Г Г

Г кФФФФФФФФФФФФП Г Г

Г Г ---------- Г кФФФФФФФФФСФФФФФФФФФФФП Г

Г РФФФФФТФФФФФФй ГLET counter=counter+1Г Г

Г \Г/ РФФФФФФФФФФФФФФФФФФФФФй Г

Г / \ /Г\ Г

Г / IF \ False кФФФФФСФФФФФФП Г

Г / exit \ ФФФФФ>Г ---------- Г Г

Г \condition/ THEN РФФФФФФФФФФФФй Г

Г \ / Г

Г True Г THEN Г

Г \Г/ Г

Г кФФФФФФФФП Г

Г ГEnd LoopГ Г

Г РФФФФФФФФй Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 12 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г BLOQUE DE UN BUCLE Г

Г CON SU CONTADOR Г

Г ANTES DE LA PRUEBA IF...THEN Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г LET counter=0 Г

Г 'Loop Г

Г LET counter = counter + 1 Г

Г IF exit condition THEN GOTO End loop Г

Г GOTO Loop Г

Г 'End loop. Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г кФФФФФФФФФФФФФП Г

Г ГLET counter=0Г Г

Г РФФФФФФТФФФФФФй Г

Г \Г/ Г

Г кФФФФФФФФФФФП Г

Г Г Loop Г<ФФФФФФФФФФФП Г

Г РФФФФФТФФФФФй Г Г

Г \Г/ Г Г

Г кФФФФФФФФФФФФФФФФФФФФФП Г Г

Г ГLET counter=counter+1Г Г Г

Г РФФФФФФФФФТФФФФФФФФФФФй Г Г

Г \Г/ Г Г

Г / \ Г Г

Г / IF \ False Г Г

Г / exit \ ФФФФФФФФФФФФй Г

Г \condition/ THEN Г

Г \ / Г

Г True Г THEN Г

Г \Г/ Г

Г кФФФФФФФФП Г

Г ГEnd LoopГ Г

Г РФФФФФФФФй Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 13 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г BLOQUE DE UN BUCLE Г

Г SIN CONTADOR Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г 'Loop Г

Г ------------- Г

Г IF exit condition THEN GOTO End loop Г

Г ------------- Г

Г GOTO Loop Г

Г 'End loop. Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г кФФФФФФФФФФФП Г

Г ГRepeat LoopГ<ФФФФФФФФФФФФФФП Г

Г РФФФФФТФФФФФй Г Г

Г \Г/ Г Г

Г кФФФФФФФФФФФФП Г Г

Г ГDo somethingГ Г Г

Г РФФФФФТФФФФФФй Г Г

Г \Г/ Г Г

Г / \ Г Г

Г / IF \ False кФФФФФСФФФФФФП Г

Г / exit \ ФФФФФФФФ>ГDo somethingГ Г

Г \condition/ THEN РФФФФФФФФФФФФй Г

Г \ / Г

Г True Г THEN Г

Г \Г/ Г

Г кФФФФФФФФП NO COUNTER Г

Г ГEnd LoopГ LOOP BLOCK FLOWCHART Г

Г РФФФФФФФФй Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 14 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г BLOQUE DE UN BUCLE Г

Г EN RAMAS Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г IF condition THEN GOTO True Г

Г 'False Г

Г Do something Г

Г GOTO End IF Г

Г 'True Г

Г Do something Г

Г 'End IF Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г / \ Г

Г / IF \ True Г

Г / \ ФФФФФФФФП Г

Г \condition/ THEN Г Г

Г \ / Г Г

Г False Г THEN Г Г

Г \Г/ Г Г

Г кФФФФФФФФФФФФФФП Г Г

Г Г Do something Г<ФФФФФФй Г

Г РФФФФФФФТФФФФФФй Г

Г \Г/ Г

Г кФФФФФФФФП Г

Г Г End IF Г Г

Г РФФФФФФФФй Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 15 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г BLOQUE DE SECUENCIA Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г ------------- Г

Г . Г

Г PUEDE CONSISTR DE UN ENUNCIADO VACЁO Г

Г UN SOLO ENUNCIADO DE ACCIЂN Г

Г O VARIOS DE ELLOS Г

Г --- Г

Г PERO NO PUEDEN SER Г

Г ENUNCIADOS DE CONTROL COMO: Г

Г GOTO, IF..THEN, ECT. Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г кФФФФФФФФФФФФФФП Г

Г Г ------------ Г Г

Г РФФФФФФТФФФФФФФй Г

Г Г Г

Г \Г/ Г

Г кФФФФФФФФФФФФФФП Г

Г Г ------------ Г Г

Г РФФФФФФТФФФФФФФй Г

Г Г Г

Г \Г/ Г

Г . Г

Г PRЂXIMA LЁNEA Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 16 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

LISTADO DEL PROGRAMA ADIVINA UN NUMERO

REM ADIVIMA UN NUMERO

REM -----------------

CLS : SCREEN 0: WIDTH 80

GOSUB PiensaUnNumero

GOSUB AdivinaNumero

GOSUB DiSiGanaste

GOSUB RepiteJuego

GOSUB TerminaJuego

END

PiensaUnNumero:

'-------------

RANDOMIZE TIMER

LET numero.pensado = INT(RND * 100) + 1

RETURN

AdivinaNumero:

'------------

LET turno = 1

RepiteTurno:

CLS

LOCATE 1, 20: PRINT "TURNO"; turno; " DE"; 10

INPUT "ADIVINA UN NUMERO DEL 1 AL 100"; numero.intentado

IF numero.intentado = numero.pensado OR turno = 10 THEN

GOTO TerminaTurno

END IF

GOSUB DaOrejita

GOSUB Pausa

LET turno = turno + 1

GOTO RepiteTurno

TerminaTurno:

RETURN

DaOrejita:

'--------

IF numero.intentado < numero.pensado THEN

GOTO DiNumeroEsMayor

END IF

DiNumeroEsMenor:

PRINT "NO, EL NUMERO PENSADO ES MENOR QUE "; numero.intentado

GOTO TerminaOrejita

DiNumeroEsMayor:

PRINT "NO, EL NUMERO PENSADO ES MAYOR QUE"; numero.intentado

TerminaOrejita:

RETURN

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 17 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Pausa:

'----

LET Pausa = 0

RepitePausa:

LET Pausa = Pausa + 1

IF Pausa = 40000 THEN GOTO TerminaPausa

GOTO RepitePausa

TerminaPausa:

RETURN

DiSiGanaste:

'----------

CLS

IF numero.intentado = numero.pensado THEN

GOTO Adivinaste

END IF

NoAdivinaste:

GOSUB DiQueNoAdivinaste

GOTO TerminaMensaje

Adivinaste:

GOSUB DiQueAdivinaste

TerminaMensaje:

RETURN

RepiteJuego:

'----------

Decidete:

INPUT "QUIERES JUGAR OTRA VEZ (S/N)"; decision$

IF decision$ = "S" OR decision$ = "s" THEN RUN 'Juega otra vez.

IF decision$ = "N" OR decision$ = "n" THEN GOTO TerminaDecision

GOTO Decidete 'otra vez.

TerminaDecision:

RETURN

DiQueAdivinaste:

'--------------

PRINT "CARAMBA, ADIVINASTE!"

PRINT "EL NUMERO ES"; numero.pensado

PRINT "LO ADINASTE EN "; turno; " TURNOS DE "; 10

PRINT "O EN UN"; INT((turno / 10) * 100); "% "; "DE LOS TURNOS"

RETURN

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB306 BLOQUES DE CONSTRUCCION 18 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

DiQueNoAdivinaste:

'----------------

PRINT "FALLASTE EN ADIVINARLO!"

PRINT "EL NUMERO ES"; numero.pensado

RETURN

TerminaJuego:

'-----------

CLS

PRINT "ESPERO QUE TE HAYAS DIVERTIDO"

PRINT "HASTA LUEGO"

FOR Pausa = 1 TO 6000: NEXT Pausa

RETURN