13. BASIC-256, Triángulo de lados mayor que 50 y menor que 100

CLG

CLS

DO

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

IF (LADO >50) AND (LADO < 100) THEN

               

                X=100

                Y= 200

                A= X + LADO

                B= Y

                E= X + LADO/2

                F= Y + (-0.8*LADO)

                LINE X, Y, A, B

                LINE A, B, E, F

                LINE E, F, X, Y

                ELSE

IF LADO >50 AND LADO < 100 THEN

PRINT "VALORES ERRÓNEOS"

               

UNTIL (LADO >50) AND (LADO <100)

END IF