PRACTICA 3. 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 Chevy Tsuru Cutlas Minicooper Monza
Descuento 10% 8% 5% 3% 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 Alberta, Can El Salvador San José, C.R. Lisboa México, D.F.
Costo 4.80 5.10 5.20 7.80 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