Вычисление вектора С, как алгоритмической суммы компонент двух векторов

@Keit535 · Регистрация: 03.06.2011

Студворк — интернет-сервис помощи студентам

Составить программу ввода двух одномерных массивов A и B размерностью n = 10, A = (а1... an), B =(b1...bn) и вычисления вектора С (с1....cn), как алгоритмической суммы компонент двух векторов A и B, по формуле: ci=ai+bi, i =1,2,,,10
Он мне пишет ошибку в предаоследней строке... Подскажите что нужно исправить??
.

Visual Basic

Sub p()
Dim mas As String, a() As Single, b() As Single, c() As Single
Dim i As Integer, n As Integer
n = 10
ReDim a(1 To n) As Single, b(1 To n) As Single, c(1 To n) As Single
For i = 1 To 10
Randomize
a(i) = Int((50 - 1 + 1) * Rnd() + 1)
Next i
For i = 1 To 10
b(i) = Int((50 - 1 + 1) * Rnd() + 1)
Next
For i = 1 To 10
c(1) = a(i) + b(i)
mas = ("Массив c:")
mas = ("mas(" & Str(c(i)) & "8)")
Next i
Cells(1, 1) = "c="
Cells(1, 2) = c(i)
End Sub

@~~Busine2009~~ · 07.06.2011, 15:06

Keit535,
я не стал вникать в ваши замысловатые действия, в моём коде суть:

код:

Visual Basic

Sub p()
Dim a() As Double, b() As Double, c() As Double
Dim i As Integer, n As Integer
n = 10
ReDim a(1 To n), b(1 To n), c(1 To n)
Randomize
'Очистим лист Excel (выведем все 3 массива в Excel).
Cells.Clear
For i = 1 To 10
    a(i) = Int((50 - 1 + 1) * Rnd() + 1)
    'Для наглядности выводим массив в Excel в первый столбец.
    Cells(i, 1).Value = a(i)
Next i
For i = 1 To 10
    b(i) = Int((50 - 1 + 1) * Rnd() + 1)
    'Для наглядности выводим массив в Excel во второй столбец.
    Cells(i, 2).Value = b(i)
Next i
For i = 1 To 10
    c(i) = a(i) + b(i)
    'Для наглядности выводим массив в Excel в третий столбец.
    Cells(i, 3).Value = c(i)
Next i
End Sub

Возможно вам это и не надо, но никогда не используйте в VBA тип данных Single (хоть он и есть и его придумали умные люди), т.к. этот тип данных искажает данные. Для работы с дробными числами (иначе говоря, с вещественными числами) всегда используйте в VBA тип данных Double.

@Keit535 · 07.06.2011, 17:16 **[ТС]**

Busine2009 Спасибо=))) А про Single - это нам преподаватель дал(((

@~~Busine2009~~ · 07.06.2011, 17:19

Сообщение от Keit535

А про Single - это нам преподаватель дал(((

передайте ему, что его нельзя использовать. Правда я в данный момент не могу дать темы этого форума (их было 2), где данные были искажены Single, и люди были в непонятках, что происходит.

@Keit535 0 / 0 / 0 Регистрация: 03.06.2011 Сообщений: 10
	07.06.2011, 17:16 [ТС]	3
	Busine2009 Спасибо=))) А про Single - это нам преподаватель дал((( 0

@~~Busine2009~~ Заблокирован
	07.06.2011, 17:19	4
	Сообщение от Keit535 А про Single - это нам преподаватель дал((( передайте ему, что его нельзя использовать. Правда я в данный момент не могу дать темы этого форума (их было 2), где данные были искажены Single, и люди были в непонятках, что происходит. 0

Опции темы