Melanievp

Nombre:
Vinces Pacheco Melanie Gissell
Licenciado:
Ing. Stalin Rodríguez
Materia:
Desarrollo de funciones en el sistema informático
(DFSI)
Tema:
Programas en Software libre „Gambas‟
Paralelo:
3RO
“B” Sistemas
Año Lectivo:
2014-2015

EJECICIOS EN GAMBAS
1. Mostrar nombre de la institución...............................................................................2
2. Programa que calcula el promedio de tres notas......................................................2
3. Primer programa de cadena de texto .........................................................................2
4. Programa que calcula el iva de un producto por consola se debe mostrar el iva...3
5. Programa que calcule el área de un triangulo teniendo como datos de entrada la
base y la altura.............................................................................................................3
6. Exportaciones en el ecuador exporta café, cacao y maíz en quintales se desea
calcular el total de portaciones y el porcntaje de cada uno. Productos exportrados
con los siguientes datos: maíz 300, café 400, cacao 800........................................... 4
7. Programa que permita recibir como dato de entrada una distancia medida en
metros y convertirla a kilometros.............................................................................. 4
8. Programa para resolvamos la siguiente ecuación y = x3
– x2
+ 2 - 3.......................... 4
9. Operaciones básicas de matemáticas.........................................................................5
10. La suma de dos valores ...............................................................................................5
11. Programa que permite leer la cantidad y el precio de un producto el mismo que
tiene un descuento de 5% mostrar por pantalla el precio total ................................5
12. Programa que calcula el salario de un trabajador que gana 5 dolares por hora y
trabaja 8 horas diarias................................................................................................ 6
13. En un aula de clase hay 42 alumnos que esta dividido en 30 mujeres y 12 varones
calcular el porcentaje ................................................................................................. 6
14. Programa que permite ingresar el valor de un producto, y el número de unidades
del mismo, mostrar por pantalla el total de imortaciones, y tsmbien que muestre
la comisión del 15% en consola.................................................................................. 6
15. Aplicar un select case para determinar el descuento que se otorga en la próxima
compra a un cliente avitual dicho cliente cuenta con tarjeta d crédito d la tienda
RETAIL y el descuento esta relacionado al monto desu factorización del mas de
enero se considera con cuatro niveles de factorización ............................................7
16. Promediar Notas De Un X Estudiante....................................................................... 8
17. Definir Cuál Valor Es Mayor...................................................................................... 9
18. Forma De Pago:1.2,O 3. ............................................................................................. 10
19. Definir El Valor De Un Numero: Positivo, Negativo, Neutro................................... 11
20. Realiza Un Programa Utilizando La Sentencia For Para Mostrar 10 Veces La
Palabra “Amistad”....................................................................................................... 11
21. Realizar Una Aplicación Que Muestre Los Multiplos De 3 Hasta El 99. ................. 11
22. Calculadora Basica: ................................................................................................... 12
23. Aplicación Para La Edad: ...........................................................................................13
24. Par O Impar:.............................................................................................................. 14

1. Mostrar nombre de la institución
Public sub main ( )
Dim Institucion as string
Dim Pais as string
Dim Provincia as string
Dim Canton as string
Institucion = “ UNIDAD EDUCATIVA HUGO CRUZ ANDRADE ”
Pais = “ECUADOR”
Provincia = “MANABI”
Canton = “EL CARMEN”
Print Institucion
Print Canton & “ - ” & Provincia & “-” & Pais
End
2. Programa que calcula el promedio de tres notas
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 primer nota”
Input N1
Print “ingrese la segunda nota”
Input N2
Print “ingrese la tercera nota”
Input N3
S = N1 + N2+ N3
P = S / 3
Print “ la suma es : ”, S
Print “el promedio es : ”, P
End
3. Primer programa de cadena de texto
Public sub main ( )
Dim Nombre as string
Dim Apellidos as string
Nombre = “ Manuel ”
Apellidos = “Alvares Gomez”
Print Apellidos & “ , ” & Nombre
End

4. Programa que calcula el iva de un producto por consola se
debe mostrar el iva
Public sub main ( )
Dim Valor as single
Dim Producto as string
Dim Total as single
Print “ ingrese el producto ”
Input Prodructo
Print “ingrese el valor ”
Input Valor
Total = (Valor * 12 ) / 100
Print “el nombre del producto es : ” & Producto
Print “el valor del iva es: ” & Total
End
5. Programa que calcule el área de un triangulo teniendo como
datos de entrada la base y la altura
Public sub main ( )
Dim Base as single
Dim Altura as single
Dim Area as single
Print “ ingrese el altura del triangulo que desea calcular el area ”
Input Altura
Print “ingrese la base del triangulo que desea calcular la el area ”
Input Base
Area = (Altura * Base ) / 2
Total = (Valor * 12 ) / 100
Print “el área de triangulo es : ” & Area
End

