Вычислить значение функции при заданном вводом значении аргумента - VB
Формулировка задачи:
Помогите пожалуйста решить ряд не сложных, как я думаю, задачек:
Развилка:
1. Разработать информационную технологию, позволяющую по штрих-коду определять принадлежность товара одному из отделов про-довольственного магазина (гастрономии, бакалеи, кондитерскому, овощному)(использовать инструкцию Select Case …. End Select
2.
разработать информационную технологию, позволяющую определить, какими уравнениями описывается функция в зависимости от значения аргумента. Вычислить значение функции при заданном вводом значении аргумента.
Следование:
1. Разработать информационную технологию, позволяющую вычислять площадь равнобедренного треугольника, если заданы его основание и боковая сторона.
Заранее вам блпгодарен!
Решение задачи: «Вычислить значение функции при заданном вводом значении аргумента»
textual
Листинг программы
Private Sub Command1_Click() Dim a As Double, b As Double a = Val(Text1.Text) 'основание b = Val(Text2.Text) 'сторона Text3.Text = "" 'площадь If a > 0 And 2 * b > a Then Text3.Text = "S= " & Round((a * Sqr(b ^ 2 - (a / 2) ^ 2)) / 2, 3) & " ед.кв" Else MsgBox "некорректные данные" End If End Sub Private Sub Form_Load() 'не объязательно Picture1.AutoRedraw = True Picture1.Scale (0, 0)-(10, 10) Picture1.Line (2, 9)-(8, 9) Picture1.Line (2, 9)-(5, 1) Picture1.Line (5, 1)-(8, 9) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д