Lic informatica administrativa

Primer aplicación Saludos.

Aplicación que muestre mi nombre, dirección, teléfono y e-mail.


Aplicación que suma 2 números enteros ingresados por el usuario


Desarrolle una aplicación que permita obtener la suma del cuadrado de dos números.


Cuatro operaciones aritméticas Basicas.


Calcula la raíz cuadrada de un numero ingresado por el usuario


Calcula las Cuatrooperaciones aritméticas Basicas de un numero ingresado por el usuario.
Module Aritmetica
Sub Main()
Dim dato1, dato2, resultado as integer
System.Console.Write("Ingresa el primer numero...")
dato1 = System.Console.ReadLine
System.Console.Write("Ingresa el segundo numero...")
dato2 = System.Console.ReadLine

'suma
resultado = dato1 + dato2
System.Console.WriteLine("{0} + {1} ={2}", dato1, dato2, resultado)


'resta
resultado = dato1 - dato2
System.Console.WriteLine("{0} - {1} = {2}", dato1, dato2, resultado)


'multiplicacion
resultado = dato1 * dato2
System.Console.WriteLine("{0} * {1} = {2}", dato1, dato2, resultado)


'divicion
resultado = dato1 / dato2
System.Console.WriteLine("{0} / {1} = {2}", dato1, dato2, resultado)
End SubEnd Module


Calcula la raíz cuadrada de un numero ingresado por el usuario
Module RaizCuadrada 'calcula la raiz cuadrada de un numero
sub Main()
Dim N1, Resul as Integer
System.Console.Write("Ingresa un numero...")
N1=System.Console.Readline
Resul = N1^.5
System.Console.WriteLine("El Resultado es..."&Resul)
End sub
End Module



Mostrar datos por la pantalla.Module MostrarDatos
Sub Main()

Dim a, b As Double
Dim c As integer
Dim s As String

a = 3.14 : b = 2.71 : c = 2
s = "Datos"
System.Console.WriteLine(s & ": ")
System.Console.WriteLine("a = " & a)
System.Console.WriteLine("b = " & b)
System.Console.WriteLine("c = " & c)
End Sub
End Module



Define si un numero es par o impar
Module OperadoresDeRelacion' Expresiones condicionales

Sub Main()
Dim num as Integer = 23
if num Mod 2 = 0 Then 'Si el resto de la divicion es igual a cero,
System.Console.WriteLine("Numero Par")
System.Console.WriteLine("Valor: " & num)
Else
System.Console.WriteLine("Numero Impar")
System.Console.WriteLine("Valor: " & num)
End If
End Sub
End Module





Module AritmeticaDos'Procedimiento sumar:
'parametros x e y de tipo Double
'devuelve x + y

Function sumar (x As Double, y As Double) As Double
Dim resultado As Double = 0
resultado = x + y
Return resultado
End Function

Sub Main()
Dim a As Double = 10, b As Double = 20, r As Double = 0
r = sumar(a, b)
System.Console.WriteLine("Suma = " & r)
End Sub
End Module



Construya unprograma tal, que dados la matricula de un alumno , la carrera en la que está, su semestre y promedio, determine si el mismo es apto para pertenecer a alguna de las facultades menores que tiene la universidad. Si el alumno es aceptado teniendo en cuenta las especificaciones que se listan abajo, se debe imprimir su matricula, carrera y la palabra “ACEPTADO”. En caso contrario “NO ACEPTADO”
Economíasemestre >=8 y Promedio>=8.8
Computación semestre >6 y Promedio >8.5
Administración semestre >5 y promedio >8.5
Contabilidad semestre >5 y promedio >8.5


Desarrolle una aplicación que permita resolver el siguiente problema.
A partir de un numero dado del teclado se obtenga el cuadrado, el cubo, la quinta y la decima potencia de dicho numero. Se deberá usar un menú para elegir laopción que se desea resolver.

Module Potencias
sub Main()
Dim num, resul, opcion as Integer
System.Console.Write("Ingresa un numero...")
num=System.Console.Readline

System.Console.WriteLine("ELIGE DEL MENU LA POTENCIA QUE DESEAS OBTENER")
System.Console.WriteLine("1. SEGUNDA")
System.Console.WriteLine("2. TERCERA")
System.Console.WriteLine("3. QUINTA")...