En esta entrada explicaremos cómo invertir un numero ingresado en C (testeado en Dev-C++).
Como programa principal.
#include <stdio.h>
#include <stdlib.h>
int main()
{
int N, Resto, Invertido=0; //Declaración de variables
printf("Ingrese el numero que desea invertir \n"); //Muestra lo que deseamos pedir
scanf("%d", &N); //Luego de que es ingresado, lo guarda en la variable N
while(N! = 0) //Ciclo iterativo que va utilizando cada digito del numero
{
Resto=N%10; //Guarda el resto de la division del numero y 10, para asi guardar cada digito
N=N/10; //Disminuye el numero para así poder utilizar el digito siguiente.
Invertido=Invertido*10+Resto; //Invierte el numero directamente
}
printf("Su nuevo numero invertido es %d \n", Invertido);
system("pause");
}
Ahora escribiremos el mismo código, pero tomado como función. Es casi idéntico al anterior, pero luego nombraré la principal diferencia.
#include <stdio.h>
#include <stdlib.h>
int InvertirNum(int N)
{
int Invertido=0, Resto;
while(N!=0)
{
Resto=N%10;
N=N/10;
Invertido=Invertido*10+Resto;
}
return Invertido;
}
int main()
{
int N, Respuesta;
printf("Ingrese el numero que desea invertir \n");
scanf("%d", &N);
Respuesta=InvertirNum(N);
printf("El numero invertido es %d \n", Respuesta);
system("pause");
}
La gran diferencia en usarlo como función, es que luego puede ser llamado cuantas veces sea necesario sin escribir todo el código denuevo, sino que solo llamandola con un parametro y usandola en alguna sentencia (asignarlo a variable, hasta incluso en un print). Es una forma muy útil de ahorrar código, entre otras cosas.
Y hecho!
martes, 19 de abril de 2011
Calcular factorial [VB 2005]
¿Cómo calcular el factorial de "X" número en VB 2005?
1. Creamos dos TextBox los cuales nombraremos "TxtNumero" y "TextResultado", y un botón que nos permita calcular nuestro factorial, al cual llamaremos "BtnCalcular". Estos con sus correspondientes Labels
2. Hacemos Doble Click en nuestro botón calcular e ingresaremos a nuestro querido código
Private Sub BtnCalcular_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcular.Click
'Definimos nuestras variables
Dim fact as Long
Dim num as Integer
Dim i as Integer
'Inicializamos nuestras variables
num = TxtNumero.Text
fact = 1
' Recordemos que el factorial de 0 es igual a 1, por lo cual usaremos un "IF" para este caso
If num = 0 Then
TxtResultado.Text = 1
'Si nuestro caso no es el anterior, lo calculamos con lo siguiente
Else
For i = 1 To num
fact = fact * i
Next i
End If
TxtResultado.Text = fact
End Sub
Y listo!, Tenemos nuestro codigo que nos permitirá calcular Factoriales :D
1. Creamos dos TextBox los cuales nombraremos "TxtNumero" y "TextResultado", y un botón que nos permita calcular nuestro factorial, al cual llamaremos "BtnCalcular". Estos con sus correspondientes Labels
2. Hacemos Doble Click en nuestro botón calcular e ingresaremos a nuestro querido código
Private Sub BtnCalcular_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcular.Click
'Definimos nuestras variables
Dim fact as Long
Dim num as Integer
Dim i as Integer
'Inicializamos nuestras variables
num = TxtNumero.Text
fact = 1
' Recordemos que el factorial de 0 es igual a 1, por lo cual usaremos un "IF" para este caso
If num = 0 Then
TxtResultado.Text = 1
'Si nuestro caso no es el anterior, lo calculamos con lo siguiente
Else
For i = 1 To num
fact = fact * i
Next i
End If
TxtResultado.Text = fact
End Sub
Y listo!, Tenemos nuestro codigo que nos permitirá calcular Factoriales :D
Nuestra Primera Entrada *-*
Blog creado para la ayuda e intercambio de conocimimientos de programación.
Espero lo disfruten :D!!
Espero lo disfruten :D!!
Suscribirse a:
Entradas (Atom)