programacion




Masestro: pedro Humberto jernandez Montoya

3 f


EJERCICIO 01
Elaborar un algoritmo de el área de un cuadrado.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim lado, area As Integer
lado = InputBox("dame el valor del lado")
area = lado * lado
MsgBox("el valordel area es:" & area)
Me.Close()
End Sub
End Class


EJERCICIO 02
Elaborar un algoritmo para calcular el área de un rectángulo.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim base, altura, area As Integer
base = InputBox("dame el valor de la base")
altura = InputBox("dame el valor de laaltura")
area = base * altura
MsgBox("el valor del area es:" & area)
Me.Close()

End Sub
End Class


EJERCICIO 03
Elabora un diagrama de flujo que dados dos numeros a y b calcule la sumatoria

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim A, B, suma As IntegerA = InputBox("Dame el valor de A")
B = InputBox("Dame el valor de A")
suma = A + B
MsgBox("La suma es:" & suma)
Me.Close()
End Sub
End Class
















EJERCICIO 04
Elabora un diagrama de flujo que dadas una cantidad en minutos los convierta a segundos.



Public Class Form1

Private Sub Form1_Load(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim minutos, segundos As Integer

minutos = InputBox("dame la cantidad en minutos")
segundos = minutos * 60
MsgBox("cantidad en segundos es:" & segundos)
Me.Close()
End Sub
End Class
























EJERCICIO 05
Elabora un diagrama de flujo que dada lacantidad en días nos muestre la cantidad de segundos en la cantidad de días.


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dias, segundos As Integer
dias = InputBox("dame una cantidad de dias")
segundos = dias = 86400
MsgBox("la cantidad en segundos es:" & segundos)
Me.Close()End Sub
End Class














EJERCICIO 6
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dolares, tipo_de_cambio, pesos As Integer
dolares = InputBox("dame la cantidad de dolares")
tipo_de_cambio = InputBox("dame el tipo de cambio")
pesos = dolares * tipo_de_cambio
MsgBox("lacantidad en pesos es:" & pesos)
Me.Close()
End Sub
End Class


EJERCICIO 07
Elabora un d.f tal que dado como datos el nombre de un dinosaurio , su peso, y su lonquitud, expresados estos dos últimos en libras y pies respectivamente escriba el nombre del dinosaurio, su peso expresado en kg y su longitud en mts.


Private Sub Form1_Load(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles MyBase.Load
Dim dinosaurio, pies, libras, kilogramos, metros
dinosaurio = InputBox("dame el nombre del dinosaurio")
libras = InputBox("dame el peso del dinosaurio en libras")
pies = InputBox("dame la longitud del dinosaurio en pies")
metros = pies * 0.3047
MsgBox("la cantidad en metros es:" & metros)kilogramos = libras * 0.453
MsgBox("la cantidad en kilos es:" & kilogramos)
MsgBox("el dinosaurio es:" & dinosaurio)
Me.Close()
End Sub
End Class


EJERCICIO 08
una gasolinera sirve la gasolina en galones pero el precio lo cobra en litros. Elabora un d.f que dada la cantidad en galones y el precio en lts. Determine el monto a pagar.

Private Sub Form1_Load(ByVal...