|
Ejecución |
 |
|
Guión de la actividad |
|
Arrancar el KPL, clicando dos veces sobre el icono del
escritorio . |
 |
|
|
Escribir nuestro comentario
inicial:
|
/*Programa: Máximo Común
Divisor
Autores: Lidia y Pablo
Descripción: Este
programa imprime el MCD
de los números 148
y 212, teniendo en
cuenta que el MCD es el
máximo
número entero que divide
a ambos*/
|
|
Poner título al programa:
Borrar MyNewProgram y poner
Mcd en su lugar.
En el Método Principal,
Method Main(), definimos las
variables con las que vamos
a trabajar y les asignamos
los valores N=148, M=212 y
X=1: |
Var X
As
Integer
//X será el MCD
Var
k
As
Integer
Var
N
As
Integer
Var
M
As
Integer
N=148
M=212
X=1
|
|
Si queremos calcular el MCD de 900 y 1536 sólo tendremos que
editar el código fuente y
escribir en estas líneas
N=900
y
M=1536
Tecleamos: |
For
k=1
To
N
If
(N
Mod
k=M
Mod
k)
And
(N
Mod
k=0)
Then
X=k
End If
Next
|
|
con ello, k recorre todos los valores entre 1 y N=148 y si el
resto de dividir N entre k
es igual al resto de dividir
M entre k y ambas cosas son
iguales a cero, entonces X
será k, es decir, k será el
MCD. Para construir esta
estructura se ha tenido muy
en cuenta que el MCD de dos
números es el máximo número
natural que divide a ambos.
Y por último escribimos el
código siguiente que hace
que visualicemos por
pantalla el resultado: |
Print("El MCD de los números
"+N+" y "+M+" es: "+X)
|
|
Guardamos el archivo picando
sobre el icono
 o
Archivo/Guardar,
escribiremos el nombre Mcd,
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: |
|
 |
|
¿Cuál es MCD de 1536 y 900?
Puedes elaborar un programa
editando el anterior en el
que se pida al usuario que
introduzca dos números
naturales e imprima por
pantalla su MCD. Ten en
cuenta que para ello tendrás
que utilizar ConsoleReadInt
y ConsoleWrite. |
