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
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
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
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
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
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