QB302

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

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

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

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

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

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

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

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

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

К К

К EN ESTA LECCION APRENDERAS... К

К К

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

К Г Г К

К Г ў ЈCu les son las secciones principales Г К

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

К Г ў CЂmo descubrir por tЁ mismo la manera Г К

К Г correcta de organizar y escribir Г К

К Г programas de computadoras .................... 3 Г К

К Г ў ЈQu es un algoritmo? ........................ 3 Г К

К Г ў ЈQu es un algoritmo estructural 3 Г К

К Г y que son programas estructurales? ........... 5 Г К

К Г ў ЈQu es un pseudocЂdigo? ..................... 6 Г К

К Г ў Menciona los cinco pasos para Г К

К Г escribir un buen programa Г К

К Г de computadora ............................ 6 - 11 Г К

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

К Г ў ЈQu es una subrutina? ....................... 10 Г К

К Г ў La sintaxis para la sentencia Г К

К Г estructural GOSUB/RETURN .................... 12 Г К

К Г ў Como llenar las subrutinas .................. 13 Г К

К Г ў La sintaxis para el comando AUTO ............ 14 Г К

К Г Г К

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

К К

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

К ЩЛЫЛЫ ЩЛЩЛ ЩЛЩЛЩЛ К CINCO PASOS PARA ESCRIBIR К

К ККЬЙК Ь К ЙККЩМ К К

К ШЙЪМШМШМШМ ШМШМШМ К UN BUEN PROGRAMA К

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

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

К ЩЛЫЛЫ ЩЛЩЛ ЩЛЩЛЩЛ К CINCO PASOS PARA ESCRIBIR К

К ККЬЙК Ь К ЙККЩМ К К

К ШЙЪМШМШМШМ ШМШМШМ К UN BUEN PROGRAMA К

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

SECCIONES PRINCIPALES DE UN PROGRAMA

Entre las mejoras que le hicimos al programa de Aritmtica

estuvo la de dividirlo en varias secciones. Usamos, tambin,

sentencias REM para identificar cada secciЂn con un nombre.

Pudiste apreciar por estas mejoras, cu nto se facilitЂ la lectura

y el entendimiento del mismo.

Si tomamos las secciones principales del programa de

Aritmtica y las escribimos una detr s de la otra...

100 'Programa de Aritmtica

200 'Imprime instrucciones

340 'Selecciona operacion

560 'Selecciona grado de dificultad

770 'Inicializa variables

850 'Repite problema.

880 'Genera nЃmero al azar.

920 'Selecciona expresiЂn de aritmtica.

970 'Imprime problema.

1000 'Entra respuesta.

1050 'Compara respuesta con soluciЂn correcta.

1130 'Imprime puntuaciЂn final

1200 'Repite programa

1280 'Repite programa.

1300 'Deja programa.

1350 'Imprime mensaje de despedida

1420 END

...lo que ver s ser un bosquejo general de todo el

programa.

De modo que, como puedes ver, este programa est casi

escrito de la forma en que hablamos. Por eso es que lo

entendemos. Y no sЂlo eso, sino que sabemos que el mismo funciona

bien.

Pero todavЁa tiene que ser mejorado m s aЃn. ЈQu hay de

aЄadirle gr ficas al mismo? ЈQu tal si cuando fallas en una

pregunta se te brinda una orejita y se te d una nueva

oportunidad para contestarla? Pero a pesar de estas posibles

mejoras, estar s de acuerdo conmigo en que...

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 3 Г

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

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

Г EL PROGRAMA, Г

Г Г

Г ES FACIL DE LEER, FACIL DE MANTENER, Г

Г FACIL DE MEJORAR, FACIL DE CAMBIAR. Г

Г Г

Г NO TIENE ERRORES (BUGS) Г

Г QUE INTERRUMPAN EL MISMO SUBITAMENTE. Г

Г Г

Г EN UNA PALABRA, TRABAJA BIEN. Г

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

De modo que lo que hemos hecho hasta aquЁ es percatarnos de

que hay una mejor forma de escribir programas que podemos

entender, cambiar y mejorar sin mucho esfuerzo de nuestra parte.

ЈY cu l es esa forma de escribir programas descrita

anteriormente? Ese es el tema que trataremos a continuciЂn.

DESCUBRIENDO LA MANERA CORRECTA

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

DE ORGANIZAR Y ESCRIBIR PROGRAMAS DE COMPUTADORAS

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

SupЂn que quieras sumar dos nЃmeros digitados desde el

teclado de tu computadora. Puedes escribir el proceso en tus

propias palabras asЁ:

1. Limpia la pantalla.

2. Digita el primer nЃmero.

