Algoritmos CETIS

Ejercicio 1
Id. del problema:
Pedir nombre, edad, dirección y fecha de nacimiento y que imprima los datos.

Algoritmo:
1.- Inicio
2.- Pedir nombre
3.- Pedir edad
4.- Pedir dirección
5.- Pedir fecha de nacimiento
6.- Imprimir nombre
7.- Imprimir edad
8.- Imprimir dirección
9.- Imprimir fecha de nacimiento
10.- Fin

Código:
Module Module1
Sub Main()
Dim Nombre As String
Dim Edad As String
DimDirección As String
Dim Fechanac As String
Console.Clear()
Console.SetCursorPosition(15, 1)
Console.BackgroundColor = ConsoleColor.Blue
Console.ForegroundColor = ConsoleColor.White
Console.Write("Programa que imprime nombre, edad, dirección y fecha de nacimiento")
Console.ResetColor()
Console.SetCursorPosition(22, 8)
Console.Write("Teclea el nombre: ")
Nombre = Console.ReadLineConsole.SetCursorPosition(22, 10)
Console.Write("Teclea la edad: ")
Edad = Console.ReadLine
Console.SetCursorPosition(22, 12)
Console.Write("Teclea la dirección: ")
Dirección = Console.ReadLine
Console.SetCursorPosition(22, 14)
Console.Write("Teclea fecha de nacimiento: ")
Fechanac = Console.ReadLine
Console.SetCursorPosition(22, 16)
Console.Write("Datos tecleados: ")
Console.BackgroundColor = ConsoleColor.DarkGreenConsole.ForegroundColor = ConsoleColor.White
Console.SetCursorPosition(22, 18)
Console.Write("Nombre: ")
Console.WriteLine(Nombre)
Console.SetCursorPosition(22, 19)
Console.Write("Edad: ")

Console.WriteLine(Edad)
Console.SetCursorPosition(22, 20)
Console.Write("Dirección: ")
Console.WriteLine(Dirección)
Console.SetCursorPosition(22, 21)
Console.Write("Fecha de nacimiento: ")Console.WriteLine(Fechanac)
Console.ResetColor()
Console.SetCursorPosition(22, 23)
Console.Write("Laura Viridiana López Rodríguez")
Console.SetCursorPosition(22, 25)
Console.Write("Presione ENTER para salir")
Console.ReadLine()
End Sub
End Module

ejercicio 2
Id. del problema:
Calcular el área de un cuadrado de lado X e imprimir el resultado.

Algoritmo:
1.- Inicio
2.- Teclear el valor de X
3.- Calcular área = (X)(X)4.- Imprimir el valor de área
5.- Fin

Código:
Module Module1
Sub Main()
Dim Lado, A As Double
Console.Clear()
Console.CursorLeft = 15
Console.CursorTop = 1
Console.Write("Teclea el lado del cuadrado: ")
Lado = Console.ReadLine
A = Lado * Lado
Console.SetCursorPosition(22, 12)
Console.WriteLine(Format(A, "0.00"))
Console.SetCursorPosition(22, 20)
Console.Write("Realizó: Laura Viridiana LópezRodríguez")
Console.Write("Presione ENTER para salir")
Console.ReadLine()
End Sub
End Module

ejercicio 3
Id. del problema:
Calcular el área de un rectángulo e imprimir el resultado.

Algoritmo:
1.- Inicio
2.- Imprimir "Teclea la medida del primer lado"
3.- Guardar lado1
4.- Imprimir "Teclea la medida del 2do lado"
5.- Guardar lado2
6.- Calcular Área = lado1 * lado2
7.- Imprimir "El área del rectánguloes: " Área
8.- Fin

Código:
Module Module1
Sub Main()
Dim Base, Area, Altura As Double
Console.Clear()
Console.SetCursorPosition(15, 1)
Console.BackgroundColor = ConsoleColor.Blue
Console.ForegroundColor = ConsoleColor.White
Console.Write("Programa que calcule el area de un rectángulo")
Console.ResetColor()
Console.SetCursorPosition(22, 8)
Console.Write("Teclea la base: ")
Base = Console.ReadLineConsole.SetCursorPosition(22, 10)
Console.Write("Teclea la altura: ")
Altura = Console.ReadLine
Area = Base * Altura
Console.SetCursorPosition(22, 12)
Console.Write("El area del rectángulo es: ")
Console.WriteLine(Format(Area, "0.00"))
Console.SetCursorPosition(22, 20)
Console.Write("Realizó: Laura Viridiana López Rodríguez")
Console.SetCursorPosition(22, 21)
Console.Write("Presiona ENTER parasalir")
Console.ReadLine()
End Sub
End Module

ejercicio 4
Id. del problema:
Calcular el área de un triángulo e imprimir el resultado.

Algoritmo:
1.- Inicio
2.- Imprimir "Teclea la medida de la base"
3.- Guardar Base
4.- Imprimir "Teclea la medida de la altura"
5.- Guardar Altura
6.- Calcular Área = (Base * Altura) / 2
7.- Imprimir "El área del rectángulo es: " Área
8.- Fin

Código:
Module...