PROGRAMACION EN GAMBAS

PROGRAMACION EN GAMBAS
NOMBRE:
JONATHAN JOSE BRAVO GARCIA.
MATERIA:
DESARROLLLO DE FUNCIONES DE SISTEMAS
INFORMMATICOS.
ING.
STALIN RODRIGUEZ.
TEMA:
PROGRAMACION EN GAMBAS.
CURSO:
TERCERO DE BACHILLERATO GENERAL UNIFICADO.
PARALELO:
“A”.
ESPECIALIDAD:
SISTEMAS.
AÑO LECTIVO
2014-2015

EJERCICIOS HECHO EN GAMBAS
EJERCICIOS EN CONOLA...............................................................................5
1)QUE MUESTRE EN CONSOLA UNIDAD EDUCATIVA HUGO CRUZ ANDRADE EL
CARMEN- MANABI- ECUADOR........................................................................................6
2)INGRESAR 3 NOTAS SACAR LA SUMA Y CALCULAR LA SUMA DEL PROMEDIO 6
3)CREAR UN PROGRAMA QUE PERMITA LEER LA CANTIDAD Y EL PRECIO DE UN
PRODUCTO, EL MISMO QUE TIENE UN DESCUENTO DEL 5% MOSTRAR POR
PANTALLA EL PRECIO TOTAL. .......................................................................................7
4)REALIZAR UN PROGRAMA QUE PERMITA REALIZAR LA SUMA DE DOS
VALORES ...........................................................................................................................8
5)EJERCICIO PARA MOSTRAR LA MULTIPLICACION, LA DIVISIÓN, LA SUMA Y
RESTA DE DOS NÚMEROS. ............................................................................................8
6)REALIZAR UN PROGRAMA QUE INGRESE TODAS LAS OPERACIONES
MATEMÁTICAS..................................................................................................................9
7) .EXPORTACIÓN: EL ECUADOR EXPORTA CAFÉ, CACAO Y MAÍZ EN QUINTALES
SE DESEA CALCULAR EL TOTAL DE EXPORTACIONES Y EL PORCENTAJE DE
CADA PRODUCTO EXPORTANDO, CON LOS SIGUIENTES DATOS MAÍZ 300, CAFÉ
400, CACAO 800. ...............................................................................................................9
8)REALIZAR UN PROGRAMA QUE CALCULE EL IVA DE UN PRODUCTO POR
PANTALLA SE DEBE MOSTRAR EL IVA. ......................................................................10
9)REALICE UN PROGRAMA QUE CALCULE EL ÁREA DE UN TRIÁNGULO
TENIENDO COMO DATOS DE ENTRADA LA BASE Y LA ALTURA. ...........................11
10). REALICE UN PROGRAMA QUE PERMITA RECIBIR COMO DATO DE ENTRADA
UNA DISTANCIA MEDIDA EN METROS Y LA CONVIERTA A KILÓMETROS. ...........11
11). RESOLVER LA SIGUIENTE ECUACIÓN Y=X3
-X2
+2-3...........................................12
12). CREAR UN PROGRAMA QUE CALCULAR EL SALARIO SEMANAL DE UN
EMPLEADO AL QUE SE LE PAGA $5 POR HORA Y TRABAJA 8 HORAS DIARIAS DE
LUNES A VIERNES..........................................................................................................12
13). EN UN SALÓN DE CLASE EXISTEN 42 ALUMNOS LA CUAL QUE ESTÁN
DIVIDIDOS EN 30 MUJERES Y 12 VARONES, SE NECESITAN SABER CUÁL ES EL
MAYOR PORCENTAJE DE AMBOS...............................................................................13
15). CREAR UN PROGRAMA QUE PERMITA LEER LA CANTIDAD Y EL PRECIO DE
UN PRODUCTO , EL MISMO QUE TIENE UN DESCUENTO DEL 5% MOSTRAR POR
PANTALLA EL PRECIO TOTAL. .....................................................................................14
16). APLICAR UN SELECT CASE PARA DETERMINAR EL DESCUENTO QUE SE
OTORGA EN LAS PRÓXIMAS COMPRAS A UN CLIENTE HABITUAL. DICHO

CLIENTE CUENTA CON TARJETA DE CRÉDITO DE LA TIENDA RETAIR Y EL
DESCUENTO ESTÁ RELACIONADO AL MONTO DE SU FACTURACIÓN DEL MES
DE ENERO: ......................................................................................................................15
17) INGRESE 3 VALORES E INDIQUE CUAL ES EL MAYOR…………..16
18) INGRESE TRES VALORES Y MUESTRE SI ES POSITIVE, NEGATIVE O
NEUTRO...........................................................................................................................17
19) FORMA DE PAGO: FP 1,2,03: ...........................................................................18
20) SELECT CASE...........................................................................................................18
21) REALIZA UN PROGRAMA UTILIZANDO LA SETENCIA FOR PARA MOSTRAR 10
VECES LA PALABRA AMISTAD. ....................................................................................19
22) REALIZAR UNA APLICACIÓN QUE IMPRIMA LOS MULTIPLOS DE 3 HASTA 99.
...........................................................................................................................................19
EJERCICIOS DE LA IDE DE GAMBAS ......................................................... 21
23. CALCULADORA ESTANDAR....................................................................................22
24.CALCULAR EDAD.......................................................................................................23
25. PAR O INPAR.............................................................................................................24

