Найти сумму элементов одномерного массива А размерности 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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