Programas de recursividad y otros, creados en Visual Basic 2005
Enviado por jaimemontoya
- Resumen
- Dos valores enteros son o no iguales
- Un caracter dado es o no una letra
- Un entero es o no par
- Un entero es o no impar entre 1 y 25 inclusive
- Máximo común divisor sin recursividad
- Mayor de tres valores reales
- a Elevado a la n, siendo a y n números reales con recursividad
- Sucesión Fibonacci con recursividad
- Máximo común divisor de dos números enteros con recursividad
- Combinatorio (n c r) con recursividad
- Factorial de un numero usando recursividad
- Edad de una persona
- Programa para obtener las 6 funciones trigonométricas de un ángulo introducido en radianes
- Programa para convertir un valor introducido en radianes, a grados-minutos-segundos
RESUMEN
En este documento se presentan los códigos de 14 programas muy interesantes y útiles creados en Visual Basic 2005. En muchos de ellos se utiliza recursividad. Solamente hará falta crear el formulario y los objetos que coincidan con el código presentado en cada programa. En general será fácil crear el formulario con los objetos, para luego copiar y pegar el código y así ejecutar cada uno de los programas.
1. DOS VALORES ENTEROS SON O NO IGUALES
Public Class Form1
Function iguales(ByVal x As Integer, ByVal y As Integer) As Boolean
If x = y Then
Return True
Else
Return False
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = iguales(TextBox1.Text, TextBox2.Text)
End Sub
End Class
2. UN CARACTER DADO ES O NO UNA LETRA
Public Class Form1
Function letraono(ByVal x As String) As Boolean
If Val(TextBox1.Text) = 0 Then
Return True
Else
Return False
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = letraono(TextBox1.Text)
End Sub
End Class
3. UN ENTERO ES O NO PAR
Public Class Form1
Function parono(ByVal x As Integer) As Boolean
Dim residuo As Integer
residuo = x Mod 2
If residuo = 0 Then
Return True
Else
Return False
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = parono(TextBox1.Text)
End Sub
End Class
Página siguiente  |
Trabajos relacionados
Ver mas trabajos de Software |
|
Nota al lector: es posible que esta página no contenga todos los componentes del trabajo original (pies de página, avanzadas formulas matemáticas, esquemas o tablas complejas, etc.). Recuerde que para ver el trabajo en su versión original completa, puede descargarlo desde el menú superior.
Todos los documentos disponibles en este sitio expresan los puntos de vista de sus respectivos autores y no de Monografias.com. El objetivo de Monografias.com es poner el conocimiento a disposición de toda su comunidad. Queda bajo la responsabilidad de cada lector el eventual uso que se le de a esta información. Asimismo, es obligatoria la cita del autor del contenido y de Monografias.com como fuentes de información.