Oorden

PRACTICA 3

1.-Hacer un programa modo consola para calcular el área y el perímetro de una figura geométrica.

Module Module1

Sub Main()
'area y perimetro de una figura'Dim bmm As Integer
Dim bm As Integer
Dim altura As Integer
Dim p As Integer
Dim a As Integer
Dim ld As Integer
Dim li As IntegerConsole.WriteLine("el area y perimetro sera de la figura TRAPECIO ")
Console.WriteLine("introduce la medida del valor de sus lados ")
l = Console.ReadLine()
bmm =Console.ReadLine()
bm = Console.ReadLine()
altura = Console.ReadLine()
Console.WriteLine("se esta calculando esperaa... :)) ")
p = ld + bmm + bm + li
a = ((bmm + bm) *altura) / 2
Console.WriteLine("el area es ")
Console.WriteLine(a)
Console.WriteLine("el perimetro es ")
Console.WriteLine(p)

End Sub

End Module2.-Hacer un programa para calcular el promedio de cualquier cosa

Module Module1

Sub Main()
'en la pasteleria "casa del chocolate" desea saber eltotal de sus ventas por esta semana y su promedio'
Dim l As Integer
Dim m As Integer
Dim mm As Integer
Dim j As Integer
Dim v As Integer
Dim s AsInteger
Dim d As Integer
Dim tot As Integer
Dim prom As Integer
Console.WriteLine("teclea la ventan del lunes")
l = Console.ReadLine()Console.WriteLine("teclea la venta del martes")
m = Console.ReadLine()
Console.WriteLine("teclea laa venta del miercoles")
mm = Console.ReadLine()
Console.WriteLine("teclea laaventa del jueves")
j = Console.ReadLine()
Console.WriteLine("teclea laa venta del viernes")
v = Console.ReadLine()
Console.WriteLine("teclea laa venta del sabado")...