Angle Progam

[Manuel Santos]

rem I do hope this project has continuity. Here is another little program

clg

d = int (rand*361)
r = (d/180)*3.14159

f = int (rand*361)
p = r + (f/180)*3.14159

for s = 1 to 100
plot 100 + (sin (r))*s , 100 - (cos (r))*s
next s

for s = 1 to 100
plot 100 + (sin (p))*s , 100 - (cos (p))*s
next s
for g = int(r*10) to int(p*10)
plot 100 + (sin (g/10))*20 , 100 - (cos (g/10))*20
next g

Input "Guess the angle", a$
if abs(int(a$)-f)<10 then print "Well done the angle is "
if abs(int(a$)-f)>9 then print "No the angle is "
print f
end

[Manuel Santos]

clg

for x = -5 to 5
circle int(30*x)+150, 150,2
next x

for y = -5 to 5
circle 150,int(30*y)+ 150,2
next y
rem Linear equation program

for y = -5 to 5
for x = -5 to 5
circle int(30*x)+150, int(30*y)+ 150,1
next x
next y

a=int(rand*5)-2
b=int(rand*3)+1
c=int(rand*5)-2
for x = -150 to 150
y = (a/b)*x+c*30
plot int(x) +150, 150 - int(y)
next x
input "What's the linear equation?Press enter to get answer",s$
print "y = ";
print a;
print"/";
print b;
print"x +";
print c