kohtunikud Rasked ajad ei toonud ka masinademodele piisavalt koostööpartnereid ja kliente Mis saab künnivõistlustest? Et künnivõistlused kestma jääks, peab kündjate arv suurenema. Seni on püütud künnivõistluste kõrvale uusi meelelahutusi tuua, nüüd on aeg kündmine ise vaatemänguliseks muuta. Järgmistel võistlustel vaja suunata tähelepanu rohkem meisterkündjatele. 1. Esmalt alustavad meisterkündjad ning VIPid jälgivad nende esimeste vagude ajamist. 2. Nagu seni on kommentaator VIPide kündi valgustanud, võiks ülejäänud päeval ametis olla asjatundja, kes tutvustaks võistlejaid, selgitaks künnireegleid jm. 3. Esimese võistluspäeva hommikul küntaks üks näidis-võistlustükk, mille hindamine on kohtunikele õppuseks. Selles osalevad ka kõik võistlejad. Siis on teada mida hinnatakse ning kohtunike tegevus hindamisel muutuks ühtlasemaks.
If dx = 0 Then If dy < 0 Then P_Nrk = 270 Else P_Nrk = 90 Else nurk = Atn(dy / dx)* (45* Atn(1)) If dx > 0 Then If dy > 0 Then P_Nrk = nurk Else P_Nrk = 360 + nurk Else P_Nrk = 180 + nurk End If End If End Function Liikumiste demod Hüppa Hüppa korduvalt Jookse Jookse korduvalt Kõik jooksevad Korduvalt Korraga alla Valitud seltskond Katkesta Const maxX = 600, maxY = 400 Sub Vipid() ' Moodustatakse kogum teatud kujunditest Dim KM As ShapeRange, kuju As Shape, x, y Set KM = Shapes.Range(Array("kirp", "kast", _"Oval 3", _ "Oval 30", "Oval 7", "Oval 29")) ' KM - kujundite kogum (ShapeRange - objekt) Randomize Do For Each kuju In KM x = 100 + Rnd() * maxX y = 100 + Rnd() * maxY Liigu_XY kuju, x, y, 10 Next kuju Loop End Sub lööke käes tabas m_aeg aeg Penaltid algoritm 1 1 15 1.529
annaabi.ee 
