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