Умножение многочленов

  • Автор темы Yawa
  • Дата начала
Y

Yawa

#1
Здраствуйте, помогите пожалуйста решить простую задачу. В первом массиве хранятся коофициенты одного многочлена, во втором другого. Необходимо в третий массив поместить коофициенты их произведений. Подзабыла язык, не пойму в чем ошибка.
Код

Код:
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: , спасибо огромное
 

hosm

* so what *
18.05.2009
2 442
6
#2
А в чем проблемы?
Это отладочный принт? :
он ведь в цикле, это промежуточные вычисления.
по ходу, результат вывести стоит так:
Код:
For i = 0 To (k + l)
Console.Write(c(i) & " ") 
Next
уже после двойного цикла...
 
Y

Yawa

#3
Ахахах :sam_takoi: Знала же что что-то тупое) Спасибо вам