12.169 cursos gratis
8.789.353 alumnos
Facebook Twitter YouTube
Busca cursos gratis:

Algoritmos en QBASIC. Manual

Autor: Abraham Sopla Maslucán
Curso:
8/10 (3 opiniones) |12730 alumnos|Fecha publicación: 26/10/2009
Envía un mensaje al autor

Capítulo 16:

 39 ejercicios resueltos (2/4)

11. Programa que suma los n primeros números naturales.

CLS

INPUT "Cantidad: ", N

FOR i = 0 TO N

        suma = suma + i

NEXT

PRINT suma

12. Dada la duración (en minutos) en una llamada telefónica. Calcular su costo de la siguiente manera:

Hasta 3 minutos el costo es de 0.50

Por encima de 3 minutos al costo hay que sumar 0.10 por cada minuto adicional a los 3 primeros.

CLS

INPUT "Minutos: ", NM

IF NM <= 3 THEN

        Costo = NM * .5

ELSE

        Costo = 3 * .5 + (NM - 3) * (.6)

END IF

PRINT “Costo Total por la LLamada”, Costo

13. Hacer un programa para convertir un número natural en romano. Solución adquirida de la página de Microsoft, soporta la conversión hasta el año 3999.

DIM I AS INTEGER, Digit AS INTEGER, Temp AS STRING

CONST Digits = "IVXLCDM"

INPUT "Numero Narutal: ", N

        I = 1

        Temp = ""

        DO WHILE N > 0

          Digit = N MOD 10

          N = N \ 10

          SELECT CASE Digit

            CASE 1

              Temp = MID$(Digits, I, 1) + Temp

            CASE 2

              Temp = MID$(Digits, I, 1) + MID$(Digits, I, 1) + Temp

            CASE 3

              Temp = MID$(Digits, I, 1) + MID$(Digits, I, 1) +           MID$(Digits, I, 1) + Temp

            CASE 4

              Temp = MID$(Digits, I, 2) + Temp

            CASE 5

              Temp = MID$(Digits, I + 1, 1) + Temp

            CASE 6

              Temp = MID$(Digits, I + 1, 1) + MID$(Digits, I, 1) +                   Temp

            CASE 7

              Temp = MID$(Digits, I + 1, 1) + MID$(Digits, I, 1) +    MID$(Digits, I, 1) + Temp

            CASE 8

              Temp = MID$(Digits, I + 1, 1) + MID$(Digits, I, 1) +                   MID$(Digits, I, 1) + MID$(Digits, I, 1) + Temp

            CASE 9

              Temp = MID$(Digits, I, 1) + MID$(Digits, I + 2, 1) +    Temp

          END SELECT

          I = I + 2

        LOOP

 PRINT "Número en Romano", Temp

14. Dada una hora, por ejemplo en horas, minutos, y hacer un programa para calcular la hora en el siguiente segundo.

CLS

INPUT "Hora: ", Hora

INPUT "Minuto: ", Minuto

INPUT "Segundo: ", Segundo

IF Segundo = 59 THEN

        Segundo = 0

        Minuto = Minuto + 1

        IF Minuto = 60 THEN

                Minuto = 0

                Hora = Hora + 1

        END IF

END IF

PRINT Hora, ":", Minuto, ":", Segundo

15. Hacer un programa para calcular el pago por un boleto de viaje con la condición de que: si el recorrido supera los 800 kilómetros o a su vez el número de días de estadía es mayor a 7 el descuento es del 3%, si el pago por km recorrido es de 12.5 soles.

CLS

INPUT "Ingrese el Kilometraje: ", Kil

INPUT "Ingrese el Numero de Dias: ", NDE

IF Kil > 800 AND NDE > 7 THEN

        Boleto= Kil * 12.5 - Kil * 12.5 * .03

ELSE

        Boleto = Kil * 12.5

END IF

PRINT Boleto

16. Programa de la tabla de multiplicar descendente.

Primera Forma

CLS

FOR i = 12 TO 0 STEP -1

               PRINT "2x", i, "="; 2 * i

NEXT

Segunda Forma

CLS

DO

        PRINT "2x", i, "="; 2 * i

        i = i + 1

LOOP WHILE i <= 12

Tercera Forma

CLS

DO WHILE i <= 12

        PRINT "2x", i, "="; 2 * i

        i = i + 1

LOOP

Cuarta Forma

CLS

DO UNTIL i >= 13

        PRINT "2x", i, "="; 2 * i

        i = i + 1

LOOP

17. Calcular el total de las ventas de cinco clientes en un restaurante. Ante cualquier consumo que supere los 70 soles se hará un descuento del 5%. Imprima el monto total consumido.

CLS

FOR i = 1 TO 5

        INPUT "Pague: ", Consumo

        PRINT "Pago por el Menú: ", Consumo

        Total = Total + Consumo

        IF Total > 70 THEN

                Total = Total - Total * .05

        END IF

NEXT

PRINT "Total a Pagar: ", Total

18. Hacer un programa que permita calcular el mínimo común múltiplo de 3 números.

DIM a, b, c, d, acum AS LONG

INPUT "Primer Número: ", a

INPUT "Segundo Número: ", b

INPUT "Tercer Número: ", c

d = 2

acum = 1

WHILE ((a <> 1) OR (b <> 1) OR (c <> 1))

    WHILE ((a MOD d = 0) OR (b MOD d = 0) OR (c MOD d = 0))

       IF (a MOD d = 0) THEN

               a = a / d

       ELSE

               a = a

       END IF

               IF (b MOD d = 0) THEN

               b = b / d

       ELSE

               b = b

       END IF

       IF (c MOD d = 0) THEN

                c = c / d

        ELSE

               c = c

        END IF

        acum = acum * d

        WEND

    d = d + 1

WEND

PRINT "Mínimo Común Múltiplo: ", acum

19. Hacer un programa que calcule el máximo común divisor de 3 números ingresados por el teclado.

DIM a, b, c, d, mcd AS LONG

INPUT "Primer N£mero: ", a

INPUT "Segundo N£mero: ", b

INPUT "Tercer N£mero: ", c

d = 2

mcd = 1

r = 0

IF ((a <> 1) AND (b <> 1) AND (c <> 1)) THEN

        WHILE ((a MOD d = 0) AND (b MOD d = 0) AND (c MOD d = 0))

        r = r + 1

        a = a / d

        b = b / d

        c = c / d

        WEND

        mcd = 2 ^ r

END IF

PRINT "Máximo Común Divisor: ", mcd

Capítulo siguiente - 39 ejercicios resueltos (3/4)

Nuestras novedades en tu e-mail

Escribe tu e-mail:



MailxMail tratará tus datos para realizar acciones promocionales (vía email y/o teléfono).
En la política de privacidad conocerás tu derechos y gestionarás la baja.

Cursos similares a Algoritmos en QBASIC. Manual



  • Vídeo
  • Alumnos
  • Valoración
  • Cursos
1. Algoritmos y lenguaje C
Este curso pretende dar a conocer las explicaciones más simples del trabajo de los... [13/01/06]
36.357  
2. Manual de programación
El objetivo de este curso consiste en ofrecer conocimientos básicos de... [31/01/08]
4.300  
3. Manual HTML
HTML es un lenguaje muy sencillo que permite describir hipertexto, es decir, texto... [25/11/04]
74.947  

¿Qué es mailxmail.com?|ISSN: 1699-4914|Ayuda
Publicidad|Condiciones legales de mailxmail