С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Exo1TJ
0 / 0 / 0
Регистрация: 14.11.2017
Сообщений: 3
1

Реализовать набор подпрограмм

26.12.2017, 20:23. Просмотров 182. Ответов 0
Метки нет (Все метки)

Всем добрый вечер!
Нужна помощь с заданием, сам никак не могу разобраться..

Реализовать набор подпрограмм для выполнения следующих операций над векторами:
а) сложение; б) вычитание; в) скалярное умножение векторов; г) умножение вектора на
число; д) нахождение длины вектора.
1. Дан массив А — массив векторов. Отсортировать его в порядке убывания длин
векторов.
2. С помощью датчика случайных чисел сгенерировать 2N целых чисел. N пар этих
чисел задают N точек координатной плоскости. Вывести номера тройки точек,
которые являются координатами вершин треугольника с наибольшим углом.

Есть наработки, но не уверен что они правильные..

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub ъъъъ()
    Dim Vect1(0, 1) As Integer, Vect2(0, 1) As Integer, vS() As Integer, lenVect As Double, n As Integer
    
    Vect1(0, 0) = 4
    Vect1(0, 1) = 3
    
    Vect2(0, 0) = 6
    Vect2(0, 1) = 7
    
    Call Show(Vect1)
    Call Show(Vect2)
    
    MsgBox Length(Vect1)
    MsgBox Length(Vect2)
    
    MsgBox mulScalar(Vect1, Vect2)
    
    Call Show(Add(Vect1, Vect2))
    Call Show(SubV(Vect2, Vect1))
    Call Show(mulNum(Vect1, 2))
    
    n = Int(InputBox("Ввдеите количество элементов для сортировки"))
    ReDim vS(n, 1) As Integer
    For i = 0 To n - 1
        For j = 0 To 1
            vS(i, j) = Int(10 * Rnd + 1)
        Next
    Next
    
    Call ShowAll(vS, n)
    Call ShowAll(SortV(vS, n), n)
    
End Sub
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2017, 20:23
Ответы с готовыми решениями:

Реализовать в виде модуля набор подпрограмм для работы с обыкновенными дробями
помогите, пожалуйста, с решение задачи. Задача. Реализовать в виде модуля...

использование подпрограмм
Два простых числа называются “близнецами”, если они отличаются друг от друга на...

IIомогите сделать с использованием подпрограмм
Даны 2 массива А(20 на 20)и Б(10 на 10) нужно определить строку с наименьшим...

Использование подпрограмм-функций в программах
Помогите составить программу и по возможности блок-схему к моему заданию по...

Использование подпрограмм-функций в программах
Помогите кто-нибудь, пожалуйста!? - сойду с сума от непонимания.. (( НУЖНО:...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2017, 20:23

Стек вызовов вложенных подпрограмм
Существует проект VBA, содержащий множество подпрограмм (процедуры, функции,...

Вычислить прощадь прямоугольника с использованием подпрограмм
вычеслить прощадь прямоугольника с использованием Подпрограммы - процедуры....

Как однотипные процедуры сократить с помощью подпрограмм
Добрый вечер! Прошу помощи в сокращении данных однотипных процедур с помощью...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru