Problemas propuestos
1. Realizar un programa que lea por teclado dos números, si el primero es mayor al segundo informar su suma y diferencia, en caso contrario informar el producto y la división del primero respecto al segundo.
Module Module1
Sub Main()
Dim num1, num2, suma, diferencia, producto As Integer
Dim division As Single
Console.Write("Ingrese primer valor:")
num1 = Console.ReadLine()
Console.Write("Ingrese segundo valor:")
num2 = Console.ReadLine()
If num1 > num2 Then
suma = num1 + num2
diferencia = num1 - num2
Console.Write("La suma de los dos numeros es:")
Console.Write(suma)
Console.ReadKey()
Console.Write("La diferencia de los dos numeros es:")
Console.Write(diferencia)
Console.ReadKey()
Else
producto = num1 * num2
division = num2 / num1
Console.Write("El Producto de los dos numeros es:")
Console.Write(producto)
Console.ReadKey()
Console.Write("La division de los dos numeros es:")
Console.Write(division)
Console.ReadKey()
End If
End Sub
End Module
2. Se ingresan tres notas de un alumno, si el promedio es mayor o igual a siete mostrar un mensaje "Promocionado".
Module Module1
Sub Main()
Dim nota1, nota2, nota3 As Integer
Dim promedio As Double
Console.Write("Ingrese primera nota:")
nota1 = Console.ReadLine()
Console.Write("Ingrese segunda nota:")
nota2 = Console.ReadLine()
Console.Write("Ingrese tercera nota:")
nota3 = Console.ReadLine()
promedio = (nota1 + nota2 + nota3) / 3
Console.Write(" El promedio es :" & promedio)
Console.ReadLine()
If promedio >= 70 Then
Console.Write("Promocionado")
Else
End If
Console.ReadKey()
End Sub
End Module
3. Se ingresa por teclado un número positivo de uno o dos dígitos (1..99) mostrar un mensaje indicando si el número tiene uno o dos dígitos.
(Tener en cuenta que condición debe cumplirse para tener dos dígitos, un número entero)
Module Module1
Sub Main()
Dim numero As Integer
Console.Write("Ingrese un numero de uno o dos digitos:")
numero = Console.ReadLine()
If numero <= 9 Then
Console.Write(" Tiene un digito")
Else
Console.Write(" Tiene dos digitos")
End If
Console.ReadKey()
End Sub
End Module
That's the article: 1. Realizar un programa que lea por teclado dos números, si el primero es mayor al segundo informar su suma y diferencia, en caso contrario informar el producto y la división del primero respecto al segundo.
You are now reading the article 1. Realizar un programa que lea por teclado dos números, si el primero es mayor al segundo informar su suma y diferencia, en caso contrario informar el producto y la división del primero respecto al segundo. with link address https://technoupdatviral.blogspot.com/2021/06/1-realizar-un-programa-que-lea-por.html
Post a Comment