3. Deja un espacio en blanco.

4. Digita el segundo nЃmero.

5. Deja un espacio en blanco.

6. Suma los nЃmeros.

7. Despliega el resultado.

8. Deja un espacio en blanco

9. Despliega el mensaje "Presiona ENTER

para continuar Ђ 0 para terminar"

10. Si presionas "0" termina.

11. V al pricipio del programa.

12. Termina.

ЈQUE ES UN ALGORITMO?

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

Nota como estas instrucciones paso a paso describen un

proceso para llevar a cabo una tarea especЁfica: SUMAR DOS

NUMEROS. Este proceso asЁ descrito se llama ALGORITMO (palabra

derivada a su vez de la palabra rabe al-Jwrizm, el apodo del

renombrado matem tico Moh med Ben Musa). AsЁ que...

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 4 Г

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

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

Г UN ALGORITMO Г

Г ES UN PROCESO DONDE SE DAN Г

Г UNAS INSTRUCCIONES PASO A PASO Г

Г PARA REALIZAR Г

Г TAREA ESPECIFICA Г

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

Traduzcamos el algoritmo anterior a un programa Basic...

100 CLS

120 INPUT "DIGITA EL PRIMER NUMERO ", n1

130 PRINT

140 INPUT "DIGITA EL SEGUNDO NUMERO ", n2

150 PRINT

160 LET SUMA = n1 + n2

170 PRINT "LA SUMA ES"; SUMA

180 PRINT

190 INPUT "Digita ENTER para continuar Ђ 0 para terminar ", E$

200 IF e$ = "0" THEN GOTO 220

210 GOTO 100

220 END

Como puedes apreciar, este programa en lo Ѓnico que se

diferencia del anterior es que ha sido traducido al lenguaje

Basic. Sin embargo, su estructura es la misma. Por lo tanto,

podemos decir que...

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

Г LAS INSTRUCCIONES Г

Г DE UN PROGRAMA DE COMPUTADORA Г

Г TAMBIEN DESCRIBEN UN ALGORITMO Г

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

En otras palabras, el programa de arriba es un algoritmo

porque...

Primero, cada paso est bien definido.

Segundo, el proceso es uno que termina.

Y tercero, el proceso hace lo que se le dice que haga.

Bueno, vamos a ver qu m s descubrimos de este corto

programa. Observa cЂmo las instrucciones de las lЁneas desde la

100 hasta la 190, se ejecutan una detr s de la otra, es decir, EN

SECUENCIA. Observa que en la lЁnea...

200 IF e$ = "0" THEN GOTO 220

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 5 Г

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

...la instrucciЂn GOTO 220, va a ser ejecutada si la

condiciЂn e$ = "0" es satisfecha. Esto es, si SELECCIONAS que

quieres terminar, escoges 0, sino, presionas ENTER. Nota,

adem s, que si la instrucciЂn GOTO 220 no es ejecutada, las

instrucciones desde la lЁnea 100 hasta la 190 se volver n a

REPETIR.

ЈQUE ES UN ALGORITMO ESTRUCTURAL?

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

Y QUE SON PROGRAMAS ESTRUCTURALES?

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

Cuando un algoritmo como este programa de sumar dos nЃmeros,

se escribe usando combinaciones estructurales de SECUENCIA,

SELECCION y REPETICION, se llama ALGORITMO ESTRUCTURAL. De modo

que podemos decir que...

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

Г UN ALGORITMO ESTRUCTURAL Г

Г ES UN ALGORITMO ESCRITO Г

Г USANDO COMBINACIONES ESTRUCTURALES DE Г

Г SECUENCIA, SELECCION Y REPETICION Г

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

...y que...

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

Г AQUELLOS PROGRAMAS Г

Г DISEЅADOS DE ALGORITMOS ESTRUCTURALES Г

Г SE LLAMAN PROGRAMAS ESTRUCTURALES Г

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

Bien, ahora, si volvemos a escribir el programa solamente

traduciendo al Basic las sentencias aprendidas, ver s que...

Limpia pantalla. ФФФФ> CLS

Digita primer nЃmero. ФФФФ> INPUT number1

Deja espacio en blanco. ФФФФ> PRINT

Digita segundo nЃmero. ФФФФ> INPUT number2

Deja espacio en blanco. ФФФФ> PRINT

Suma los nЃmeros. ФФФФ> LET sum=number1+number2

Despliega resultado. ФФФФ> PRINT sum

Deja espacio en blanco ФФФФ> PRINT

Despliega "Presiona ENTER ФФФФ> PRINT "Presiona ENTER

para continuar Ђ 0 para continuar Ђ 0

para terminar" para terminar"