6. Exportaciones en el ecuador exporta café, cacao y maíz en
quintales se desea calcular el total de portaciones y el
porcentaje de cada uno. Productos exportados con los
siguientes datos: maíz 300, café 400, cacao 800
7. Programa que permita recibir como dato de entrada una
distancia medida en metros y convertirla a kilómetros
Public sub main ( )
Dim Metro as single
Dim Kilometro as single
Print “ ingrese la medida en metros para convertirla a kilometros ”
Input Metro
Kilometro = Metro / 1000
Print “la medida en km es : ” Kilometro
End
8. Programa para resolvamos la siguiente ecuación y = x3
– x2
+ 2
- 3
Public sub main ( )
Dim x as byte
Dim y as single
Print “ resolvamos la siguiente ecuación y = x3
– x2
+2 - 3”
Print “se le da el valor a x”
Input x
y = x ^ 3 – x ^ 2 +2 – 3
Print “el resultsdo de la ecuación es : ” & y
End
Public sub main ( )
Dim Cacao as integer
Dim Cafe as integer
Dim Maiz as integer
Dim P1 as single
Dim P2 as single
Dim Suma as integer
Café = 400
Cacao = 800
Maíz = 300
Suma = Café + Cacao + Maíz
P1 = (Café / Suma ) * 100
P2 = (Cacao / Suma ) * 100
P3 = (Maíz / Suma ) * 100
Print “el total de exportaciones es : ” & Suma
Print “el procentaje del cafe es : ” & P1 & “ % ”
Print “el procentaje del Cacao es : ” & P2 & “ % ”
Print “el procentaje del Maíz es : ” & P3 & “ % ”
End

9. Opresiones básicas de matemáticas
Public sub main ( )
Dim B as byte
Dim C as byte
B = 20
C = 65
Print B +C
Print B – C
Print B / C
Print B * C
End
10. La suma de dos valores
Public sub main ( )
Dim A as byte
Dim B as byte
Dim S as byte
A = 20
B = 65
S = A +B
Print “la suma es : ” & S
End
11. Programa que permite leer la cantidad y el precio de un
producto el mismo que tiene un descuento de 5% mostrar por
pantalla el precio total
Public sub main ( )
Dim Cantidad as single
Dim Precio as single
Dim Sud as single
Dim Des as single
Dim Prt as single
Dim Producto as string
Print “bienvenido 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
Sud = Cantidad * Precio
Des = Sud * 0.05
Prt = Prt – Des
Print “el precio total de producto será ”
Print Prt
End

12. Programa que calcula el salario de un trabajador que gana 5
dolares por hora y trabaja 8 horas diarias
Public sub main ( )
Dim Salario as single
Dim Horas as single
Dim Total as single
Salario = 5
Horas = 8
Total = Salario * Horas * Horas
Print “el salario semanal del empleado es”
Print Total
End
13. En un aula de clase hay 42 alumnos que esta dividido en
30 mujeres y 12 varones calcular el porcentaje
Public sub main ( )
Dim Mujeres as integer
Dim Varones as integer
Dim Suma as integer
Dim P1 as integer
Dim P2 as integer
Mujeres = 30
Varones = 12
Suma = Mujeres + Varones
P1 = Mujeres / Suma * 100
P2 = Varones / Suma * 100
Print “el porcentaje de mujeres y varones es”
Print “mujeres :” & P1& “%”
Print “Varones:” & P2 & “%”
End
14. Programa que permite ingresar el valor de un producto, y el
número de unidades del mismo, mostrar por pantalla el total
de imortaciones, y tsmbien que muestre la comisión del 15% en
consola
Public sub main ( )
Dim N_producto as string
Dim V_producto as single
Dim Unidades as integer
Dim Importacion as single
Dim Comision as single
Dim V_total as single
Print “ingrese el nombre de su producto”
Input N_producto
Print “ingrese el valor por producto”
Input V_producto
Print “ingrese la unidades de su producto”
Input Unidades
Importacion = Unidades * V_producto
Print “el total de la importaciones”
Print “la comisión del 15%”
Print Comision
V_total = Comision + Importacion

Print “el total por el producto la venta es :”Print N_producto &
V_total
End
15. Aplicar un select case para determinar el descuento que se
otorga en la próxima compra a un cliente avitual dicho
cliente cuenta con tarjeta d crédito d la tienda RETAIL y el
descuento esta relacionado al monto desu factorización del
mas de enero se considera con cuatro niveles de factorización
Monto
facturado
ENERO
DESCUENTO
DE LA
PROXIMA
COMPRA
>450
300y<=450
>150y<=300
<150
40%
30%
20%
10%
Public sub main ( )
Dim des as integer
Dim fac as integer
...
Select case des
Case 0 to 150
Fac = 10
Case 151 to 300
Fac = 20
Case 301 to 450
Fac = 30
Case > 450
Fac = 40
Case else
Print “para la proxima compra tendra un descuento del: ”
Print fac & ”%”
End select