EJERCICIOS EN CONOLA

1) REALIZAR UN PROGRAMA QUE MUESTRE EN CONSOLA
UNIDAD EDUCATIVA HUGO CRUZ ANDRADE EL CARMEN-
MANABI- ECUADOR
Public Sub Main ()
Dim Institución as String
Dim Cantón as String
Dim Província as String
Dim País as String
Institución=”UNIDAD EDUCATIVA HUGO CRUZ ANDRADE”
Cantón=”EL Carmen”
Provincia=”Manabí”
País=”Ecuador”
Print Institución
Print cantón &”_” Provincia & “_” & País
End
UNIDAD EDUCATIVA HUGO CRUZ ANDRADE
El Carmen – Manabí – Ecuador
2) INGRESAR 3 NOTAS SACAR LA SUMA Y CALCULAR LA SUMA
DEL PROMEDIO
Public Sub Main ()
Dim n1 as Single
Dim n2 as Single
Dim n3 as Single
Dim s as Single
DIm p as Single
Print “Ingrese la Primera Nota”
Input n1

Print “Ingrese la Segunda Nota”
Input n2
Print “Ingrese la Tercer Nota”
Input n3
S= n1+n2+n3
P= s/3
Print “la suma es:”
Print s
Print ”el promedio es:” & p
End
3) CREAR UN PROGRAMA QUE PERMITA LEER LA CANTIDAD Y EL
PRECIO DE UN PRODUCTO, EL MISMO QUE TIENE UN
DESCUENTO DEL 5% MOSTRAR POR PANTALLA EL PRECIO
TOTAL.
Public Sub Main ()
Dim cantidad as Single
Dim precio as Single
Dim subt as Single
Dim des as Single
Dim prt as Single
Dim producto as String
Print “Bienvenidos a mi programa”
Print “ingrese el nombre del producto”
Input producto
Print “ingrese la cantidad del producto”
Input cantidad
Print “ingrese el precio del producto”
Input cantidad
Subt= cantidad*precio

Des=subt*0,05%
Prt=subt-des
Print “el precio total del producto será;”
Print prt
End
4) REALIZAR UN PROGRAMA QUE PERMITA REALIZAR LA SUMA
DE DOS VALORES
Public Sub Main ()
Dim A as Byte
Dim B as Byte
Dim S as Byte
A= “10”
B= “5”
S= A+B
Print “La suma es:”, 5
End
5) EJERCICIO PARA MOSTRAR LA MULTIPLICACION, LA DIVISIÓN,
LA SUMA Y RESTA DE DOS NÚMEROS.
Public Sub Main ()
Dim S as Integer
Dim P as Integer
Dim O as Integer
Dim A as Integer
S= 10
P=15

O=40
Print S+P
Print O-O
Print S*O
Print P/O
End
6) REALIZAR UN PROGRAMA QUE INGRESE TODAS LAS
OPERACIONES MATEMÁTICAS.
Public Sub Main ()
Dim A as Byte
Dim B as Byte
A=”20”
B=”65”
Print A+B
Print A-B
Print A/B
Print A*B
End
7) EXPORTACIÓN: EL ECUADOR EXPORTA CAFÉ, CACAO Y MAÍZ
EN QUINTALES SE DESEA CALCULAR EL TOTAL DE
EXPORTACIONES Y EL PORCENTAJE DE CADA PRODUCTO
EXPORTANDO, CON LOS SIGUIENTES DATOS MAÍZ 300, CAFÉ
400, CACAO 800.
Public Sub Main ()
Dim A as Integer
Dim B as Integer

Dim C as Integer
Dim P1 as Single
Dim P2 as Single
Dim P3 as Single
Dim T as Integer
C= 800
CA= 400
M= 300
T= A+CA+M
P1= (B/T)*100
P1= (C/T)*100
P1= (M/T)*100
Print “el total de las exportaciones es:”&T
Print “el porcentaje del cacao es:”&P1&”%”
Print “el porcentaje del café es:”&P2&”%”
Print “el porcentaje del maíz es:”&P3&”%”
End
8) REALIZAR UN PROGRAMA QUE CALCULE EL IVA DE UN
PRODUCTO POR PANTALLA SE DEBE MOSTRAR EL IVA.
Public Sub Main ()
Dim Iva as Single
Dim S as Single
Print “ingrese el valor”
Input Iva
S=Iva*12/100
Print “el Iva es:”S
End

