Вычислить периметр и площадь прямоугольного треугольника - VB
Формулировка задачи:
Приветик всем...)
Я тут совсем недавно,вот помощь оч нужна, не могу зачеты получить!
Помогите,чем скорее тем лучше) сдавать через один день!
В следующей задачаче организовать выполнение алгоритма следующим образом: выбор вычисления по той или иной формуле - с помощью элемента управления переключатель, форматный или бесформатный вывод - с помощью элемента управления флажок.
1.Вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов a и b.
Организовать разветвляющийся процесс для решения следующих задач
2.Даны две точки А(х1, у1) и В(х2, у2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат
3.Можно ли коробку размером a ´ b ´ c упаковать в посылку размером r ´ s ´ t? «Углом» укладывать нельзя.
Работа с графикой
4.Построить график функции Y=k*x на отрезке [-5, 0] при K=1.5 и на отрезке [0, 8] при K=2.5
Решение задачи: «Вычислить периметр и площадь прямоугольного треугольника»
textual
Листинг программы
Option Explicit Private Sub Комманда1_Click() Dim Периметр As Double Dim Площадь As Double Dim a As Double Dim b As Double Randomize a = InputBox("Введите первый кататет", "Ввод данных", Int(50 * Rnd + 20)) b = InputBox("Введите второй кататет", "Ввод данных", Int(50 * Rnd + 20)) Периметр = 2 * (a + b) Площадь = (a * b) / 2 MsgBox "преиметр равен " & Периметр & vbCrLf _ & "Площадь равна " & Площадь, 64, "Результат" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д