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
|
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 | ||||
Cursos para compartir lo que sabes
