School themes from USSR and EurAsia

Code: (Select All)

Randomize Timer ' damesh.bas Danilin from Russia

Screen 12 ' 1! 2 3? 4 5! 6 7? 8 9!

n=8: u=256: Dim x(n,9),y(n,9)



For i=1 To n

    x(i,1)=Int(Rnd*u+3): y(i,1)=Int(Rnd*u+3)

    x(i,9)=Int(Rnd*u+3): y(i,9)=Int(Rnd*u+3)

Next



Data -5,1,9,-3,1,5,-2,1,3,-4,3,5,-7,5,9,-6,5,7,-8,7,9



For g=1 To 9 - 2: Read d,a,v

    For i=1 To n: x(i,-d)=(x(i,a) +x(i,v))/2: y(i,-d)=(y(i,a) +y(i,v))/2: Next

Next



For g=1 To 10: For k=1 To 9: _Delay .1: Cls

    For i=1 To n: For j=1 To n: Circle (x(i,k),y(i,k)),2: Next: Next



        For i=1 To n - 1: For j=i To n

            Line (x(i,k),y(i,k))-(x(j,k),y(j,k)),i

           'Line (x(i,k),y(i,k))-(x(i+1,k),y(i+1,k)),i

    Next: Next: Next



    For k=8 To 2 Step -1: _Delay .1: Cls



For p=1 To 9

    For i=1 To n: For j=1 To n: Circle (x(i,p),y(i,p)),2,i: Next: Next

Next

    For i=1 To n - 1: For j=i To n

       Line (x(i,k),y(i,k))-(x(j,k),y(j,k)),i

      'Line (x(i,k),y(i,k))-(x(i+1,k),y(i+1,k)),i

    Next: Next: Next

Next

Code: (Select All)

Screen 12: Randomize Timer 'diagram.bas  Russian Circle Diagram

N = 12: s = 0: Dim d(N+5),r(N+1+5):

For i = 1 To N: d(i) = Int(Rnd * 90+9): s = s+d(i): Print d(i): Next: Print "SUM= "; s

For i = 2 To N: r(i) = r(i-1)+d(i) * 2 * 3.1416 / s: Next: r(N+1) = r(1)

 

For i = 2 To N+1: For j = 1 To 100: Circle (150,100),j,i,r(i-1),r(i)

    Circle (149,99),j,i,r(i-1),r(i): Circle (151,99),j,i,r(i-1),r(i)

_Delay .002: Next: Next

 

For j = 1 To 100: For i = 2 To N+1: Circle (350,100),j,i,r(i-1),r(i)

    Circle (349,100),j,i,r(i-1),r(i): Circle (351,99),j,i,r(i-1),r(i)

Next: _Delay .01: Next



_Delay 1: Cls 'Screen 12: Randomize Timer diagout.bas  Russian Circle Diagram

N = 16: s = 0 ': Dim d(N),r(N+1):

For i = 1 To N: d(i) = Int(Rnd * 90+9): s = s+d(i): Print d(i): Next: Print "SUM= "; s

For i = 2 To N: r(i) = r(i-1)+d(i) * 2 * 3.1416 / s: Next: r(N+1) = r(1)



For i = 2 To N+1 Step 2: For j = 1 To 100: Circle (150,100),j,i,r(i-1),r(i)

    Circle (149,99),j,i,r(i-1),r(i): Circle (151,99),j,i,r(i-1),r(i)

_Delay .002: Next: Next



For i = 3 To N+1 Step 2: For j = 100 To 1 Step -1: Circle (150,100),j,i,r(i-1),r(i)

    Circle (149,99),j,i,r(i-1),r(i): Circle (151,99),j,i,r(i-1),r(i)

_Delay .002: Next: Next



For j = 1 To 100: For i = 2 To N+1

    If (i Mod 2) = 0 Then Circle (350,100),j,i,r(i-1),r(i): Circle (349,99),j,i,r(i-1),r(i): Circle (351,99),j,i,r(i-1),r(i)

        If (i Mod 2) = 1 Then Circle (350,100),100-j,i,r(i-1),r(i): Circle (349,99),100-j,i,r(i-1),r(i): Circle (351,99),100-j,i,r(i-1),r(i)

Next: _Delay .01: Next: End

Code: (Select All)

' 2+2=5 ??? -3-3=-5 ??? 1 april 2020 



Screen 12

a = 2.4: b = 2.4: c = a + b ' da 2++2=5.bas

Print CInt(a); "+"; CInt(b); "="; CInt(c)



d = 2.4: a = 2.4: v = d + a ' da 2+2=5

Print _Round(d); "+"; _Round(a); "="; _Round(v)



d = -2.4: a = -2.4: v = d + a ' da -3-3=-5

Print Int(d); Int(a); "= "; Int(v)



End



' 2 + 2 = 5

' 2 + 2 = 5

'-3 -3 = -5