UNIVERSIDAD GERARDO BARRIOS
FACULTAD DE CIENCIA Y TECNOLOGIA
INGENIERIA EN SISTEMAS Y REDES INFORMATICAS
CATEDRAICO
GISSELA ESPINOSA
ESTUDIANTE
KENIA PATRICIA
PORTILLO JOYA
SMIS296915
MATERIA
PROGRAMACION I
GUIA DE EJERCICIOS
CICLO
II
2016
EJERCICIO 1
Determinar
si un
número
es par o
impar.
Module Module1
Sub Main()
Dim numero As
String
Console.WriteLine("ingrese un numero")
numero=Console.ReadLine()
If (Numero / 2)
= Int((Numero / 2)) Then
Console.WriteLine("'El numero es Par ")
Else
Console.WriteLine("El numero es Impar")
End If
Console.Read()
End Sub
End Module
EJERCICIO 2
Resolver
la siguiente ecuación
ax
2
+ bx + c,
cada valor debe ser solicitado al
usuario.
Module module1
Sub
main()
Dim a As Integer = 0
Dim b As Integer = 0
Dim c As Integer = 0
Dim x As Integer
Dim
resultado As Integer = 0
Console.WriteLine("Favor ingrese
la variable a")
a = Console.ReadLine()
Console.WriteLine("Favor ingrese
la variable b")
b = Console.ReadLine()
Console.WriteLine("Favor ingrese
la variable c")
c = Console.ReadLine()
Console.WriteLine("Favor ingrese
la variable x")
x = Console.ReadLine()
resultado = ((a * x) * (a * x)) + (b *
x) + c
Console.WriteLine("El valor que
resulta de la ecuación ax2 + bx + c en base a los datos introducidos es: "
& resultado)
Console.Read()
End
Sub
End Module
EJERCICIO 3
Determinar
si un número es positivo o
negativo.
Module
Module1
Sub Main()
Dim numero As Double
Dim positivo As Double
Dim negativo As Double
positivo = 0
negativo = -0
Console.WriteLine("ingrese un número")
numero = Console.ReadLine()
If numero > 0 Then
MsgBox("El número es
positivo")
Else :
MsgBox("El número es negativo")
End If
Console.Read()
End Sub
End Module
EJERCICIO 4
Escribir
un programa que calcule el importe de una factura sabiendo que el IVA
a aplicar
es del 13% y que, si el importe bruto de la factura es superior a 50, se
debe de
realizar un descuento del 5%
Sub Main()
Dim monto_compra As Integer
Dim iva As String
Dim descuento As Integer
Dim subtotal As String
Dim total As String
Console.WriteLine("Bienvenido ingrese
el Total de su compra")
monto_compra = Console.ReadLine
iva = monto_compra * 0.13
subtotal = monto_compra + iva
If subtotal > 50 Then
descuento = subtotal * 0.05
total = subtotal - descuento
Console.WriteLine("Se ha
ganado un descuento del %5")
Console.WriteLine("Descuento
aplicar: $" & descuento)
Console.WriteLine("Monto de compra
$ : " & monto_compra)
Console.WriteLine("Iva (13%)
(+) $ : " & iva)
Console.WriteLine("Subtotal $:
" & subtotal)
Console.WriteLine("Descuento
5%(-) $ : " & descuento)
Console.WriteLine("Total a cancelar $:
" & total)
Else
Console.WriteLine("Monto de
compra $ :" & monto_compra)
Console.WriteLine("Iva (13%)
(+) $:" & iva)
Console.WriteLine("Subtotal $:
" & subtotal)
Console.WriteLine("Total a Cancelar $: " & subtotal)
End If
Console.Read()
End Sub
End Module
EJERCICIO 5
Hacer un
programa que calcule y muestre el tot
al a pagar
por la compra de
productos,
se debe pedir como entrada el valor del producto y la cantidad de
productos
comprados, además si se compra 5 productos o más se le aplica un
descuento
de 25% al monto total a pagar y si son menos de 5 productos el
des
cuento es
de 10% al monto total a pagar.
Module
Module1
Sub Main()
Dim articulo As Double
Dim unidades As Double
Console.WriteLine("¿Cuanto
cuesta el producto que lleva?:")
articulo =
Console.ReadLine
Console.WriteLine("¿cuantas unidades de este producto lleva?")
unidades =
Console.ReadLine
If unidades
> 5 Then
unidades =
(articulo * 0.75)
Console.WriteLine("va a cancelar un valor de:$" &
unidades)
ElseIf
unidades < 5 Then
unidades =
(articulo * 0.9)
Console.WriteLine("su total con descuento del 10% es de: $"
& unidades)
End If
Console.Read()
End Sub
End Module
EJERCICIO 6
Un
comerciante efectúa durante el mes 10 ventas a distintos clientes. Se desea
saber:
a.
Cuantas
ventas fueron mayores a 550.
b.
Cuantas
ventas fueron mayores a 200 y menores o iguales a 550.
c.
Calcular
los promedios de cad
a grupo
(puntos a y b).
d.
Mostrar
por pantalla lo solicitado en los puntos a, b y c
Module Module1
Sub Main()
Dim Venta As Integer
Dim VentaProm As Integer
Dim menor As Integer = 0
Dim Promedio As Integer = 0
Dim total, i As Integer
Dim Promedio2 As Integer = 0
Dim mayor As Integer = 0
For i = 0 To 10
Console.WriteLine("Favor
escriba el precio de la Venta")
total = Console.ReadLine()
If total > 550 Then
mayor = mayor + 1
Venta += total
ElseIf total > 200 Or total
<= 550 Then
menor = menor + 1
VentaProm += total
End If
Next
Console.WriteLine("Cuantas
ventas fueron mayores a 550: {0} ventas", mayor)
Console.WriteLine("Cuantas ventas
fueron mayores a 200 y menores o iguales a 550: {0} ventas", menor)
Console.WriteLine("Promedio de
ventas de 550: {0}", Venta)
Console.WriteLine("Promedio de
ventas de 200 a 550: {0}", VentaProm)
Console.Read()
End Sub
End Module
EJERCICIO 7
Un
profesor de un curso, hace un examen de Programación a cada uno de sus
25
alumnos de acuerdo a los resultados obtenidos se procede de la siguiente
manera:
En caso de obte
ner una
nota menos a 4 el alumno esta reprobado. En
caso
contrario el alumno está aprobado. Se desea saber:
a.
Cuantos
alumnos reprobaron la materia.
b.
Cuantos
alumnos aprobaron la materia.
c.
Calcular
los promedios de los alumnos reprobados y aprobados.
d.
Mostrar p
or
pantalla lo solicitado en a, b, c.
Module Module1
Sub Main()
Dim ANota, laNota As Double
Dim Nota As Double
Dim Aproba As Double
Dim Notaa, Nota1 As Double
Dim Reproba As Double
Aproba = 0
laNota = 0
Reproba = 0
Nota = 0
Console.WriteLine("Introduzca las
Notas")
Nota = Console.ReadLine
For i = 1 To 25
Console.WriteLine("Introduzca
las Notas")
Nota = Console.ReadLine
If Nota > 4 Then
Aproba = Aproba + 1
Notaa += Nota
ElseIf Nota < 4 Then
Reproba = Nota + 1
Nota1 += Nota
End If
Next
ANota = Notaa / Aproba
laNota = Nota1 / Reproba
Console.WriteLine("Los Alumnos
Aprobados son:" & Aproba)
Console.WriteLine("Los Alumnos
Reprobados son:" & Reproba)
Console.WriteLine("Alumnos
Aprobado:" & ANota & ("
Alumnos Reprobados:") & laNota)
Console.Read()
End Sub
End Module
EJERCICIO 8
Una
tienda tiene una promoción que se aplica según el mes, en los meses de
Enero a
Junio todas las ventas mayores de 1500 tienen un descuento del 10%
sobre el
precio de venta y no se le cobrara el IVA, en los meses de
Julio a
Diciembre
las ventas mayores a 5000 tienen un descuento del 10% y se les
cobrara
el IVA, las ventas mayores a 1000 tienen un descuento y se les cobra el
IVA pero
las ventas mayores a 2000 se les hace un descuento del 20% y no se
les
cobrara IVA. De
terminar
lo que el cliente debe pagar. (El IVA es del 13% y
se
calcula después de aplicarle el descuento a la venta).
Module
Module1
Sub Main()
Dim total_pagar As String
Dim descuento As Decimal
Dim mes As String
Dim precio As String
Dim iva As Decimal
Console.WriteLine("Escriba el mes
")
mes =
Console.ReadLine
Console.WriteLine("ingrese el precio")
precio =
Console.ReadLine
If mes =
"enero" And precio > 1500 Then
descuento
= precio * 0.1
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes =
"febrero" And precio > 1500 Then
descuento
= precio * 0.1
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes =
"marzo" And precio > 1500 Then
descuento
= precio * 0.1
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a
pagar es de : $ " &
total_pagar)
ElseIf mes = "abril" And
precio > 1500 Then
descuento = precio * 0.1
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes = "mayo" And
precio > 1500 Then
descuento = precio * 0.1
total_pagar
= precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes =
"junio" And precio > 1500 Then
descuento
= precio * 0.1
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes = "julio" And
precio > 500 Then
descuento = precio * 0.1
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & iva)
ElseIf mes = "agosto" And
precio > 500 Then
iva = precio * 0.13 + precio
descuento
= precio * 0.1
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar
es de : $ " & iva)
ElseIf mes =
"septiembre" And precio > 500 Then
descuento
= precio * 0.1
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & iva)
ElseIf mes = "octubre" And
precio > 500 Then
descuento = precio * 0.1
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & iva)
ElseIf mes =
"noviembre" And precio > 500 Then
descuento
= precio * 0.1
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & iva)
ElseIf mes =
"diciembre" And precio > 500 Then
descuento
= precio * 0.1
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & iva)
ElseIf mes = "julio" And
precio > 1000 Then
descuento = precio * 0.2
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & iva)
ElseIf mes = "agosto" And
precio > 1000 Then
descuento = precio * 0.2
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de {: $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & iva)
ElseIf mes =
"septiembre" And precio > 1000 Then
descuento
= precio * 0.2
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & iva)
ElseIf mes = "octubre" And
precio > 1000 Then
descuento = precio * 0.2
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & iva)
ElseIf mes =
"noviembre" And precio > 1000 Then
descuento = precio * 0.2
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & iva)
ElseIf mes =
"diciembre" And precio > 1000 Then
descuento
= precio * 0.2
total_pagar = precio - descuento
iva =
total_pagar * 0.13 + total_pagar
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes = "julio" And
precio > 2000 Then
descuento = precio * 0.2
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes = "agosto" And
precio > 2000 Then
descuento = precio * 0.2
total_pagar
= precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes =
"septiembre" And precio > 2000 Then
descuento
= precio * 0.2
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes = "octubre" And
precio > 2000 Then
descuento = precio * 0.2
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes =
"noviembre" And precio > 2000 Then
descuento
= precio * 0.2
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
ElseIf mes =
"diciembre" And precio > 2000 Then
descuento
= precio * 0.2
total_pagar = precio - descuento
Console.WriteLine("su descuento es de : $ " & descuento)
Console.WriteLine("el total a pagar es de : $ " & total_pagar)
End If
Console.Read()
End Sub
End Module
EJERCICIO 9
Escribir
un programa que pida tres números y los ordene de manera ascendente
y
descendente.
Module
module1
Sub Main()
Dim num1 As Integer
Dim num2 As Integer
Dim num3 As
Integer
Console.WriteLine("ingrese el
numero 1")
num1 = Console.ReadLine()
Console.WriteLine("ingrese el
numero 2")
num2 = Console.ReadLine()
Console.WriteLine("ingrese el
numero 3")
num3 = Console.ReadLine()
Console.WriteLine("El orden de los
numeros introducidos de Mayor a menor es: " & vbCrLf)
If num1
> num2 And num1 > num3 Then
Console.WriteLine(num1)
If num2 > num3 Then
Console.WriteLine(num2)
Console.WriteLine(num3)
Else
Console.WriteLine(num3)
Console.WriteLine(num2)
End If
End If
If num2 > num1 And num2 > num3 Then
Console.WriteLine(num2)
If num1 > num3 Then
Console.WriteLine(num1)
Console.WriteLine(num3)
Else
Console.WriteLine(num3)
Console.WriteLine(num1)
End If
End If
If num3 > num1 And num3 > num2 Then
Console.WriteLine(num3)
If num1 > num2 Then
Console.WriteLine(num1)
Console.WriteLine(num2)
Else
Console.WriteLine(num2)
Console.WriteLine(num1)
End If
End If
Console.WriteLine("El orden de los
numeros introducidos de MENOR a MAYOR es: " & vbCrLf)
If num1
< num2 And num1 < num3 Then
Console.WriteLine(num1)
If num2 < num3 Then
Console.WriteLine(num2)
Console.WriteLine(num3)
Else
Console.WriteLine(num3)
Console.WriteLine(num2)
End If
End If
If num2 < num1 And num2 < num3 Then
Console.WriteLine(num2)
If num1 < num3 Then
Console.WriteLine(num1)
Console.WriteLine(num3)
Else
Console.WriteLine(num3)
Console.WriteLine(num1)
End If
End If
If num3 < num1 And num3 < num2 Then
Console.WriteLine(num3)
If num1 < num2 Then
Console.WriteLine(num1)
Console.WriteLine(num2)
Else
Console.WriteLine(num2)
Console.WriteLine(num1)
End If
End If
Console.Read()
End
Sub
End Module
EJERICICIO 10
Escribir
un programa que determine la edad de
una
persona según la fecha de
nacimiento
Module
Module1
Sub Main()
Dim nacimiento As String
Dim edad As String
Console.WriteLine("ingresa
su fecha de nacimiento")
nacimiento =
Console.ReadLine
edad = 2016 -
nacimiento
Console.WriteLine("Su edad es : " & edad)
Console.Read()
End Sub
End Module
EJERCICIO 11
Crear un
programa que llene una matriz de 5 filas y 6 columnas
a.
Número
más alto.
b.
Promedio
de datos por columna.
Module Module1
Sub Main()
Dim filas As Integer
Dim matriz(4, 5) As Integer
Dim columnas As Integer
Dim intMayor As Integer
Dim total As Integer
For filas = 0 To 4
For columnas = 0 To 5
Console.WriteLine("filas " & filas + 1 &
"columnas " & columnas
+ 1 & ":")
matriz(filas, columnas) =
Console.ReadLine
Next
Next
intMayor = 0
For filas = 0 To 4
For columnas = 0 To 5
If (matriz(filas, columnas)
> intMayor) Then
intMayor = matriz(filas,
columnas)
End If
Next
Next
For filas = 0 To 4
For columnas = 0 To 5
Console.Write(matriz(filas,
columnas) & " ")
Next
Console.WriteLine(" ")
Next
For columnas = 0 To 5
total = 0
Next
Console.ReadLine()
End Sub
End Module
--------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------
Manual de Instalación de Visual Studio Grupo:“B”
Requisitos de hardware para instalar
visual studio
Sugerencias
para mejorar el rendimiento
A continuación se describen algunos métodos que
contribuyen a mejorar el rendimiento general de este producto en el equipo.
Sugerencias generales: Desactive la detección de virus en devenv.exe.
Desfragmente el disco duro después de instalar
el producto.
Compruebe los requisitos de memoria RAM y
procesador de la edición que ha instalado y considere la posibilidad de
aumentar la memoria o velocidad del disco.
Con el entorno de desarrollo integrado (IDE)
abierto:
Antes de cerrar el equipo, cierre las ventanas
de herramientas que no utilice en el inicio para aumentar la velocidad de
inicio la próxima vez que lo abra.
No elija mostrar la ventana Propiedades al
iniciar el IDE. La ventana Propiedades se muestra automáticamente cuando se
abre una solución.
No hay comentarios:
Publicar un comentario