Practica 3 Final
Practica 3 Final
Practica 3 Final
ESTRUCTURAS DE CONTROL.
Introducción
Las estructuras de control son aquellas que permiten controlar ciclos repetitivos
dentro de la programación. Estos son: if …then… else, el cual es condicional
de la misma forma que el Select Case. Entre los bucles se encuentran el For,
Do While, Do … Loop.
Instrucciones de la práctica.
1. Ingrese a Visual Studio 2005, Visual Basic.
2. Cree un formulario que contenga los siguientes componentes:
Componente Propiedad
PictureBox InitialImage=System.Drawing.Bitmap
Label Text=Termómetro de Grillito
TextBox Text=”
Button Text=Calcular
Debe quedar de la siguiente forma:
De esta forma resolveremos el siguiente ejercicio:
Se dice que dependiendo del número desunidos emitidos por un grillo en un
minuto se puede saber la temperatura existente, esto permite a las personas
del campo saber cual es la temperatura teniendo como termómetro al grillito. La
formula para determinarla es:
t=n/4+40
Donde t representa la temperatura en grados Fahrenheit y n el número de
sonidos emitidos por el grillito en un minuto. Realice un programa en el que
introduciéndole el número de sonidos del grillito calcule la temperatura
existente y donde diga que si el valor es = 0 entonces el grillito no emitió ningún
sonido.
3. En el método del button introduzca el siguiente código:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Label1.Text = "Termométro El Grillito"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
Dim i, t As Integer
i = InputBox("Introduce el numero de sonidos del grillito")
If i >= 0 Then
t = (i / 4) + 40
TextBox1.Text = Convert.ToInt16(t)
Else
MsgBox("!EL GRILLITO NO EMITIO SONIDO")
End If
End Sub
End Class
4. Ejecute el programa introduciendo los siguientes valores: 25, 0, 67, 1.
USO DEL FOR
Agrega un Nuevo botón al formulario el cual se llama for
Private Sub Button2_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim j, a As Integer
a = Convert.ToInt16(TextBox1.Text)
For j = 0 To 5
a = a * 5
TextBox1.Text = a
Next
End Sub
USO DEL DO WHILE
Agrega un Nuevo botón al formulario el cual se llama While
Private Sub Button3_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim b, c As Integer
c = Convert.ToInt16(TextBox1.Text)
'c = 6
b = InputBox("Introduce cuantos numeros quieres")
While (b <= 5)
c = c + 1
TextBox1.Text = c
b = b + 1
End While
End Sub
Ejercicios: (valor de cada programa 1.25 puntos)
a) Una concesionaria desea un programa que dado el modelo de un
vehículo y su precio determine el valor que debe pagar el comprador. El
concesionario está haciendo descuentos teniendo en cuenta el modelo
con base en la siguiente tabla:
Modelo Descuento
Chevy 10%
Tsuru 8%
Cutlas 5%
Minicooper 3%
Monza 9%
Utilice las estructuras if anidadas y el select case.
b) El costo de las llamadas telefónicas internacionales depende del
continente donde se encuentra la ciudad a donde se llama y el número
de minutos hablados. Realice un programa que calcule el costo de la
llamada introduciendo el usuario el numero de minutos hablados
teniendo en cuenta el costo mínimo por minuto de las siguientes
ciudades:
Ciudad Costo
Alberta, Can 4.80
El Salvador 5.10
San José, C.R. 5.20
Lisboa 7.80
México, D.F. 3.40
Utilice las estructuras if anidadas y el select case.
c) Se desea un programa quedado un numero por el usuario realice una
serie basada de multiplicarse por sí mismo imprimiendo los diez
primeros números. Ejemplo si el usuario ingresa el 4 entonces se
imprime 4, 8,12, 14, 20, 24, 28, 32, 36, 40. Utilice for.
d) Se desea un programa que el usuario inserte el numero de veces que
desea que se imprima el símbolo #. Utilice Do while.
e) Redesea un programa que le pregunte al usuario cuantas veces desea
que se imprima el símbolo de %, utilice las estructuras for y do while.
f) Realice un programa que sume 5 números ingresados por el usuario e
imprima en una caja de texto los números pares que inserto y los
impares en otra así como el total de la suma y el promedio.
g) Realizar un programa que calcule e imprima la suma de los múltiplos de
5 comprendidos entre dos valores a y b. El programa no permitirá
introducir valores negativos para a y b, además verificará que a sea
menor que b. Si a es mayor que B entonces intercambiará los valores.
h) Realizar un programa que calcule las raíces de la ecuación:
ax 2 + bx + c = 0
teniendo en cuenta los siguientes casos:
1) Si a = 0 y b=0 imprima un mensaje diciendo quela ecuación es
degenerada.
2) Si a = 0 y b<>0, existe