Programacion

Solo disponible en BuenasTareas
  • Páginas : 5 (1037 palabras )
  • Descarga(s) : 0
  • Publicado : 11 de septiembre de 2010
Leer documento completo
Vista previa del texto
Divisores

Imports System.Console
Module Module1

Sub Main()

Dim div, num As Integer
pregunta(div, num)
mostrar(div, num)
ReadLine()

End Sub

Sub pregunta(ByRef divi As Integer, ByRef nume As Integer)
Dim num As Integer
WriteLine("Ingresa el numero")
num = ReadLine()
For cont As Integer = 1 To numIf num Mod cont = 0 Then
divi = divi + 1
WriteLine("Los divisores son : " & cont)
End If
Next
End Sub
Sub mostrar(ByVal divi As Integer, ByVal nume As Integer)
WriteLine("Los divisores del numero dado son: " & divi)
End Sub
End Module

Hacer un programa que obtenga el factorial de un número

ImportsSystem.Console
Module Module1

Sub Main()
factorial()
End Sub
Function factorial()
Dim res As Integer = 1
Dim num As Integer
WriteLine("Ingresa el numero")
num = ReadLine()
For cont As Integer = num To 1 Step -1
res = res * cont
Next
WriteLine()
WriteLine()
WriteLine("El factorialdel numero " & num & " es: " & res)
ReadLine()
End Function

End Module

Hacer un programa que le demos dos números enteros y muestre en pantalla todos los números comprendidos entre dichos números, ambos incluidos. El programa no debe suponer que el primero será menor que el segundo, ni viceversa, pero sí que deberá tenerlo en cuenta para mostrar los números en orden creciente odecreciente según el caso.

Imports System.Console
Module Module1

Sub Main()
ordenados()
End Sub
Function ordenados()
Dim num, num1 As Integer

WriteLine("Ingresa el primer numero")
num = ReadLine()
WriteLine("Ingresa el segundo numero")
num1 = ReadLine()
WriteLine()

If num < num1 Then
Forcont As Integer = num To num1 Step 1
WriteLine(cont)
Next
End If
If num > num1 Then
For cont1 As Integer = num To num1 Step -1
WriteLine(cont1)
Next
End If
ReadLine()
End Function
End Module

Hacer un programa que llene un vector de números enteros del tamaño y con los datos queespecifique el usuario. Posteriormente el programa identificara cual es el menor del vector y en que posición se encontraría. Mostrar resultados.

Imports System.Console
Module Module1
Sub Main()
Dim ar1() As Integer
Dim x As Integer
Write("cuantos arreglos-->")
x = ReadLine()
WriteLine()

ReDim ar1(x - 1)
llenar_arreglo(ar1, x)menor(ar1, x)
ReadLine()

End Sub

Sub llenar_arreglo(ByRef ar1() As Integer, ByVal x As Integer)
WriteLine("ingrese los " & x & " arreglos-->")
For cont As Integer = 0 To ar1.Length - 1
ar1(cont) = ReadLine()
Next
End Sub

Sub menor(ByVal ar1() As Integer, ByVal x As Integer)
Dim menor As Integer
Dimpos2 As Integer
menor = ar1(0)
For cont As Integer = 0 To ar1.Length - 1
If ar1(cont) < menor Then
menor = ar1(cont)
pos2 = cont
End If
Next
WriteLine("numero menor: " & menor & " y se encuentra en la posicion " & pos2 + 1)
End Sub
End Module

son los de el exponente
Imports System.ConsoleModule Module1

Sub Main()
Dim M, N1, N2 As Integer
pide_numeros(N1, N2)
M = procesa(N1, N2)
WriteLine("El resultado es: " & M)
ReadLine()
End Sub
Sub pide_numeros(ByRef N1 As Integer, ByRef N2 As Integer)
WriteLine("Dame un numero")
N1 = ReadLine()
WriteLine("Dame otro numero")
N2 = ReadLine()
End...
tracking img