Tesis

|[Escribir el título del documento] |
|[Escribir el subtítulo del documento] |
| |
|Materia: Laboratorio de programacion

|Evaluación ||Asistencia 10% |
|Trabajos Lab. 20% Tareas |
|(Firmas) 20% Examen |
|50% |
||
|
|[Seleccionar fecha] |
| |


Poi’





Índice

• Venta y comisión de un vendedor

• Tienda departamental y cliente

• Promedio de un Alumno

•Edad de una Persona

• Salario de un trabajador

• El dueño de una Tienda

• Compra de Dólares

• Estaciones del Año

• Día correspondiente de la Semana

• Salario semanal de un trabajador

• Pago total en una llantera

• Supermercado

• Fabrica de computadoras






































Unvendedor recibe un sueldo base y aparte una comisión extra del 15% sobre sus cuatro ventas del mes cuanto recibirá?

Algoritmo, Diagrama, Formulario, Código.

1. Inicio

2. Leer sb,v1,v2,v3,v4

3. Com=(v1+v2+v3+v4)*.15

4. Salario =sb+com

5. Imprimir salario

6. Fin













Private sub command 1_click ()
Dim sb, v1, v2, v3, v4
V1= Val (Text 1)V2= Val (Text2)
V3= Val (Text3)
V4= Val (Text4)
Com=Val (Text6)
Com=Val (v1+v2+v3+v4)*.15
Text6=format$(com)
Tot=sub+com
Text7 format$(tot)











Una tienda departamental ofrece un 12% de descuento sobre el total de la compra, un cliente desea saber cuánto pagara al final.





1. Inicio
2. Leer Comp
3. Desc = Comp*12
4. Pago=Comp=Desc
5. ImprimirPago
6. Fin











































Se desea obtener el promedio de un alumno para su materia de ingles la cual consta de 3 calificaciones parciales.



1. Inicio

2. Leer cal1,cal2,cal3

3. Pro=(Cal1+cal2+cal3)/3

4. Imprimir pro

5. Fin











Private sub command 1_click()
Dimcal1,cal2,cal3
Cal1=val (Text1)
Cal2=val (Text2)
Cal3=val (Text3)
Pro=(cal1+cal2+cal3)/3
Text=Format$(Pro)












Realizar un algoritmo que calcular la edad de una persona.



1. Inicio

2. Leer AN,AA

3. Edad=(AN - AA)

4. Imprimir edad

5. Fin












Dim AN, AA
AN=Val (Text2)
AA=Val (Text3)
Edad= (AA-AN)Text1=Format$(edad)
End Sub



End
End Sub









Realiza programa que calcule el salario de un trabajador




1. Inicio

2. Leer Pph,Ht

3. Salario=Pph*Ht

4. Imprimir salario

5. Fin











Dim Pph,Ht
Pph=val(Text1)
Ht= Val(Text2)
Salario=(Pph)*Ht
Text3=Format$(salario)
End Sub
















*****El dueño deun tienda compra un articulo y quiere obtener el precio por lo cual lo va a vender, quiere ganar un 30% del artículo, mostrar el precio.****



1. Inicio

2. Leer Pa

3. Precio=Pa*30%

4. Pt=Pa+precio

5. Imprimir

6. Fin












Dim pa,g
Pa=Val (text1)
G=Val (Text2)
Venta= (pa*g)
Text3=Format$(venta)
End sub






End
End Sub
Se...