"justify">. PSet (0, I) picl.
Print I
Next I 'Майданчик .
Line (S, 0.2) - (S + L, 0.2)
5) Запустити проект і ввести значення початкової швидкості, кута, відстані до майданчика і його довжини. Клацнути по кнопці Кидок. У текстових полях будуть виведені результати, а в графічному полі з'явиться траєкторія руху тіла. Підібрати значення початкової швидкості і кута кидання, що забезпечують попадання в мішень.
6) Видалити з форми текстові поля txtA для введення значення кута і txtM для виведення результатів і графічне поле picl. Помістити на форму текстові поля txtP для введення точності визначення діапазону кутів і txtAl для виведення значень цього діапазону.
7) Внести зміни в програмний код подієвої процедури:
Private Sub CmdCalc_Click () г Вв од початкових значень VO = Val (txtVO.Text) S = Val (txtS.Text) L = Val (txtL.Text) P = Val (txtP.Text) txtAl.Text = "" For A = 0 To 90 Step P 'Попадання в майданчик X = VO A 2 * Sin (2 * A * Pi/180)/G
If S <= X And ​​X <= S + L Then.Text = txtAl.Text + Str (A) IfASub
) Запустити проект і ввести швидкість кидання м'ячика, відстань до майданчика і її довжину, а також точність визначення діапазону кутів.
Цікаві і розвиваючі завдання: Логічна задача. Вчитель математики просить поставити йому перший або другий урок, вчитель інформатики - перший чи третій, а вчитель фізики - другий чи третій уроки. Які і скільки варіантів розкладу можна скласти, враховуючи побажання вчителів?
Алгоритм:
) Помістити на форму кнопку і створити подієву процедуру, визначальну істинність логічного виразу і друкувальну на формі значення логічних аргументів, при яких істинність досягається:
Private Sub cmdl_Click ()
For M1 = -1 To 0
For M2 = -1
