Реферат: Использование языка программирования Visual Basic для решения математических задач

Rem Танк

Line (12000 - a * k, 5620)-(12850 - a * k, 5520), &HFFFF&, BF

Line (11920 - a * k, 5540)-(12000 - a * k, 5530), &HFFFF&, BF

Line (11900 - a * k, 5550)-(12000 - a * k, 5540), &HFFFF&, BF

Line (11920 - a * k, 5560)-(12000 - a * k, 5550), &HFFFF&, BF

Line (11940 - a * k, 5570)-(12000 - a * k, 5560), &HFFFF&, BF

Line (11950 - a * k, 5590)-(12000 - a * k, 5570), &HFFFF&, BF

Line (11970 - a * k, 5600)-(12000 - a * k, 5590), &HFFFF&, BF

Line (12825 - a * k, 5600)-(12900 - a * k, 5580), &H8000000F, BF

Line (12800 - a * k, 5620)-(12900 - a * k, 5600), &H8000000F, BF

Line (12850 - a * k, 5620)-(13950 - a * k, 5520), &H8000000F, BF

Rem башня танка

Line (12200 - a * k, 5440)-(12650 - a * k, 5500), &HFFFF&, BF

Line (11900 - a * k, 5460)-(12200 - a * k, 5460), &HFFFF&

Line (12650 - a * k, 5440)-(12750 - a * k, 5500), &H8000000F, BF

Rem Полет ПТУРС

X1 = V * T * Cos(f - Rnd * 0.1)

Y1 = V * T * Sin(f + Rnd * 0.1)

Label5.Caption = (Label5.Caption + X1)

Label4.Caption = (Label4.Caption + Y1)

Label6.Caption = 12000 - a * k

X0 = Label5.Caption

Y0 = -Label4.Caption

Rem ПТУРС

Line (X0 + 300, 5550 + Y0)-(X0 + 400, 5500 + Y0), &H8000000F, BF

Line (X0 + 300, 5550 + Y0)-(X0 + 500, 5600 + Y0), &H8000000F, BF

Line (X0 + 300, 5450 + Y0)-(X0 + 550, 5500 + Y0), &H8000000F, BF

Line (400 + X0, 5500 + Y0)-(420 + X0, 5550 + Y0), &HFF&, BF

Line (400 + X0, 5525 + Y0)-(550 + X0, 5525 + Y0), &HFF&