School themes from USSR and EurAsia

[mnrvovrfc]

Code is horrible to read. Then other people complain QB64 IDE doesn't format it well. At least stop using loop statements between colons. I refuse to copy this program to see what it does.

[DANILIN]

Today is Cosmonautics Day since 1961

It's time to watch USSR cartoon
with American voices & subtitles

Mystery of Third Planet (1981)



It is not clear: if owner of Barnes site is on forum

[DANILIN]

Day of Earth 22\4 ?

VyZoV



Day of Earth 4/22 ?

[DANILIN]

Russian school algorithm: array and dots and animated mesh

We see that motion vector is divided into halves 5=(1+9)/2
3=(1+5)/2: 2=(1+3)/2: 4=(3+5)/2: 7=(5+9)/2: 6=(5+7)/2: 8=(7+9)/2

Main target: translation into other languages especially JavaScript

damesh online qbjs.org

animation 150 KB

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

Obvious development: cycles without circles and cycles with circles

Now array is 2-dimensional: point number and number on vector
A 3-dimensional array is possible: vectors several in a row
It is possible to rotate shape and scale by scaling algorithm

Mathematical basis: my universal table of connection of 2 points








  damesh.bas (Size: 993 bytes / Downloads: 151)

[DANILIN]

Circle Diagram    https://qb64forum.alephc.xyz/index.php?topic=4367
November 06, 2021, 12:12:44 pm

Visualization pie chart 4 algorithms simultaneously

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

Each animation is less than 100 KB







  diagram.bas (Size: 1.53 KB / Downloads: 294)

https://qbjs.org/?code=U2NyZWVuIDEyOiBSY...cDsjogRW5k

[DANILIN]

2+2=5 ???

   

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

Code: (Select All)

[qbjs]https://qbjs.org/?mode=auto&src=https://qb64phoenix.com/forum/attachment.php?aid=ABCD[/qbjs]

Python https://ideone.com/ZPBNeL

c++ https://ideone.com/6B31KM

c# https://ideone.com/3F2GeM

Other Program Languages online

Nobel Prize will not receive itself
Nobelevskaya premiya sama sebya ne poluchit
Нобелевская премия сама себя не получит
Le prix Nobel ne se recevra pas
Nobelpreis wird sich nicht erhalten
Il Premio Nobel non ricevera se stesso

Russian Civilization as YouTube: RUtube https://rutube.ru/

       
       

[bplus]

perfect for today!

9 downloads of that!

April fooled bots!