16. Promediar Notas De Un X Estudiante.
Promedio
9 - 10  DAR
7 - 8.99  AAR
4.01 - 6.99  PARA
4 < = NAAR
Public Sub Main ( )
Dim A As Single
Print “Ingrese Un Valor ”
Input A
...
Select Case
Case A > = 9 Do A < = 10
Print “Dar ”
Else
Case A > = 7 Do A < = 8.99
Print “Aar ”
Else
Case A < = 6.99
Print “Paar ”
Else
Case A < = 4
Print “Naar ”
End Select
End

17. Definir Cuál Valor Es Mayor.
A B C
Public Sub Main ( )
Dim A As Integer
Dim B As Integer
Dim C As Integer
Input A
Print “Ingrese Otro Valor ”
Input B
Print “Ingrese Un Ultimo Valor ”
Input C
...
If A > B And A > C
Print “Mayor Es A ”
If B > C And B > A
Print “Mayor Es B ”
Else
Print “Mayor Es C ”
End if

18. Forma De Pago:1.2,O 3.
 Si Es 1 El Descuento Será 10% Del Valor.
 Si Es 2 Será 15%.
 Si Es 3 No Habrá Descuento.
Public Sub Main ( )
Dim A As Single
Dim Fp As Integer
Dim Des1 As Single
Input A
Print “Ingrese Una Forma De Pago ”
Input Fp
...
If Fp = 1 Then
Des1 = (A * 10 )/100
Print “El Descuento Sera De : ” Des1
Else
If Fp = 2 Then
Des1 = (A * 15 )/100
Print “El Descuento Sera De : ” Des1
Else
Print “No Habra Descuento ”
End if

19. Definir El Valor De Un Numero: Positivo, Negativo, Neutro
Public Sub Main ( )
Dim A As Single
Input A
...
If A > 0
Print “Positivo ”
Else
If A < 0
Print “Negativo ”
Else
If A = 0
Print “Neutro ”
End if
20. Realiza Un Programa Utilizando La Sentencia For Para
Mostrar 10 Veces La Palabra “Amistad”.
Public Sub Main ( )
Dim A As Integer
For A = 1 To 10
Lisbox.Add(A)
Next
21. Realizar Una Aplicación Que Muestre Los Multiplos De 3
Hasta El 99.
Public Sub Main ( )
Dim B As Integer
For B = 3 To 99 Step 3
Lisbox.Add(B)
Next

22. Calculadora Basica:
La Codificacion Utilizada Seria:
Public Sub _New()
End
Public Sub Form_Open()
End
Public Sub Dial1_Change()
End
Public Sub Radiobutton1_Click()
End
Public Sub Listbox1_Click()
End
Public Sub Label2_Mousedown()
End
End
Public Sub Textbox1_Keypress()
End
Public Sub Button3_Click()
End
End
Public Sub Btnsuma_Click()
Txtresul.Text = Txtprival.Text
+ Txtsegval.Text
End
End
Public Sub Btnlimpiar_Click()
Txtprival.Txt = “”
Txtsegval.Txt = “”
Txtresul.Txt = “”
End
Public Sub Btnsalir_Click()
Me.Close
End
Public Sub Btnresta_Click()
- Txtsegval.Text
End
Public Sub Btnmulti_Click()
* Txtsegval.Text
End
Public Sub Btndiv_Click()
/ Txtsegval.Text
End
Public Sub Txtsegval_Keypress()
End

23. Aplicación Para La Edad:
Para Realizar Esta Aplicacion Utilizamos De La Caja De Herramientas:
 Label
 Textbox
 Botton

Public Sub _New()
End
Public Sub Form_Open()
End
End
End
Public Sub Btnejecutar_Click()
Dim Edad As Integer
Edad = Txtedad.Text
If Edad < 2 And Edad > 0 Then
Txtresul.Text = “Bebe..”
Else
If Edad < 12 Then
Txtresul.Text = “Niño..”
Else
If Edad < 18 Then
Txtresul.Text = “Adolecente..”
Else
Txtresul.Text = “Adulto..”
Endif
Endif
Endif
End
Public Sub Btnlimpiar_Click()
Txtnombre.Text = “”
Txtedad.Text = “”
Txtresul.Text = “”
End
Public Sub Btnsalir_Click()
Me.Close
End
24. Par O Impar:

Public sub _new()
End
Public sub form_open()
End
Public sub button3_click()
End
Public sub btnlimp_click()
Txtnumero.text = “”
End
Public sub btnsalir_click()
Me.close
End
Public sub btnejecut_click()
Dim numero as integer
Dim a as integer
Numero = txtnumero.text
A = numero mod 2
If a <= 0
Message(“par”)
Else
Message( “impar”)
Endif
End

Melanievp

Más contenido relacionado

La actualidad más candente (20)

Destacado (20)

Similar a Melanievp (20)

Último (20)

Melanievp