|
Ejecución |
 |
|
Guión de la actividad 12.1:
Reducir a
fracción simple la fracción 1024/3584 |
|
Arrancar el KPL y crear un
nuevo programa.
Escribimos en las primeras líneas de código el
comentario: |
/*Programa:
SimplificarFracción1
Autores: Lidia y Pablo
Descripción: Este
Programa reduce a
fracción simple la
fracción 1024/3584*/
|
|
Antes del Método Principal,
Method Main(), definimos las
variables n (numerador) y d
(denominador), que vamos a
utilizar tanto en el Method
Main() como en la Method
ReducirFraccion () con el
que trabajaremos: |
Var n
As
Integer
Var
d
As Integer
|
|
A continuación definimos el
Método ReducirFraccion. Un
Method es como un
subprograma que realiza una
determinada acción. METHOD
acaba siempre con End Method.
Tecleamos el código: |
Method
ReducirFraccion()
//simplificamos la
fracción n/d
Var
divisor
As
Integer
divisor=2
While
(divisor<=n)
And
(divisor<=d)
While
(n
Mod
divisor=0)
And
(d
Mod
divisor=0)
n=n/divisor
d=d/divisor
End While
divisor=divisor+1
End While
End Method
|
|
Lo primero que hacemos es
definir la variable divisor
con tipo de datos enteros y
asignarle el valor 2. A
continuación abrimos un
WHILE en el que las acciones
que lleva dentro sólo se
ejecutarán cuando la
variable divisor sea, a la
vez, menor o igual que n y
d. La primera acción que
tenemos es un WHILE con las
condiciones
n
Mod
divisor=0 y
d
Mod
divisor=0, es decir, que el resto de dividir n entre divisor y d entre
divisor sean ambos cero. En
este caso se ejecutan las
asignaciones
n=n/divisor
y
d=d/divisor,
con lo que “n” se transforma
en el cociente n/divisor, y
a “d” se le asigna el valor
de d/divisor.
La siguiente línea de
programación hace que la
variable divisor aumente en
1 (divisor=divisor+1).
Este Method que hemos
definido lo que hace es
dividir numerador y
denominador por todos los
divisores de ambos, con lo
que al final la fracción
será simple.
Ahora ya dentro del Método
Principal, Method Main(),
asignamos los valores 1024 y
3584 a las variables n y d
respectivamente, pues
queremos reducir a fracción
simple 1024/3584: |
|
|
|
Escribimos el código siguiente: |
PrintLine("Mi
fracción es "+n+"/"+d)
ReducirFraccion()
PrintLine("Simplificando
mi fracción obtenemos "+n+"/"+d)
|
|
Obsérvese
que ReducirFraccion()
es la forma de
invocar el Method
que hemos definido
anteriormente,
entonces, cuando
ReducirFraccion() se
ejecuta, la fracción
n/d será simple.
Guardamos el archivo picando en Archivo/Guardar como
nuevo programa y
escribiremos el
nombre
SimplificarFraccion1,
seleccionando la
carpeta donde quiera
ir almacenando todas
las actividades. Por
defecto la carpeta
elegida es My
Phrograms Files que
está en Mis
Documentos.
|
 |
|
|
En el caso de existir algún error en el CÓDIGO FUENTE de
nuestro programa, KPL nos
informa con un aviso de
ERROR y el cursor se sitúa
sobre la línea y secuencia
errónea. Lo rectificaremos.
|
|
Al ejecutar el programa (F5),
obtenemos:
¿Qué tendremos que
cambiar en el código
fuente de nuestro
programa para
reducir a fracción
simple 5610/9000?
¿Obtienes 187/300?
|
 |
|
