Найти сумму элементов одномерного массива А размерности N - VB
Формулировка задачи:
1.Обчислити катет та площу прямокутного трикутника за заданими гіпотенузою та другим катетом.
2.Найти сумму элементов одномерного массива А размерности N, расположенных между максимальным и минимальным.
3. Дано одномерный массив A размерности N и одномерный массив B размерности M. Определить в каком из них макчсимальний элемент является меньший.
4.Скорость света 299792 км / с. Какое расстояние преодолевает свет за час, сутки.
Домоможить пожалуйста !!!
Решение задачи: «Найти сумму элементов одномерного массива А размерности N»
textual
Листинг программы
Private Sub Command1_Click() Dim A As Single, B As Single, c As Single, S As Single A = Val(InputBox("Катет")) B = Val(InputBox("Гипотенуза")) If B <= A Then MsgBox ("Ошибка"): Exit Sub c = Sqr((B ^ 2) - (A ^ 2)) MsgBox ("Второй катет = " & c) Dim p As Single 'полупериметр p = (A + B + c) / 2 S = Sqr(p * (p - A) * (p - B) * (p - c)) MsgBox ("Площадь = " & S) End Sub Private Sub Command2_Click() Dim A() As Single, N As Integer, AMax As Integer Dim B() As Single, M As Integer, BMax As Integer N = Val(InputBox("N")): ReDim A(1 To N) M = Val(InputBox("M")): ReDim B(1 To M) AMax = -51: BMax = -51 Randomize For i = 1 To N A(i) = Int(100 * Rnd - 50) If A(i) > AMax Then AMax = A(i) Next i For i = 1 To M B(i) = Int(100 * Rnd - 50) If B(i) > BMax Then BMax = B(i) Next i If AMax < BMax Then MsgBox ("В массиве А элемент меньший и равен " & AMax) ElseIf AMax > BMax Then MsgBox ("В массиве B элемент меньший и равен " & AMax) Else MsgBox ("В массивах A и B максимальные элементы равны : " & AMax) End If End Sub Private Sub Command3_Click() Const c = 0.299792 MsgBox ("За час свет пройдёт " & Round(c * 60 * 60, 2) & " млн км") MsgBox ("За сутки свет пройдёт " & Round(c * 60 * 60 * 24, 2) & " млн км") End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д