Написать программу, позволяющую расположить элементы одного вектора по возрастанию, а другой - по убыванию - VB

Узнай цену своей работы

Формулировка задачи:

Основное задание: Написать программу, осуществляющую заданные вычисления с использованием процедур. Вид процедур определить самостоятельно. А то что я написал раньше сам вариант задания, так для справки если что. Задание по Варианту 9 : Заданы два вектора А(0.052; 0.9; 0.15; 0.84; 0.67) и В(0.948; 0.1; 0.33; 0.16; 0.85). Написать программу, позволяющую расположить элементы одного вектора по возрастанию, а другой - по убыванию. Вычислить сумму полученных векторов. ещё дополню нужно использовать подпрограммы и желательно что бы результат выводился на лист excel или в файл. БУДУ ОЧЕНЬ БЛАГОДАРЕН.

Решение задачи: «Написать программу, позволяющую расположить элементы одного вектора по возрастанию, а другой - по убыванию»

textual
Листинг программы
Sub ia()
Dim a(5), b(5) As Double
Dim Title As String
Title = "Координаты Вектора"
Cells(1, 1) = "Вектор А:"
For i = 1 To 5
    a(i) = InputBox("Введите координату вектора А(" & i & "):", Title)
    Cells(i + 1, 1) = a(i)
Next i
Cells(1, 3) = "Вектор В:"
For i = 1 To 5
    a(i) = InputBox("Введите координату вектора В(" & i & "):", Title)
    Cells(i + 1, 3) = a(i)
Next i
End Sub

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


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

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

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