Qbasic

- PROGRAMA QUE CALCULA LA NOMINA DE PAGO: CODIGO, EMPLEADO, DEPTO., PUESTO, SALARIO BRUTO.

SI SUELDO > 6000: ARS=0.02, AFP=0.03, COOP=0.01; SI SUELDO >= 6001 AND SUELDO 8501: ARS=0.05,AFP=0.06, COOP=0.04. CALCULAR EL TOTAL DE DESCUENTO Y EL SUELDO NETO. HAY DESCUENTO QUE SE LLAMA “OTRS” EL CUAL VARIA.

2- PROGRAMA QUE SIMULA UN CAJERO AUTOMATICO

3- PROGRAMA QUE GENERALOS NUMEROS PRIMOS
CLS
PRINT “EL SIGUIENTE PROGRAMA INDICA SI UN NUMERO ES PRIMO.”
num=1
INPUT “INGRESE UN NUMERO (0 A 100):”; num
WHILE num 0
Flag =0
FOR count = 2 to COUNT (SQR (num)) +1
IFnum/count= INT(num/count) AND num 2 AND num 1 THEN
Flag =1
EXIT FOR
END IF
NEXT COUNT
IF flag =1 THEN PRINT “EL NUMERO NO ES PRIMO.” ELSE PRINT “EL NUMERO ES PRIMO.”
INPUT “INGRESE NUMERO (0 A100):”; num
WEND

4- PROGRAMA QUE EXTRAE LA RAIZ CUADRADA DE LOS NO. DEL 1 AL 100.
CLS
INPUT "Escribe un número: ", num
raiz = SQR(num)
PRINT "La raíz cuadrada es ";raiz

5- PROGRAMAQUE EXTRAE LA POTENCIA DE 2 DE LOS NO. DEL 1 AL 100.

6- PROGRAMA QUE CAPTURA UN PRODUCTO CON CODIGO, DESCRIPCION, TIPO DE PRODUCTO, CANTIDAD, PRECIO Y EL VALOR_TOTAL

7- PROGRAMA QUE CALCULAEL ÍNDICE DE MASA CORPORAL
CLS
PRINT
mensaje$ = "Programa de cálculo del IMC."
PRINT SPACE$((80 - LEN(mensaje$)) / 2); mensaje$

DO
LOCATE 6, 5
PRINT SPACE$(40)
LOCATE 6, 5INPUT "Peso (kg) .... :"; peso
LOOP WHILE peso < 40 OR peso > 120

DO
LOCATE 8, 5
PRINT SPACE$(40)
LOCATE 8, 5
INPUT "Talla (m) .... :"; talla
LOOP WHILE talla < 1.4 OR talla > 2.1imc = peso / talla ^ 2

LOCATE 10, 5
PRINT "El Indice de Masa Corporal es : "; USING "##.#"; imc
IF imc < 18 THEN diag$ = "Delgadez muy preocupante: riesgo de anorexia, bulimia, ..."
IF imc >=18 AND imc < 20 THEN diag$ = "Delgadez preocupante. Evite perder mas peso."
IF imc >= 20 AND imc < 25 THEN diag$ = "Indice correcto."
IF imc >= 25 AND imc < 30 THEN diag$ = "Tendencia al sobrepeso....