Вычислить периметр и площадь прямоугольного треугольника - 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

Оцени полезность:

7   голосов , оценка 4.571 из 5
Похожие ответы