Saturday, October 16, 2010

Multiplying Fractions

clg

a=int(rand*5+1)
b=int(rand*5)+a
c=int(rand*5+1)
d=int(rand*5+1)+c
Print a+" X "+c
Print b+"    "+d
for n = 0 to 299 step 299/b
line n,0,n,299
next n
for n = 0 to 500
circle rand*300*(a/b),rand*300,2
next n
for n = 0 to 299 step 299/d
line 0,n,299,n
next n
for n = 0 to 1500
circle rand*300*(a/b),rand*300*(c/d),2
next n

No comments:

Post a Comment