Si presionas "0" termina. ФФФФ> IF presionas "0" END

V al pricipio programa. ФФФФ> GOTO principio programa

Termina. ФФФФ> END

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 6 Г

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

ЈQUE ES UN PSEUDOCODIGO?

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

...las instrucciones de la versiЂn de la derecha est n

escritas usando una mezcla de palabras en tu idioma y de

palabras del lenguaje Basic. A esta mecla se le llama

PSEUDOCODIGO. De modo que...

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

Г UN PSEUDOCODIGO Г

Г ES UNA MEZCLA DE PALABRAS Г

Г PROVENIENTES DE TU IDIOMA Г

Г Y DEL BASIC Г

Г QUE FORMAN LAS INSTRUCCIONES Г

Г DE UN ALGORITMO Г

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

Existe otra manera de presentar un algoritmo y es por medio

de un DIAGRAMA DE FLUJO. Lo estudiaremos ya mismo. Ese

pseudocЂdigo luego es traduccido totalmente al lenguaje Basic,

formando el programa completo.

PRIMER PASO

-----------

PARA ESCRIBIR UN BUEN PROGRAMA

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

Ahora consideraremos la creaciЂn de un nuevo programa que

convierta las temperaturas CentЁgrados (C) a Fahrenheit (F) y

viceversa. Con l ilustraremos la forma de escribir un programa

bien estructurado.

Sabes bien que lo primero que tienes que hacer para escribir

un programa es que SEPAS LO QUE INTENTAS HACER CON EL MISMO. En

otras palabras, tienes que definir bien cu l va ser su funciЂn.

De modo que...

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

Г EL PRIMER PASO Г

Г PARA ESCRIBIR UN PROGRAMA Г

Г ES DEFINIRLO BIEN Г

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

Naturalmente, tienes que saber que har el programa antes de

preocuparte de cЂmo funcionar el mismo. AsЁ que definamos el

programa...

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 7 Г

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

Queremos que nuestro programa CONVIERTA los grados

CentЁgrados (C) a grados Fahrenheit (F) y viceversa. Para llevar

a cabo esa tarea, primero tenemos que SELECCIONAR que CONVERSION

preferimos: convertir C a F Ђ F a C. Una vez que la selecciЂn ha

sido hecha, entonces haremos que la computadora HAGA LA

CONVERSION. Una vez hecha la misma, le pediremos que nos PIDA

OTRA CONVERSION. Si decidimos no seguir con el programa lo

TERMINAMOS.

Reduzcamos esta definiciЂn del programa aЃn m s de lo que

est ...

Primero, dado el caso de que nuestro programa tendr el

propЂsito de convertir temperaturas, llammoslo CONVERSION DE

TEMPERATURAS.

Segundo, hacemos que la computadora nos pida que SELECCIONE

LA CONVERSION.

Tercero, hacemos que la computadora HAGA LA CONVERSION.

Cuarto, hacemos que la computadora nos PIDA HACER OTRA

CONVERSION.

Y, por Ѓltimo, TERMINAR EL PROGRAMA. Pongamos todo esto de

la siguiente manera:

1. Llama al programa CONVERSION DE TEMPERATURAS.

2. Selecciona ConversiЂn.

3. Haz la conversiЂn.

4. Pide otra conversiЂn.

5. Termina.

ЈQu es lo que representan estos cinco pasos? UN

ALGORITMO! FЁjate que es un algoritmo general porque sЂlo

describe el proceso de conversiЂn pero no son pasos especЁficos.

Es decir, no entra en detalles. Pero, a pesar de que estos pasos

no son especЁficos, presenta lo que se pide. Naturalmente, que

tienen que ser refinados. Ahora pong moslos de esta otra forma:

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

Г ConversiЂn de temperaturas Г

Г Selecciona conversiЂn Г

Г Haz la conversiЂn. Г

Г Pide otra conversiЂn. Г

Г Termina. Г

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

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 8 Г

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

ЈQu notas? QUE NO ES OTRA COSA QUE UN BOSQUEJO DE TODO EL

PROGRAMA! Pong molo ahora en forma de diagrama para que puedas

apreciarlo aЃn m s...

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

Г (EMPIEZA) Г

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

Г Г Г Г

Г / \ Г Г

Г кФФФФФФФФФП 2= / \ =1 кФФФФФФФФФП Г Г

Г ГConvireteГ<ФФФФ/SELECCIONA ФФФФ>ГConvierteГ Г Г

Г Г F a C Г \CONVERSION Г C a F Г Г Г

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

Г Г \ / Г Г Г

Г Г Г Г Г

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

Г РФФФФФ> ГHAZ LA COVERSIONГ <ФФФФФй Г Г

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