9) REALICE UN PROGRAMA QUE CALCULE EL ÁREA DE UN
TRIÁNGULO TENIENDO COMO DATOS DE ENTRADA LA BASE Y
LA ALTURA.
Public Sub Main ()
Dim b as Single
Dim a as Single
Dim Área as Single
Print “Este programa es para calcular el área,de un triangulo”;
Print “Ingrese la base del triángulo”;
Input b
“Print “Ingrese la altura del triángulo que desea calcular su área”;
Input a
Área= (b*a)/2
Print “El área del triángulo es lo siguente”;
Print Área
End
10). REALICE UN PROGRAMA QUE PERMITA RECIBIR COMO
DATO DE ENTRADA UNA DISTANCIA MEDIDA EN METROS Y LA
CONVIERTA A KILÓMETROS.
Public Sub Main ()
Dim m as Single
Dim k as Single
Print “Ingrese la medida en metro”;
Input metro
K=metro/100
Print “La medida ingresada en metros convertida en kilómetros es “;

Print “El valor en metros convertida en km es:”&km
End
11). RESOLVER LA SIGUIENTE ECUACIÓN Y=X3-X2+2-3
Public Sub Main ()
Dim x as Integer
Dim e as Integer
X=3
y=x^3
-x^2
+2-3
Print “El Resultado de la ecuación es”;
Print y
3^3-3^2+2-3
End
12). CREAR UN PROGRAMA QUE CALCULAR EL SALARIO
SEMANAL DE UN EMPLEADO AL QUE SE LE PAGA $5 POR HORA
Y TRABAJA 8 HORAS DIARIAS DE LUNES A VIERNES.
Public Sub Main ()
Dim Salario as Single
Dim Horas as Single
Dim Total as Single
Salario=5
Horas=8
Total=Salario*Hora*5
Print”El salario semanal del empleado es:”
Print total
End

13). EN UN SALÓN DE CLASE EXISTEN 42 ALUMNOS LA CUAL
QUE ESTÁN DIVIDIDOS EN 30 MUJERES Y 12 VARONES, SE
NECESITAN SABER CUÁL ES EL MAYOR PORCENTAJE DE
AMBOS.
Public Sub Main ()
Dim M as Integer
Dim V as Integer
DIm S as Integer
Dim por1 as Integer
Dim por2 as Integer
M=30
V=12
Suma=M+V
Por1=M/S*100
Por2=V /Suma*100
Print”El porcentaje de Mujeres y Varones en el salón:”
Print ”Mujeres:”&por1&”%”
Print”Hombres:”&por2&”%”
End
14). REALIZAR UN PROGRAMA QUE ME PERMITA SUMAR VARIOS VALORES.
Public Sub Main ()
Dim s as Interger
Dim p as Interger
Dim o as Interger
S=”2”
P=”20”
O=”600”
P=”400”
Print s+p
Print s+o
Print p+a

End
15). CREAR UN PROGRAMA QUE PERMITA LEER LA CANTIDAD
Y EL PRECIO DE UN PRODUCTO , EL MISMO QUE TIENE UN
DESCUENTO DEL 5% MOSTRAR POR PANTALLA EL PRECIO
TOTAL.
Public Sub Main ()
Dim c as Single
Dim p as Single
Dim Subt as Single
Dim Desc as Single
Dim Prt as Single
Dim producto as Single
Print “Bienvenidos a mi programa”
Print “Ingrese el nombre del producto”;
Input producto
Print “Ingrese la cantidad del producto”;
Input cantidad
Print “Ingrese el precio del producto”;
Input precio
Subt=c*p
Desc=Subt*0,05%
Prt=Subt-Desc
Print “El precio total del producto será”;
Print Prt
End

16). APLICAR UN SELECT CASE PARA DETERMINAR EL
DESCUENTO QUE SE OTORGA EN LAS PRÓXIMAS
COMPRAS A UN CLIENTE HABITUAL. DICHO CLIENTE
CUENTA CON TARJETA DE CRÉDITO DE LA TIENDA RETAIR
Y EL DESCUENTO ESTÁ RELACIONADO AL MONTO DE SU
FACTURACIÓN DEL MES DE ENERO:
SE CONSIDERA CUATRO NIVELES DE FACTURACIÓN
Monto Facturado:Enero Descuento:Próxima Compra
>450 40%
>300 y <=450 30%
>150 y <=300 20%
<150 10%
Public Sub Main ()
Dim M as Integer
Dim D as Integer
…
Select Case Monto
Case 0+0 to 150
D=10
Case 151 to 300
Descuento=20
Case 301 to 450
D=30
Case >450
D=40
Case Else

