EJERCICIOS DE CLASE

Aquí le adjuntamos los ejercicios de programación en BASIC 256

EJERCICIO 1: en este ejercicio vamos a preguntar por un valor entre 50 y 100, después si el valor introducido no cumple con la condición mostraremos un mensaje de valor erróneo, si el valor es correcto, pintaremos un cuadrado de color verde.

do

input " Introduce un valor entre 50 y 100 ", x

clg

cls

if 50 < x and x < 100 then

print "Has acertado"

colour blue
rect 200, 00, 60, 70

else

print "Has fallado "

colour red

rect 200, 100, 60, 70

end if

until 50 < x and x < 100

EJERCICIO 2: hacemos una animación de una pelota moviéndose de un punto a otro, la animación se realizará en función de un número de pasos y una distancia entre paso y paso, y preguntar al usuario si desea repetir la animación de nuevo.

CLG

CLS

DO

INPUT "INTRODUCE DISTANCIA DE CADA PASO ", Y

CLS

INPUT "INTRODUCE DISTANCIA A RECORRER ", X

FOR I = 1 TO X

CLG

COLOR BLUE

CIRCLE (Y*I),200,25

PAUSE (0.1)

NEXT I

INPUT "¿QUIERE REPETIR EL PROCESO? ", Z$

UNTIL (Z$="SI")

CLS

CLG


Esperemos que le sirva de información y que le haya gustado.

¿CÓMO AVERIGUAR UN NÚMERO EN BASIC 256?

¿Qué es basic?- Es un lenguaje de programación que se puede utilizar para escribir sus propios programas de ordenador.

Un programa informático es un conjunto de instrucciones que indica a un ordenador qué hacer. El ordenador lee las instrucciones de una en una, y hace exactamente lo que dicen.

Aquí le dejamos un ejemplo de como averiguar un número en el programa BASIC 256:

CLG

CLS
print "averiguar número"

input "dificultad facil 1, dificultad normal 2, dificultad dificil 3", nivel

if nivel = 1 then

tope =8

Maximointentos =3

end if

if nivel = 2 then

tope = 10

Maximointentos = 3

end if

if nivel = 3 then

tope = 12

Maximointentos = 4

END IF
x = int(rand* tope)

INTENTOS = 0

do

INTENTOS =INTENTOS +1

Input " Introduce un número" , y

if x = y then

PRINT " Has acertado"

color green

circle 150,100,40

end

else

if x > y then

PRINT " has fallado, es menor"

color red

circle 150,100,40

else

print " has fallado, es mayor"

color red

circle 150,100,40

end if

end if

UNTIL INTENTOS = Maximointentos

PRINT "fallaste , era " + x

end

Esperemos que sirva de información sobre este programa y que haya podido hacer bien el juego.