Г \Г/ Г Г

Г / \ Г Г

Г / \ SI Г Г

Г / OTRA \ ФФФФФФФФФФФФФФФФФФй Г

Г \CONVERSION Г

Г \ ? / Г

Г \ / NO Г

Г \Г/ Г

Г (TERMINA) Г

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

ЈQUE ES UN DIAGRAMA DE FLUJO (FLOWCHART)?

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

Antes de proseguir con nuestra discusiЂn, tenemos que

decirte que un diagrama como este se llama DIAGRAMA DE FLUJO.

De modo que...

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

Г UN DIAGAMA DE FLUJO Г

Г ES UNA REPRESENTACION PICTORICA Г

Г QUE PRESENTA LA DESCRIPCION DE UN PROGRAMA Г

Г USANDO CAJAS, Г

Г PARA DEMOSTRAR LOS PASOS Г

Г QUE LA COMPUTADORA TIENE QUE TOMAR, Г

Г CONECTADOS POR FLECHAS, Г

Г QUE INDICAN EL ORDEN EN QUE ESTOS Г

Г TIENEN QUE EJECUTARSE Г

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

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 9 Г

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

El mensaje escrito en cada caja representa una tarea que la

computadora tiene que ejecutar. Observa que el diagrama de flujo

no es otra cosa que un bosquejo del programa. Los diagramas de

flujo m s comunes pueden dibujarse usando tres sЁmbolos

principales conjuntamente con las flechas que los unen. Estos

son:

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

Г Г

Г ФФФФФФФ OVALOS /Г\ Г

Г (EMPIEZA) para repesentar ФФФСФФФ Г

Г ФФФТФФФ comienzo o final (TERMINA) Г

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

Г \Г/ Г

Г / \ SI Г

Г / \ФФФФ> Г

Г \ ? / Г

Г \ / Г

Г ГNO Г

Г \Г/ Г

Г diamantes para representar Г

Г una decisiЂn o una selecciЂn Г

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

SEGUNDO PASO PARA ESCRIBIR UN BUEN PROGRAMA

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

Muy bien, volvamos a nuestro bosquejo general original...

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

Г ConversiЂn de temperaturas Г

Г Selecciona conversiЂn Г

Г Haz la conversiЂn. Г

Г Pide otra conversiЂn. Г

Г Termina. Г

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

Nota, cu n general es este bosquejo! Cu n simple es! No

tiene detalles. Es corto, pero describe las tareas principales

que la computadora tiene que llevar a cabo. Por el hecho de que

este bosquejo resume las funciones principales del programa,

podemos considerarlo como la RUTINA PRINCIPAL del mismo. Por lo

tanto, este es nuestro...

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 10 Г

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

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

Г SEGUNDO PASO Г

Г HAZ UN BOSQUEJO BREVE Г

Г PERO QUE DESCRIBA Г

Г LAS PRINCIPALES TAREAS DEL PROGRAMA Г

Г (algoritmo general) Г

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

Pero espera, que hay algo m s. Leamos el bosquejo

nuevamente. ЈQu notas? Fuera del nombre del programa, ESTOS

PASOS SE PARECEN A SUBRUTINAS QUE LE DICEN A LA COMPUTADORA QUE

HACER.

QUE ES UNA SUBRUTINA

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

Una subrutina es un subprograma. Esto es, un programa

dentro de otro. Se considera "como algo a hacerse"

rutinariamente en un programa, de ahЁ su nombre. Si es algo a

hacerse rutinariamente debe ser "llamada" por un comando especial

para tal fin. Este comando es GOSUB. Y se llama a la subrutina

usando este comando antes del nЃmero de lЁnea donde se encuentra

esta. Este comando GOSUB hace que la computadora vaya a la

subrutina, la ejecute, vuelva al prЂximo nЃmero de lЁnea donde se

quedЂ para continuar con la prЂxima instrucciЂn. Si aplicamos

esto a nuestro an lisis podemos descubrir el tercer paso para

hacer un buen programa...

TERCER PASO PARA HACER UN BUEN PROGRAMA

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

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

Г TERCER PASO Г

Г CONSIDERA EL BOSQUEJO HECHO EN EL SEGUNDO PASO Г

Г COMO LA RUTINA PRINCIPAL DEL PROGRAMA Г

Г CONVIRTIENDO LAS PALABRAS DE TU LENGUAJE Г

Г (traduce el algoritmo a Basic) Г

Г EN SUBRUTINAS Г

Г AЅADIENDOLES UNA SENTENCIA GOSUB Г

Г ENFRENTE DEL NUMERO DE LINEA Г

