Hdfdfdfg

Instituto Tecnológico de Tijuana
Subdirección Académica
Departamento de Sistemas y Computación
Semestre Agosto-Diciembre 2011

Carrera: Ingeniería Química

Materia: Programación Serie: 5IQ1AAlgoritmo que aumente el 8% al suelo si los empleados ganan menos de $500. Los datos son: Código, Nombre, Sueldo, Departamento. Imprimir los datos con el nuevo sueldo o en su caso con el sueldonormal indicando que no hubo aumento

Unidad 3 Estructuras de Control

Alumna: Gloria Stefanny Stabinsky Velázquez No. Control: 11211436

Profesora: Li I. Talia Tellez

11 de octubre de 2011Inicio
Inicio
Algoritmo que aumente el 8% al suelo si los empleados ganan menos de $500. Los datos son: Código, Nombre, Sueldo, Departamento. Imprimir los datos con el nuevo sueldo o en su casocon el sueldo normal indicando que no hubo aumento.
aum=sueldo*porcentaje
sueldoaum=sueldo+aum
aum=sueldo*porcentaje
sueldoaum=sueldo+aum
Cod0
Nom” “
Sueldo0
Depto” “
Porcentaje.08Sueldoaum0
Aum0

Cod0
Nom” “
Sueldo0
Depto” “
Porcentaje.08
Sueldoaum0
Aum0

No
No
Si
Si
Sueldo<500
Sueldo<500
“capturar código”,Cod
“capturar nombre”,Nom
“capturar sueldo”,Sueldo“Capturar departamento”,Depto

“capturar código”,Cod
“capturar nombre”,Nom
“capturar sueldo”,Sueldo
“Capturar departamento”,Depto



,nom
,cod
,depto.
,Sueldo
,nom
,cod
,depto.
,Sueldo,nom
,cod
,Depto
,Sueldoaum
,
,
,nom
,cod
,Depto
,Sueldoaum
,
,



fin
fin

Programa

Codigo
Private Sub cmddesplegar_Click()
Dim codigo As Integer
Dim nombre As StringDim departamento As String
Dim sueldo As Long
Dim sueldonuevo As Long
codigo = Val(txtcodigo.Text)
nombre = txtnombre.Text
departamento = txtdepartamento.Text
sueldo = Val(txtsueldo.Text)
Ifsueldo < 500 Then
sueldonuevo = (sueldo * 0.08) + sueldo
txtdesplegar.Text = (Str(codigo)) & nombre & departamento & sueldonuevo
Else
txtdesplegar.Text = (Str(codigo)) &...