Numero Central

Este trabajo trata de poner tres numeros y el programa te dice cual es el central

DO

CLG

CLS

INPUT "INTRODUCE NÚMERO->", X

INPUT "INTRODUCE NÚMERO->", P

INPUT "INTRODUCE NÚMERO->", J

IF X>P AND X<J THEN

PRINT "X="+ X

END IF

IF X<P AND X>J THEN

PRINT "X="+ X

END IF

IF X>P AND J<P THEN

PRINT "P=" + P

END IF

IF X<P AND J>P THEN

PRINT "P=" + P

END IF

IF J>P AND J<X THEN

PRINT "J=" +J

END IF

IF J<P AND J>X THEN

PRINT "J=" +J

END IF

Notas

Este trata de meter tus notas y el programa te dice si es INSUFICIENTE, SUFICIENTE, BIEN, NOTABLE O SOBRESALIENTE

CLS

CLG

INPUT "¿CUÁL ES TU NOTA? -> " , X

IF X < 5 THEN

PRINT "INSUFICIENTE"

ELSE

IF X>= 5 AND X<6 THEN

PRINT "SUFICIENTE"

ELSE

IF X>= 6 AND X<7 THEN

PRINT "BIEN"

ELSE

IF X>= 7 AND X<9 THEN

PRINT "NOTABLE"

ELSE

IF X>= 9 AND X<=11 THEN

PRINT "SOBRESALIENTE"

ELSE

PRINT "VALOR INVALUABLE"

END IF

END IF

END IF

END IF

END IF

5 Oportunidades

Este trabajo lo hemos realizado mi compañera Tere y yo y trata de introducir un numero y tan solo tienes 5 oportunidades para acertar

CLS

I=RAND

I=I*100

I=INT(I)

cuentaveces=0

DO

INPUT "INTRODUCE NUMERO ->" , X

IF X=I THEN

PRINT "ENHORABUENA"

ELSE

PRINT "SIGUE PROBANDO"

END IF

cuentaveces=cuentaveces+1

UNTIL X=I OR cuentaveces >=5

Numero Correcto

Este otro trabajo trata de poner un numero entre 50 y 100 para acertar

do

INPUT "Introduce un valor entre 50 y 100->" , x

cls

clg

IF 50 < x and x < 100 THEN

PRINT "Has acertado"

color blue

c = 100

d = 200

a = x + c

b = d

j = x/2 + c

h = d + (-0.8 * x)

color blue

line c, d, a, b

line a, b, j, h

line j, h, c, d

else

print "Valor erroneo"

END IF

WHILE 50 < x and x < 100

Animación

En este trabajo de basic hemos realizado una animación y estos son los pasos que hay que hacer

do

clg

input "Distancia de un paso ->", y

input "Pasos ->" , x

cls

color green

for y = 1 to x

clg

circle 20+y, 200, 20

next y

input "¿Quiere repetir el proceso ( S / N)?", z$

until z$ = "N"

PRINT "Adiós"