Programación General > Visual Basic 6.0 e inferiores
duda con Qbasic
josemartinez1:
bueno viste como resorvi ese codigo?
bueno eso mismo tengo que hacer pero que realise todo esto cheka
calcular un peso a dolar y un dolar a euro
nomina de pago y incluir datos de empleado
nomina de pago
inventario de un producto
calcular el primer semestre de un niño en primaria
entiendes?
m0skit0:
Claro que entiendo. Pero aquí nadie te lo va a hacer si no empiezas tú un poco. Ese es otro ejercicio, ¿cierto? Pues ya puedes empezar a hacer algo en cada uno para que te echemos una mano.
Nebire:
--- Cita de: "josemartinez1" ---10 INPUT "Introduce un número ", x
20 r = x MOD 2
30 IF r = 0 THEN
40 PRINT "El numero introducido es par, porque al dividirlo entre 2, nos da de resto 0"
50 ELSE
60 PRINT "El numero introducido es impar, porque al dividirlo entre 2, nos da de resto 1"
70 END IF
mira esto ejecutalo en Qbasic es una de las clases que eh echo pero como te digo aun me faltan estas
calcular un peso a dolar y un dolar a euro
salu2
--- Fin de la cita ---
Veamos, si preguntas por unos problemas a qué viene ese código..?
Los números de línea no son necesarios, por favor elimínalos. Los números de línea son etiquetas tal como las que uso de modo alfanumérico en el ejemplo que te adjunto, cuando son alfanuméricas deben llevar 2 puntos tras la etiqueta.
Te resuelvo el problema del cambio de moneda, el resto es bastante más trabajoso y además es un problema que te han planteado de modo que tendrás que pensar en ello...
Seguro que conoces el lenguaje ????
El ejemplo incluye 4 opciones para el menú aparte de la opción de salir.
--- Código: Text --- DIM cambio AS SINGLEDIM pesos AS SINGLEDIM dolares AS SINGLE cambio = 1.33 ' valor inicial para probar.... Principal: ' bucle principal DO GOSUB Menu INPUT opcion SELECT CASE opcion CASE 1 GOSUB DolarPeso CASE 2 GOSUB PesoDolar CASE 3 GOSUB EstablecerCambio CASE 4 GOSUB MostrarCambio CASE 5 END CASE ELSE PRINT "La opci¢n: "; opcion; " no est contemplada en el men£... pulse un n£mero del 1 al 5." END SELECT LOCATE 15, 10: INPUT "...pulse una tecla para continuar...", espera 'espera que se pulse una tecla permitiendo mientras ver el resultado LOOP WHILE opcion <> 5 END Menu: 'Men£ principal CLS LOCATE 2, 10: PRINT "Elija una de las opciones siguientes (1-5):" LOCATE 4, 15: PRINT "1 - Cambiar de D¢lar a Pesos" LOCATE 5, 15: PRINT "2 - Cambiar de Pesos a D¢lar" LOCATE 6, 15: PRINT "3 - Establecer un nuevo tipo de cambio." LOCATE 7, 15: PRINT "4 - Mostrar el cambio actual." LOCATE 9, 15: PRINT "5 - Salir del programa."RETURN PesoDolar: INPUT "Cuantos pesos desea cambiar a d¢lares: ", pesos PRINT "El cambio de "; pesos; " pesos a d¢lares es: "; (pesos * (1 / cambio))RETURN DolarPeso: INPUT "Cuantos d¢lares desea cambiar a pesos: ", dolares PRINT "el cambio de "; dolares; " d¢lares a pesos es: "; (dolares * cambio)RETURN EstablecerCambio:cambiar: CLS : LOCATE 5, 10: PRINT "El cambio de 1 dolar equivale actualmente a "; cambio; " pesos" LOCATE 6, 10: INPUT "Establezca el valor del nuevo cambio: ", nuevocambio IF nuevocambio < 1 THEN DO LOCATE 10, 2: INPUT "Est seguro que 1 d¢lar vale menos que 1 peso (s/n).", resp$ LOOP WHILE resp$ <> "s" AND resp$ <> "n" IF resp$ = "n" THEN GOTO cambiar END IF cambio = nuevocambioRETURN MostrarCambio: CLS LOCATE 4, 10 PRINT "El cambio actual es 1 d¢lar = "; cambio; " pesos."RETURN
Si no eres capaz de entender el código (que es bastante simple), dudo que seas capaz de resolver el resto de problemas que son más complejos....
Tampoco entiendo que clase de profesor te enseña este basic arcaico, el saber no ocupa lugar pero puestos a aprender sería más útil algo más actualizado, creo yo....
p.d.: los símbolos raritos que aparecen son tildes que traídos del entorno no traduce correctamente, como están en las cadenas de texto y no en las palabras clave, no importa...
m0skit0:
"Est seguro que 1 d¢lar vale menos que 1 peso (s/n)." :D :lol:
Nebire:
Je,je,je... :D
... era una excusa para ilustrarle un ejemplo de como controlar condiciones en medio del meollo....
Tú crees que veremos algunas líneas de 'su código' ...? B)
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa