• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

Yawa

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

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

hosm

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

Yawa

Ахахах :sam_takoi: Знала же что что-то тупое) Спасибо вам
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!