-
Lenguaje
Visual Basic .Net
-
Descripción
Una empresa que contrata personal requiere determinar la edad de las personas que solicitan trabajo, pero cuando se les realiza la entrevista sólo se les pregunta el año en que nacieron.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Module EdadAPartirDelAnoDeNacimiento
Sub Main()
Dim ano_actual, ano_de_nacimiento, edad As Integer
Console.Write("Ingresa el valor de ano actual: ")
ano_actual = Integer.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de ano de nacimiento: ")
ano_de_nacimiento = Integer.Parse(Console.ReadLine())
edad=ano_actual-ano_de_nacimiento
If edad>=18 Then
Console.WriteLine("Aprobado")
Else
Console.WriteLine("Rechazado")
End If
Console.WriteLine("Valor de edad: " & edad)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim ano_actual, ano_de_nacimiento, edad As Integer
Console.Write("Ingresa el valor de ano actual: ")
ano_actual = Integer.Parse(Console.ReadLine())
Console.Write("Ingresa el valor de ano de nacimiento: ")
ano_de_nacimiento = Integer.Parse(Console.ReadLine())
edad=ano_actual-ano_de_nacimiento
If edad>=18 Then
Console.WriteLine("Aprobado")
Else
Console.WriteLine("Rechazado")
End If
Console.WriteLine("Valor de edad: " & edad)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module