Print “Error”
End Select
Print “El descuento otorgado es &descuento&”%”
End
17) INGRESE 3 VALORES E INDIQUE CUAL ES EL MAYOR.
A B C
15 5 10
Public Sub Main ()
Dim A as Integer
Dim B as Integer
Dim C as Integer
…
Print “Ingrese el valor de A”;
Input 15
Print “Ingrese el valor de B”;
Input 5
Print “Ingrese el valor de C”;
Input 10
If A>B AND A>C
Print “Mayor es A”
Else
If B>A AND B>C
Print “Mayor es B”
Else
If C>A AND C>B

Print “Mayor es C”
Else
Print “Error”
End IF
End
18) INGRESE TRES VALORES Y MUESTRE SI ES POSITIVE, NEGATIVE
O NEUTRO.
Public Sub Main ()
Dim V as Integer
Print “Ingresa el primer valor”;
Input V
If Valor >0 Then
Print “El valor es positivo”
Else
If Valor <0 Then
Print “El valor es negativo”
Else
If Valor ==0 Then
Print “El valor es neutro”
Else
Print “Error”
End IF
End

19) FORMA DE PAGO: FP 1,2,03:
*Si es 1 el descuento será 10% del valor.
*Si es 2 será 15%.
*Si es 3 no habrá descuento.
Public Sub Main ()
Dim v as Single
Dim Fp as Integer
Dim D as Single
Print “Ingrese el valor de producto”;
Input v
Print “Ingrese la forma de pago”;
Input Fp
If Fp==1 then
D=(valor*10)/100
Prinf “El descuento es”&D”%”
Else
Print “No hay descuento”
End IF
End
20) SELECT CASE
9 – 10 DAR
7 – 8,99 AAR
4,01 – 6,99 PAAR
< = 4 NAAR

Public Sub Main ()
Dim N as Single
Print “Ingrese las notas”
Input N
Select Case Notas
Case < =4
Print “NAAR”
CASE 4,01 to 6,99
Print “PAAR”
Case 7 to 8,99
Print “AAR”
Case 9 to 10
Print “Error”
End Select
21) REALIZA UN PROGRAMA UTILIZANDO LA SETENCIA FOR PARA
MOSTRAR 10 VECES LA PALABRA AMISTAD.
Public Sub Button1_ Click ()
Dim x as Integer
X=1
For x=1 to 10
Listbox 1.add (“Amistad”)
Next
End
22) REALIZAR UNA APLICACIÓN QUE IMPRIMA LOS MULTIPLOS DE 3
HASTA 99.
Public Sub Button_ Click ()
Dim N as Integer
N=0

For N=0 to 99 step3
Listbox1.add (N)
Next
End

EJERCICIOS DE LA
IDE DE GAMBAS

23. CALCULADORA ESTANDAR
CODIFICACION DE LA CALCULADORA
Public Sub btnsalir_click ()
Me.close
Public Sub btnlimpiar_click ()
Txtprival.Text=””
Txtsegval.Text=””
Txtresul.Text=””
End
Public Sub btnsuma_click ()
Txtresul.text=txtprival.Text+Txtsegval.text
End
Public Sub btnresta_click ()
Txtresul.text=txtprival.Text-Txtsegval.text
Public Sub btnmultiplicacion_click ()

Txtresul.text=txtprival.Text*Txtsegval.text
Public Sub btndivision_click ()
Txtresul.text=txtprival.Text/Txtsegval.text
24.CALCULAR EDAD
CODIFICACION DE LOS RESULTADOS DE LAS EDADES
Public Sub btnlimpiar_click ()
txtnombre.Text=””
txtedad.Text=””
txtresul.Text=””
End
Public Sub btnlsalir_click ()
ME.close
Public Sub btnejecutar_click ()
Dim EDAD as INTERGER
EDAD=txtedad.Text

If EDAD<2 AND EDAD>0 THEN
Txtresul=”Bebe”
ELSE
IF EDAD<12 THEN
Txtresul.Text=”Niño”
Else
IF EDAD < 18 THEN
txtresul.Text=”joven”
Else
txtresul.Text=”Adulto”
Endif
Endif
Endif
25. PAR O INPAR

Ilustración 1:CUANDO EL NUMERO ES PAR
Ilustración 2:CUANDO EL NUMERO ES IMPAR

CODIFICACION
Public Sub Main()
Dim N as Interger
Dim A as Interger
Print “ingrese el numero”
Input N
N=A MOD 2
If N=0 Then
Print “es par”
Else
Print “es impar”
Endif

PROGRAMACION EN GAMBAS

Más contenido relacionado

Similar a PROGRAMACION EN GAMBAS (20)

Último (20)

PROGRAMACION EN GAMBAS