COMANDOS BASIC 256
MICKEY MOUSE
print "Hello world"
clg
color black
circle 150,150,70
color black
circle 78,78,40
color black
circle 222,78,40
color white
rect 125,150,50,50
LOGO KILL'EM ALL
rect 27,72,10,160
CÁLCULOS
print 3+4
print "Hola, " +nombre3$
LOGO KILL'EM ALL
print "Hello world!"
color black
rect 0,0,graphwidth,graphheight
color red
font "Tahoma",30,120
text 25,30,"METALLICA"
color red
font "Tahoma",15,100
text 80,230,"KILL 'EM ALL"
color red
rect 27,72,10,160
CÁLCULOS
clg
cls
print 6*5
print 3+4
print sqr (25)
print sqrt (15)
cls
nombre1$= "Carmen"
nombre2$= "María"
print nombre1$+" es hermana de "+nombre2$
cls
numero1=5
numero2=6
print "El producto de "+numero1+" por "+numero2+" es igual a: "+numero1*numero2
cls
print "El producto de "+numero1+" por "+numero2+" es igual a: ";
print numero1+numero2
cls
input "¿Cómo te llamas?" , nombre3$
print "Hola, " +nombre3$
CÁLCULOS 2
print "Datos"
Input "Lado mayor del rectángulo = ", l1
Input "Lado menor del rectángulo = ", l2
perimetro=2*l1+2*l2
print "Perímetro del rectángulo = "+perimetro
area=l1*l2
print"Área del rectángulo = "+area
clg
color green,yellow
penwidth 5
Ejercicios 1 y 2 corregidos
1º
cls
Print "Para calcular el área de un círculo de radio N escribiríamos el siguiente programa :"
Input "Radio = ",N
area= pi*N*N
print "El área del círculo es "+area
2º
cls
E=rand
N=E*100
print "El perímetro elegído aleatóriamente es "+N
print"La raíz cuadrada de "+N+" es "+SQR (N)
END
Cara
Ejemplo:
cls
clg
color blue
line 150,150,200,200
line 200,200,200,200
line 100,200,150,150
color blue
poly {100,100,200,100,150,50,100,
olor clear
ect 100,250,100,50
color blue
arc 100,250,100,50,0,2*pi
END
CARA:
clsclg
color black
line 85,150,215,150
color black
rect 132,150,35,40
color white
rect 133,151,33,38
color black
line 80,130,85,150
line 80,170,85,150
line 220,130,215,150
line 220,170,215,150
line 150,150,150,182
circle 110,90,5
circle 185,110,5
arc 95,72,55,75,0,2*pi
arc 150,72,55,75,0,2*pi
arc 70,45,160,200,0,2*pi
Ecuación de segundo grado
cls
Print "Ecuación de 2º grado "
Print " ax²+bx+c=0"
Input "Introduce el valor de a = ", a
Input" Introduce el valor de c = ", c
d = b^2-4*a*c
if d>=0 then
gosub solution
else
gosub sinsolution
endif
solution:
x1=(-b+SQR(d))/(2*a)
x2=(-b-SQR(d))/(2*a)
print "x1 = "+x1
print "x2 = "+x2
end
sinsolution:
CLS
Print " la ecuación no tiene solución"
END
Ejercicio nº 5 :
cls
Print "Sistema de Ecuaciones Lineales"
Print "a*x+by =c"
Print "d*x+ey =f"
Input "Introduce el valor de a = ", a
Input "Introduce el valor de b = ", b
Input "Introduce el valor de c = ", c
Input "Introduce el valor de d = ", d
Input "Introduce el valor de e = ", e
Input "Introduce el valor de f = ", f
gosub solucion
else
gosub sinsolucion
End if
solucion:
x=(b*f-e*c)/(a*e-d*b)
y=a*f-d*c/d*b-a*e
Print "x = "+x
Print "y = "+y
End
sinsolucion:
Cls
Print "La ecuación no tiene solución"
# c2_talkingface.kbs
# dibuje el fondo de cara con ojos
color black
rect 0,0,300,300
color white
circle 100,75,40
circle 200,75,40
color black
circle 80,60,15
circle 210,100,10
# borre la vieja boca
color black
rect 0,150,300,150
# dibuje la nueva boca
color white
rect 125,175,50,50
# diga la palabra
say "Amado"
color black
rect 0,150,300,150
color white
rect 100,200,100,50
say "otro"
color black
rect 0,150,300,150
color white
rect 125,175,50,100
say "uno"
color black
rect 0,150,300,150
color white
rect 125,200,50,50
say "con"
color black
rect 0,150,300,150
color white
rect 125,175,50,100
say "uno"
# dibuje toda la cara nueva con una sonrisa.
color black
rect 0,0,300,300
color white
circle 150,210,100
circle 150,240,100
color black
circle 150,230,100
color white
circle 100,75,40
circle 200,75,40
color black
circle 80,60,15
circle 210,100,10
color red
circle 150,190,25
rect 126,182,49,60
color black
rect 125,240,100,40
say "AAAAAAAAHHHHHH"
vaya
ResponderEliminar