ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Desarrolla el análisis pseudocódigo o diagrama de flujo


Enviado por   •  19 de Septiembre de 2013  •  Examen  •  459 Palabras (2 Páginas)  •  1.101 Visitas

Página 1 de 2

Nombre: Matrícula:

Nombre del curso:

Computación I Nombre del profesor:

Isabel Moya Moreno

Módulo: Evidencia 1 Actividad:

Desarrolla el análisis pseudocódigo o diagrama de flujo

Fecha: 22-Marzo-2013

Bibliografía: Deitel, H. y Deitel, P. (2007). Cómo programar en C# (2aed.). México: Pearson Education. ISBN: 10:970-26-1065-7

1. Desarrolla el análisis, pseudocódigo, diagrama de flujo y el programa en C# para resolver el siguiente problema:

En una ferretería venden pinturas, cada galón de pintura cubre 20 metros cuadrados. Y cada litro 5 metros cuadrados. Cuando llega el cliente se le pregunta cuántos metros cuadrados desea pintar. Esta ferretería solo vende galones y litros de pintura completos, un galón tiene un costo de 270 pesos y un litro de 58 pesos.

-Análisis:

Entrada

° Cantidad de m2 a pintar

Salidas

° Cantidad de galones

° Cantidad de litros

° Total a pagar

Proceso

° m2 a pintar/galones o litros

° Galones o litros* pesos

-Pseudocodigo:

Private Sub cmdcalcular_Click()

If txtMetros.Text = "" Then

ms = MsgBox("No se puede realizar el calculo, por favor ingresa la cantidad de metros a pintar", vbCritical, "CALCULO")

Entrada txtMetros.SetFocus

metrosini = txtMetros.Text

galones = 20

litros = 5

res = metrosini / galones

galones = Int(res)

metros = metrosini - (galones * 20)

res = metros / litros

litros = Int(res)

residuo = res - litros

If residuo > 0 Then

litros = litros + 1

End If

txtMetrosIni.Text = metrosini

txtGalones.Text = galones

txtLitros.Text = litros

txtTotal.Text = ((galones * 270) + (litros * 58))

cmdCalcular.Enabled = False

txtMetros.Enabled = False

End If

End Sub

Private Sub cmdNuevoCalculo_Click()

txtMetrosIni.Text = ""

txtGalones.Text = ""

txtLitros.Text = ""

txtTotal.Text = ""

cmdCalcular.Enabled = True

txtMetros.Enabled = True

txtMetros.Text = ""

txtMetros.SetFocus

End Sub

Private Sub cmdSalir_Click()

End

End Sub

...

Descargar como (para miembros actualizados) txt (2 Kb)
Leer 1 página más »
Disponible sólo en Clubensayos.com