Y
Yawa
Здраствуйте, помогите пожалуйста решить простую задачу. В первом массиве хранятся коофициенты одного многочлена, во втором другого. Необходимо в третий массив поместить коофициенты их произведений. Подзабыла язык, не пойму в чем ошибка.
Код
Очень-очень срочно :sam_takoi: , спасибо огромное
Код
Код:
Module Module1
Dim a() As Long
Dim b() As Long
Dim c() As Long
Sub Main()
'объявление переменных
Dim k As Long
Dim l As Long
Dim i As Long
Dim j As Long
Console.Write("степень первого многочлена:")
k = Val(Console.ReadLine())
Console.Write("Коофициенты первого многочлена: ")
ReDim a(k)
For i = 0 To k
a(i) = Rnd() * 20
Console.Write(a(i) & " ")
Next
Console.WriteLine()
Console.Write("степень второго многочлена:")
l = Val(Console.ReadLine())
Console.Write("Коофициенты второго многочлена: ")
ReDim b(l)
For j = 0 To l
b(j) = Rnd() * 20
Console.Write(b(j) & " ")
Next
Console.WriteLine()
Console.Write("Коофициенты произведения двух многочленов: ")
ReDim c(k + l)
For i = 0 To (k + l)
c(i) = 0
Next
For i = 0 To k
For j = 0 To l
c(i + j) = c(i + j) + (a(i) * b(j))
Console.Write(c(i + j) & " ")
Next j
Next i
Console.ReadLine()
End Sub
End Module
Очень-очень срочно :sam_takoi: , спасибо огромное