PROGRAMA DE ADIVINAR NUMERO CON BASIC-256

x = RAND* 50

x = int (x)

cuenta=0

do

input "Introduzca un numero", y

if x = y then

print "correcto"

end if

if x > y then

print "Introduce un numero más grande"

end if

if x < y then

print "Introduce un numero más pequeño"

end if

cuenta=cuenta+1

until x = y OR cuenta>=5

if cuenta >= 5 then

print "No te quedan intentos"

CALCULO DE NOTAS CON EL PROGRAMA BASIC-256

DO

CLS

INPUT "INTRODUCE NOTA DEL ALUMNO ", X

IF X<=4 THEN

PRINT "INSUFICIENTE"

ELSE

IF X=5 THEN

PRINT "SUFICIENTE"

END IF

IF X=6 THEN

PRINT "BIEN"

END IF

IF X=7 OR X=8 THEN

PRINT "NOTABLE"

END IF

IF X=9 OR X=10 THEN

PRINT "SOBRESALIENTE"

END IF

IF X>10 THEN

PRINT "NOTA ERRÓNEA"

END IF

END IF

INPUT "DESEA INTRODUCIR OTRA NOTA? ", X$

UNTIL X$="NO" OR X$="no"

PRINT "FIN DEL PROGRAMA"

TRIÁNGULO PROGRAMADO CON BASIC-256

DO

CLG

INPUT"INTRODUCE VALOR (50-100)", LADO

X=100

Y=200

A=LADO+X

B=Y

J=X+(LADO/2)

H=Y+(-0.70*LADO)

IF LADO<100 AND LADO>50 THEN

CLS

COLOUR PURPLE

LINE X, Y, LADO+X, Y

LINE A, B, J, H

LINE J, H, X, Y

ELSE

PRINT "ERROR"

END IF

UNTIL LADO<100 AND LADO>50

CIRCULO PROGRAMADO CON BASIC-256

clg
input "introduce numero de pasos de la pelota->", npasos
input "introduce distancia entre los pasos->", ndistancia

do
for i=1 to npasos
     print i
      clg
      colour cyan
      circle 20+(ndistancia*i),20,8
      pause 0.1
next i

input "¿quieres repetir?", X$
until X$="NO" OR X$="no"
print "fin del programa"