12.169 cursos gratis
8.789.377 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 15:

 39 ejercicios resueltos (1/4)

1. Programa que permite ingresar e imprimir cierta cantidad de números y luego realizar la búsqueda de cualquiera de los números ingresados. Imprime el número y la posición en donde se encuentra el número buscado.

DIM Numeros(100) AS INTEGER

INPUT "cuantos números va ingresar ", n

DO

INPUT "NÚMERO: ", num

        IF num > 100 AND num < 500 THEN

                i = i + 1

                Numeros(i) = num

        END IF

LOOP WHILE i <= n

'IMPRIMIENDO LOS NÚMEROS

FOR i = 1 TO n

        PRINT Numeros(i)

NEXT

'Busqueda

INPUT "dame un valor a buscar ", busca

FOR i = 1 TO n

        IF busca = Numeros(i) THEN

                PRINT "Posicion ", i, " Número: ", Numeros(i)

                EXIT FOR

        END IF

NEXT

2. Programa que permite ingresar 8 números y realizar la búsqueda del mayor y menor imprimiendo también su posición.

DIM Numeros(1 TO 8) AS INTEGER

FOR i = 1 TO 8

INPUT "NÚMERO : ", num

                Numeros(i) = num

NEXT

'IMPRIMIENDO LOS NÚMEROS

FOR i = 1 TO 8

        PRINT Numeros(i)

NEXT

'Busqueda del mayor

may = 0

men = 10000

FOR i = 1 TO 8

        IF may < Numeros(i) THEN

           may = Numeros(i)

           PosMay = i

        END IF

        IF men > Numeros(i) THEN

           men = Numeros(i)

           PosMen = i

        END IF

NEXT

PRINT "El mayor es: "; may, "Posición ", PosMay

PRINT "El Menor es: "; men, "Posición ", PosMen

3. Programa que soporta ingresar e imprimir cierta cantidad de números mayores de 100 y menores de 500. Permite realizar la búsqueda de un número cualquiera imprimiéndolo junto a su posición.

DIM Numeros(100) AS INTEGER

INPUT "cuantos números va ingresar ", n

DO

INPUT "NÚMERO : ", num

        IF num > 100 AND num < 500 THEN

                i = i + 1

                Numeros(i) = num

        END IF

LOOP WHILE i <= n

'IMPRIMIENDO LOS NÚMEROS

FOR i = 1 TO n

        PRINT Numeros(i)

NEXT

'Busqueda

INPUT "dame un valor a buscar ", busca

FOR i = 1 TO n

        IF busca = Numeros(i) THEN

                PRINT "Posicion ", i, " Número: ", Numeros(i)

                EXIT FOR

        END IF

NEXT

4. Elaborar un algoritmo que permita ingresar 20 números y muestre todos los números ingresados menores e iguales a 25.

DIM Numeros AS STRING

CLS

FOR i = 1 TO 20

INPUT "Número: ", Numero

IF Numero <= 25 THEN

Numeros = Numeros + ", " + STR$(Numero)

END IF

NEXT

PRINT "Números Menores o Iguales que 25: ", Numeros

5. Elaborar un algoritmo, que permita el ingreso de 10 números enteros. El programa debe sumar todos los números que sean múltiplos de 3 e imprimirlo.

CLS

FOR i = 1 TO 10

INPUT "numero: ", Numero

IF Numero MOD 3 = 0 THEN

        Suma = Suma + Numero

END IF

NEXT

PRINT "La suma es: ", Suma

6. Diseñar un algoritmo que me permita calcular los 5 primeros números perfecto (un número es perfecto, cuando la suma de sus divisores, sin incluirlo al número es exactamente el mismo número). El 6 es un número perfecto ya que sus divisores son 1,2 y 3 suman 6. La solución hace que el computador tome un buen tiempo para completar los 5 números.

CLS

Num = 5

C = 0

DO WHILE C < 5

        Num = Num + 1

        Suma = 0

               FOR i = 1 TO INT(Num / 2)

                       IF Num MOD i = 0 THEN

                              Suma = Suma + i

                       END IF

               NEXT

               IF Num = Suma THEN

                       C = C + 1

                       PRINT "El Numero", Num

               END IF

LOOP

 

7. Hacer un programa que calcule el factorial de un número ingresado por el teclado. Pudiendo ser solucionado de varias formas.

 

Primera Forma

CLS

INPUT "Ingrese un numero: ", Num

Factorial = 1

DO

        i = i + 1

        Factorial = Factorial * i

LOOP WHILE i < Num

'PRINT "Factorial= ", Factorial

Segunda Forma

CLS

INPUT "Ingrese un numero: ", Num

Factorial = 1

DO WHILE i < Num

        i = i + 1

        Factorial = Factorial * i

LOOP

PRINT "Factorial= ", Factorial

Tercera Forma

CLS

INPUT "Ingrese un numero: ", Num

Factorial = 1

FOR i = 1 TO Num

               Factorial = Factorial * i

NEXT

PRINT "Factorial= ", Factorial

8. Escribir un algoritmo que determine si un año es bisiesto. Teniendo en cuenta que un año es bisiesto si es múltiplo de 4. Los años múltiplos de 100 no son bisiestos, salvo si ellos son también múltiplos de 400.

CLS

INPUT "ingrese un numero: ", N

IF N MOD 4 <> 0 THEN

        PRINT "El Año", N, "NO es bisiesto"

ELSE

        IF N MOD 4 = 0 AND N MOD 400 <> 0 AND N MOD 100 = 0 THEN

                PRINT "El Año", N, "NO es bisiesto"

        END IF

        IF N MOD 4 = 0 AND N MOD 400 = 0 AND N MOD 100 = 0 THEN

                PRINT "El Año", N, "SI es bisiesto"

        END IF

        IF N MOD 4 = 0 AND N MOD 400 <> 0 AND N MOD 100 <> 0 THEN

                PRINT "El Año"; N, "SI es bisiesto"

        END IF

END IF

9. Hacer un programa que sume los números que son múltiplos de 3, 5 y de 7 entre 100 y 300.

CLS

Num = 100

DO WHILE Num <= 300

Num = Num + 1

        IF Num MOD 3 = 0 OR Num MOD 5 = 0 OR Num MOD 7 = 0 THEN

                Acumulado = Acumulado + Num

        END IF

LOOP

PRINT "Acumulado", Acumulado

10. Escribir la serie de fibonacci de “n”. La serie es: 1, 1, 2, 3, 5, 8, 13, 21, 34… n elementos. Este problema se puede resolver usando procesos recursivos, solución que se encuentra en “Algoritmos y Leguaje C”

CLS

INPUT "Cantidad de Elementos de la Serie Fibonacii: ", CaElementos

Con = 0

nAct = 1

nAnt = 1

DO WHILE (Con < CaElementos)

    PRINT nAnt

    nSig = nAnt + nAct

    nAnt = nAct

    nAct = nSig

    Con = Con + 1

LOOP

Capítulo siguiente - 39 ejercicios resueltos (2/4)
Capítulo anterior - Ejercicios propuestos

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