Ejercicios en qbasic

República Bolivariana de Venezuela
INCES – Región Anzoátegui
Programación II – Guía de Ejercicios Prof. Pedro Boada

Programación Estructurada: Qbasic

Estructuras Condicionales
CONDICIONAL IF
1) Diseñe un programa en Qbasic que calcule el monto a pagar por un cliente en su factura de agua dado el número de litros consumidos y siguiendo la siguiente estructura de cobros:
* La cuota fijaes de Bs 6
* Hasta 50 litros es gratis
* Más de 50 y menos de 200, Bs 1,50 por litro adicional
* Más de 200 litros, Bs. 1 por litro adicional

Respuesta:
COLOR 14, 2CLSLOCATE 1, 15PRINT "-----------------------------------------------"LOCATE 2, 15PRINT " SISTEMA CONTROL DE PAGOS HIDROLOGICOS "LOCATE 3, 15PRINT "-----------------------------------------------"COLOR 15LOCATE 5,5INPUT "Indique el N§ de litros Consumidos:", lts | fija = 6IF lts <= 50 THEN tarifa = fija ELSE IF lts > 50 OR lts < 200 THEN tarifa = (lts * 1.5) + fija ELSE tarifa = (lts * 1) + fija END IFEND IFCOLOR 11LOCATE 8, 5PRINT "El Monto a pagar es: Bs "; tarifa' Programa realizado por Pedro Boada |

Salida por pantalla:2) Realice un programa en QBasic que dado tres números distintos indique cual es el mayor.
' Realizando PresentaciónCOLOR 15, 4CLSLOCATE 2, 35PRINT " Números "LOCATE 3, 35PRINT "========="COLOR 12, 0LOCATE 6, 2PRINT SPC(30);LOCATE 7, 2PRINT SPC(30);LOCATE 8, 2PRINT SPC(30);LOCATE 7, 2INPUT " Indique 1er Número: ", pnCOLOR 11, 9LOCATE 9, 2PRINT SPC(30);LOCATE10, 2PRINT SPC(30);LOCATE 11, 2PRINT SPC(30);LOCATE 10, 2INPUT " Indique 2do Número:", snCOLOR 0, 10LOCATE 12, 2PRINT SPC(30);LOCATE 13, 2 | PRINT SPC(30);LOCATE 14, 2PRINT SPC(30);LOCATE 13, 2INPUT " Indique 3er Número:", tn' Calculando el mayorIF pn > sn AND pn > tn THEN mayor = pn ELSE IF sn > tn AND sn > pn THENmayor = sn ELSE mayor = tn END IFEND IFCOLOR 14, 13LOCATE 12, 45PRINT SPC(30);LOCATE 13, 45PRINT SPC(30);LOCATE 14, 45PRINT SPC(30);LOCATE 13, 45PRINT " El Nº mayor es:"; mayor' Realizado por Pedro Boada |

Salida por pantalla:

3) La Aerolínea Oriental de Aviación posee un vuelo desde Caracas hacia Porlamar haciendo escala en Barcelona. Los pasajerospueden escoger entre las rutas Caracas-Barcelona, Caracas – Porlamar y Barcelona –Porlamar. Es política de la Aerolínea hacer descuentos a los niños (15%) y a las personas de la 3ra edad (10%). El valor del pasaje según su ruta es:
Caracas-Barcelona Bs. 379 en Primera Clase y Bs 237 en Clase Turista; Caracas-Porlamar Bs. 475 en Primera Clase y Bs. 296 en Clase Turista;Barcelona-Porlamar Bs.186 en Primera Clase y Bs. 113 en Clase Turista. Diseñe un programa en Qbasic que dados la ruta y cantidad de pasajes comprados por un cliente determine el precio final a pagar.

COLOR 14, 2CLSLOCATE 1, 25PRINT "------------------------------"LOCATE 2, 25PRINT " ORIENTAL DE AVIACION "LOCATE 3, 25PRINT "------------------------------"COLOR 15LOCATE 6, 3PRINT"---------------------------"; SPC(20); "---------------------------"LOCATE 7, 3PRINT "| RUTAS |"; SPC(20); "| CLASES |"LOCATE 8, 3PRINT "| 1) Caracas - Porlamar |"; SPC(20); "| 1) PRIMERA CLASE |"LOCATE 9, 3PRINT "| 2) Caracas - Barcelona |"; SPC(20); "| 2) TURISTA |"LOCATE 10, 3PRINT "| 3) Barcelona - Porlamar |"; SPC(20); "---------------------------"LOCATE 11,3PRINT "---------------------------"LOCATE 12, 3INPUT "Indique la Ruta:", rutaLOCATE 12, 50INPUT "Indique Clase:", claseLOCATE 14, 22INPUT "N§ de Pasajeros Ni¤os:", infLOCATE 15, 22INPUT "N§ de Pasajeros Adultos:", aduLOCATE 16, 22INPUT "Nº de Pasajeros 3ra Edad:", mayIF ruta = 1 THEN IF clase = 1 THEN precioa = adu * 475 desc1 = 475 - (475 * 15 / 100)...