jueves, 6 de septiembre de 2007

IF ANIDADO

Es una estructura que se utiliza con varios secuenciales que son variadas.


Ejercicios:

1.Elaborar un programa que me permita ingresar un numero si el numero es igual a par mostrar correcto caso contrario mal, si el numero es igual a impar mostrar chevere caso contrario intentalo.

Module Module1
Dim NUM, PAR, IMPAR As Integer
Sub Main()
Console.WriteLine("INGRESE EL NUMERO:")
NUM = Console.ReadLine
If NUM = PAR Then
Console.WriteLine("CORRECTO")
Else
Console.WriteLine("INCORRECTO")
End If
If NUM = IMPAR Then
Console.WriteLine("CHEVERE")
Else
Console.WriteLine("MAL")
End If
Console.ReadLine()
End Sub
End Module

2. Elaborar un programa que me permita ingresar la edad de una persona si la edad es mayor que 15 mostrar juventud caso contrario niñez, si la edad es mayor que 35 mostrar viejo caso contrario adulto.

Module Module1
Dim EDAD As Integer
Sub Main()
Console.WriteLine("INGRESE LA EDAD:")
EDAD = Console.ReadLine
If EDAD > 14 Then
Console.WriteLine("JUVENTUD")
Else
Console.WriteLine("NI¥EZ")
End If
If EDAD > 30 Then
Console.WriteLine("VIEJO")
Else
Console.WriteLine("ADULTO")
End If
Console.ReadLine()
End Sub
End Module

3.Elaborar un programa que me permita ingresar un color si el color es igual a rojo mostrar amor caso contrario incorrecto, si el color es igual a blanco mostrar paz caso contrario guerra.

Module Module1
Dim COLOR, BLANCO, ROJO As String
Sub Main()
Console.WriteLine("INGRESE EL COLOR:")
COLOR = Console.ReadLine
If COLOR = ROJO Then
Console.WriteLine("AMOR")
Else
Console.WriteLine("MAL DE AMOR")
End If
If COLOR = BLANCO Then
Console.WriteLine("PAZ")
Else
Console.WriteLine("PELEA")
End If
Console.ReadLine()
End Sub
End Module