Г CONQUE VAS A COMENZAR LAS MISMAS Г

Г Г

Г LUEGO AЅADE UNA COMILLA (') Г

Г AL FRENTE DE TUS FRASES ESCRITAS EN TU IDIOMA Г

Г PARA HACER QUE DICHAS FRASES Г

Г SE CONVIERTAN EN COMENTARIOS REM Г

Г DE MODO QUE PUEDAN DESCRIBIR Г

Г LO QUE SE SUPONE HAGA LA SUBRUTINA Г

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

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 11 Г

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

Muy bien, hagamos los que nos pide este tercer paso...

100 'ConversiЂn de temperaturas

110 '--------------------------

120 GOSUB 200 'Selecciona conversiЂn

130 GOSUB 300 'Haz la conversiЂn.

140 GOSUB 400 'Pide otra conversiЂn.

150 GOSUB 500 'Termina.

160 END

Observa, que lo que acabas de hacer es la RUTINA PRINCIPAL

de tu programa. Nota, que no es otra cosa que un bosquejo que

describe, de un modo general, lo que el programa se supone que

haga.

CUARTO PASO PARA ESCRIBIR UN BUEN PROGRAMA

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

Ahora lo que nos falta es seguir el...

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

Г CUARTO PASO Г

Г LLENA LAS SUBRUTINAS Г

Г LLAMADAS EN EL PASO TRES Г

Г CON UNA SENTENCIA PRINT Г

Г EN CADA UNA Г

Г DESCRIBIENDO LO QUE SE SUPONE HAGAN Г

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

He aquЁ cЂmo seguimos este paso...

100 'ConversiЂn de temperaturas

110 '--------------------------

120 GOSUB 200 'Selecciona conversiЂn

130 GOSUB 300 'Haz la conversiЂn.

140 GOSUB 400 'Pide otra conversiЂn.

150 GOSUB 500 'Termina.

160 END

170 '

200 'Seleciona conversiЂn

210 '--------------------

220 PRINT "Selecciona conversiЂn."

230 RETURN

240 '

300 'Haz la conversiЂn

310 '-----------------

320 PRINT "Haz la conversiЂn."

330 RETURN

340 '

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 12 Г

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

400 'Pide otra conversiЂn

410 '--------------------

420 PRINT "Pide otra conversiЂn."

430 RETURN

440 '

500 'Termina

510 '-------

520 PRINT "Termina."

530 RETURN

Nota como las lЁneas 120, 130, 140 y 150 en la rutina

principal llama las subrutinas de las lЁneas 200, 300, 400 y 500,

usando las sentencias GOSUB. Cuando cada subrutina es ejecutada

el control del programa regresa a la rutina principal con la

sentencia RETURN. La sintaxis de la sentencia estructural

GOSUB...RETURN es...

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

Г GOSUB line number Г

Г . Г

Г RETURN line number Г

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

Si ejecutas el programa, ver s las oraciones...

Selecciona conversiЂn

Haz la conversiЂn.

Pide otra conversiЂn.

Termina.

...desplegadas en la pantalla. Esto es evidencia de que el

programa esta funcionando bien. Naturalmente, no puede convertir

nada, pero cuando llenes cada subrutina con las sentencias Basic

necesarios, DE SEGURO HARA LO QUE LE DIJISTE QUE HICIERA. Ahora,

Јcu l ser nuestro prЂximo paso?

QUINTO PASO PARA ESCRIBIR UN BUEN PROGRAMA

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

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

Г QUINTO PASO Г

Г LLENA Y TRATA CADA SUBRUTINA SEPARADAMENETE Г

Г COMO SI FUERA UN PROGRAMA COMPLETO Г

Г APLICANDOLE LOS CUATRO Г

Г PASOS ANTERIORES Г

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

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 13 Г

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

COMO LLENAR LAS SUBRUTINAS

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

Empecemos llenando la subrutina SELECCIONA CONVERSION. Si

est s usando los intrpretes Basic GW-BASIC o BASICA puedes usar

los comandos...

CLS

LIST 200-230

...conjuntamente, en modo inmediato, para ver solamente la

subrutina en pantalla. Naturalmente, esto no lo puedes hacer con

QBASIC porque como sabes, el comando LIST no pertenece a su

vocabulario. En este caso, cambia la lЁnea 230 a 290, luego

aЄade las lЁneas 230, 240, 250, 260, 270, 280 asЁ...

200 'Seleciona conversiЂn

210 '--------------------

220 PRINT "Selecciona conversiЂn."

230 '

240 '

250 '

260 '

270 '

280 '

290 RETURN

Recuerda que con QBASIC, los nЃmeros de lЁneas no son

necesarios, te aconsejamos que por ahora los utilices para que

ests acorde con nuestra discusiЂn.

La discusiЂn que sigue supone que ests usando los

intrpretes GW-BASIC o BASICA. Si usas QBASIC, sabes que tienes

que enumerar el programa manualmente.

Bien, una vez que tengas en pantalla la subrutina...

200 'Seleciona conversiЂn

210 '--------------------

220 PRINT "Selecciona conversiЂn."

230 RETURN

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 14 Г

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

...para llenar la misma, tenemos que aЄadir lЁneas entre las

lЁneas 220 y 230. ЈCЂmo lo hacemos? Podemos hacerlo manualmente

como lo explicamos anteriormente en QBASIC. Pero en GW-BASIC y

BASICA puedes usar el comando AUTO. Su sintaxis es...

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

Г AUTO line number, increment Г

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

Como queremos varias lЁneas entre 220 y 230, empezamos con

221 y la aumentamos en 1, obteniendo asЁ las restantes. Para

hacer esto, digitamos en modo inmediato lo siguiente....

AUTO 221,1

...si presionamos ENTER una vez, aparecer autom ticamente

el nЃmero 221, para retenerlo presionamos la tecla ' (comilla), y

otra vez presionamos ENTER. Inmediatamente que presionamos

ENTER, ver s el prЂximo nЃmero 222. Para retenerlo, hacemos el

mismo procedimiento que hicimos arriba. Para retener 8 nЃmeros,

por ejemplo, presionamos ENTER ocho veces despus de que los

nЃmeros estn desplegados en pantalla. Si procedes asЁ, la

pantalla del monitor se ver como sigue...

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

Г 200 'Selecciona conversiЂn Г

Г 210 '--------------------- Г

Г 220 PRINT "Selecciona conversion" Г

Г 230 RETURN Г

Г Г

Г auto 221,1 Г

Г 221 ' Г

Г 222 ' Г

Г 223 ' Г

Г 224 ' Г

Г 225 ' Г

Г 226 ' Г

Г 227 ' Г

Г 228 ' Г

Г Г

Г1LIST 2RUN<- 3LOAD 4SAVE 5CONT<- Г

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

Para salir del comando AUTO, presiona CTRL C o CTRL BREAK.

El sistema volver al nivel de comando. Si digitas, luego...

CLS ENTER

LIST 200-230 ENTER

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 15 Г

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

...en modo inmediato, ver s...

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

Г 200 'Selecciona conversiЂn Г

Г 210 '--------------------- Г

Г 220 PRINT "Selecciona conversiЂn" Г

Г 221 ' Г

Г 222 ' Г

Г 223 ' Г

Г 224 ' Г

Г 225 ' Г

Г 226 ' Г

Г 227 ' Г

Г 228 ' Г

Г 230 RETURN Г

Г Г

Г1LIST 2RUN<- 3LOAD 4SAVE 5CONT<- Г

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

...en tu pantalla. Ahora, para hacer que los nuevos nЃmeros

generados con el comando AUTO sean en incrementos de diez,

digitamos...

RENUMBER 100,100,10 ENTER

CLS ENTER

LIST 180-290 ENTER

...otra vez en modo inmediato. La subrutina aparecer

listada con los nuevos nЃneros de lЁnea.

180 'Seleciona conversiЂn

190 '--------------------

200 PRINT "Selecciona conversiЂn."

210 '

220 '

230 '

240 '

250 '

260 '

270 '

280 '

290 RETURN

Una vez preparada y renumerada la subrutina estamos listos

para digitar los detalles en la misma. Todo lo que tenemos que

hacer es seguir los cuatro pasos antes mencionados.

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 16 Г

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

Primero, tenemos que hacer un pequeЄo resumen de lo que

queremos aЄadir usando frases inglesas o espaЄolas, segЃn sea el

caso (pseudocЂdigo algorЁtmico). Nota que las lЁneas 180, 190 y

290 son ya sentencias Basic, asЁ que las dejamos como est n. La

lЁnea 200, est en Basic tambin, pero fue una lЁnea que

digitamos solamente para probar si esta subrutina trabajaba

satisfactoriamente. Para empezar, no olvidemos el principio..

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

Г EL PRIMER PASO Г

Г PARA ESCRIBIR UN PROGRAMA Г

Г ES DEFINIRLO BIEN Г

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

...y como esta es una subrutina (miniprograma), este paso se

aplica tambin a ella. Veamos, entonces, que es lo que

pretendemos nosotros hacer con la misma. Para seleccionar una

conversiЂn tenemos que PEDIRLA y luego DIGITARLA. Esto, en forma

resumida, serЁa...

ў Pide selecciЂn. ў Digita selecciЂn.

Ahora bien, ЈcЂmo le pedimos a la computadora que nos pida

una selecciЂn? Pues usando una sentencia PRINT. Pero espera,

antes de pedirle a la computadora que despliegue un mensaje en

pantalla, tenemos que limpiar la misma para que no se mezcle con

otros mensajes ya desplegados. De modo que, tenemos que

modificar nuestro resumen y escribir...

ў Limpia pantalla. ў Pide selecciЂn. ў Digita selecciЂn.

Naturalmente, que para que la subrutina no se interrumpa

sЃbitamente en el caso en que digitemos un valor errЂneo,

tenemos que asegurarnos que el valor digitado sea el correcto.

Por eso, tenemos que PROBAR la selecciЂn para ver si es la

correcta. Y si asЁ es, aceptarla. AsЁ que, aЄadimos a nuestro

resumen lo siguiente...

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

Г Limpia pantalla. Г

Г Pide selecciЂn. Г

ALGORITMO SEUDOCODIGO Ф>Г Digita selecciЂn. Г

Г Prueba si la selecciЂn es correcta. Г

Г Acepta selecciЂn. Г

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

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 17 Г

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

Puedes convertir estas frases en Basic de muchas maneras

diferentes, y tal vez la subrutina funcione. Sin embargo, esta

es la forma en que nosotros las convertimos...

180 'Selecciona conversiЂn

190 '---------------------

кФФФФ> 200 CLS

Limpia pantalla Фй кФФ> 210 PRINT "CONVIERTE:"

Г 220 PRINT

Pide selecciЂn ФФФД 230 PRINT " 1) C A F"

Г 240 PRINT " 2) F A C"

Digita selecciЂn ФП РФФ> 250 PRINT

РФФФФ> 260 INPUT "Escoge por nЃmero";T$

Prueba selecciЂn ФФФФФФ> 270 IF T$<>"1" AND T$<>"2" THEN GOTO 180

кФФФ> 280 LET T=VAL(T$)

Acepta selecciЂn ФФй 290 RETURN

Nota que...

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

Г HEMOS TRADUCIDO LAS FRASES A SENTENCIAS BASIC Г

Г UNA A UNA. Г

Г UNA VEZ QUE CADA FRASE ES TRADUCIDA, Г

Г LA VAMOS ARREGLANDO (DEBUG) EN PANTALLA Г

Г HASTA QUE FUNCIONE BIEN. Г

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

Veamos un ejemplo para comprender bien esto. Despus de

haber traducido las frases LIMPIA PANTALLA y PIDE SELECCION la

subrutina SELECCIONA CONVERSION apareciЂ asЁ...

180 'Selecciona conversiЂn

190 '---------------------

200 CLS

210 PRINT "CONVIERTE:"

220 PRINT

230 PRINT " 1) C A F"

240 PRINT " 2) F A C"

250 '

260 '

270 '

280 '

290 RETURN

Para saber si las sentencias escritas en Basic eran las

correctas, tuvimos que probarlas (debug it). Y para probarlas

(debug it), digitamos...

CLS

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 18 Г

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

GOSUB 180

...en modo inmediato. Supimos que todo estaba bien, al ver

en pantalla lo siguiente...

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

Г CONVIERTE: Г

Г Г

Г 1) C to F Г

Г 2) F to C Г

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

Una vez que estuvimos seguros de que la traducciЂn era la

correcta, procedimos a traducir otras frases, prob ndolas

(debuging it) de la forma en que lo hicimos. Nota que este modo

de proceder (procedimiento) no nos permite continuar con la

prЂxima traducciЂn hasta que la actual est correcta. Una vez

que traducimos todas la frases, prob ndolas a medida que las

Ёbamos traduciendo, estuvimos seguros de que la subrutina

funcionaba bien. Muy bien, expliquemos ahora cada lЁnea de la

subrutina...

180 'Selecciona conversiЂn

190 '---------------------

200 CLS

210 PRINT "CONVIERTE:"

220 PRINT

230 PRINT " 1) C A F"

240 PRINT " 2) F A C"

250 PRINT

260 INPUT "Escoge por nЃmero";T$

270 IF T$<>"1" AND T$<>"2" THEN GOTO 180

280 LET T=VAL(T$)

290 RETURN

La lЁnea 180, identifica la subrutina con el nombre

SELECCIONA CONVERSION usando una sentencia REM en forma de

'(comilla).

La lЁnea 190, enfatiza el nombre de la subrutina con lЁneas

entrecortadas usando tambin una sentencia REM en forma de

comilla('). Esto es opcional.

La lЁnea 200, tiene la sentencia CLS para limpiar la

pantalla.

La lЁnea 220, contiene una sentencia PRINT sola, para dejar

un espacio separ ndo la prЂxima lЁnea de la anterior (facilita la

lectura).

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 19 Г

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

La lЁnea 230 y 240, tienen un mensaje a desplegarse en

pantalla.

La lЁnea 250, hace lo mismo que la lЁnea 220.

La lЁnea 260, tiene una sentencia INPUT para entrar la

selecciЂn escogida. Nota que que estamos usando una variable

alfanumrica (una cadena-string) en vez de una numrica para

almacenar el valor de la selecciЂn escogida. Lo hicimos asЁ,

para evitar la interrupciЂn sЃbita de la subrutina si ocurre un

error al entrar el dato.

Si usamos una variable de cadena para almacenar el valor de

la secciЂn escogida, el mismo ser aceptado, aЃn si fuera una

letra. Ahora bien, como el valor pedido es un nЃmero, tenemos que

convertir el valor alfanumrico de T$ a un valor numrico y luego

almacenarlo en la variable numrica T.

La lЁnea 270, prueba los valores digitados y almacenados en

T$, para ver si estan entre 1 y 2. En caso de que el valor de

T$ no sea ni 1 ni 2, ser rechazado y la ejecuciЂn del programa

saltar a la lЁnea 180 para pedir un nuevo valor. Nota la forma

en que se ha usado la estructura IF/AND/THEN.

La lЁnea 280, convierte el valor alfanumrico almacenado en

T$ a uno numrico, y lugo, lo almacena en la variable numrica T.

La lЁnea 290, devuelve (return) el control a la lЁnea 130 de

la rutina principal.

Para llenar las subrutinas restantes de la rutina

principal...

100 'ConversiЂn de temperaturas

110 '--------------------------

120 CLS

130 GOSUB 190 'Selecciona conversiЂn.

140 GOSUB 330 'Haz la conversiЂn.

150 GOSUB 610 'Pide otra conversiЂn.

160 GOSUB 690 'Termina programa.

170 END

...procede de la misma forma en que lo hicimos al llenar la

subrutina SELECCIONA CONVERSION. Te presentaremos ahora, el

programa completo. EstЃdialo con cuidado. Lugo digЁtalo en tu

computadora y ejecЃtalo.

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 20 Г

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

100 'ConversiЂn de temperaturas

110 '--------------------------

120 CLS

130 GOSUB 190 'Selecciona conversiЂn.

140 GOSUB 330 'Haz la conversiЂn.

150 GOSUB 610 'Pide otra conversiЂn.

160 GOSUB 690 'Termina programa.

170 END

180 '

190 'Selecciona conversion

200 '---------------------

210 CLS

220 PRINT

230 PRINT "CONVIERTE:"

240 PRINT

250 PRINT " 1) C a F"

260 PRINT " 2) F a C"

270 PRINT

280 INPUT "Escoge por nЃmero"; T$

290 IF T$ <> "1" AND T$ <> "2" THEN GOTO 190

300 LET T = VAL(T$)

310 RETURN

320 '

330 'Haz la conversiЂn

340 '-----------------

350 IF T = 1 THEN

360 'Convierte C a F:

370 CLS

380 PRINT

390 INPUT "ENTRA C"; C$

400 IF ASC(C$) < 48 OR ASC(C$) > 57 THEN GOTO 330

410 LET C = VAL(C$)

420 PRINT

430 LET F = 9 / 5 * C + 32

440 PRINT C; "C"; "="; F; "F"

450 PRINT

460 END IF

470 IF T = 2 THEN

480 'Convierte F a C:

490 CLS

500 PRINT

510 INPUT "ENTRA F"; F$

520 IF ASC(F$) < 48 OR ASC(F$) > 57 THEN GOTO 330

530 LET F = VAL(F$)

540 PRINT

550 LET C = (F - 32) * 5 / 9

560 PRINT F; "F"; "="; C; "C"

570 PRINT

580 END IF

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

Г QB302 CINCO PASOS PARA ESCRIBIR UN BUEN PROGRAMA 21 Г

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

590 RETURN

600 '

610 'Pide otra conversiЂn

620 '--------------------

630 INPUT "OTRA CONVERSION (S/N)"; S$

640 IF S$ = "S" OR S$ = "s" THEN GOTO 100

650 IF S$ = "N" OR S$ = "n" THEN GOTO 690

660 GOTO 610

670 RETURN

680 '

690 'Termina programa

700 '----------------

710 CLS

720 PRINT "EL PROGRAMA SE ACABO"

730 PRINT

740 RETURN