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

Тема в разделе "Visual Basic", создана пользователем Yawa, 11 ноя 2010.

  1. Yawa

    Yawa Гость

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

    Код (LotusScript):
    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: , спасибо огромное
     
  2. hosm

    hosm * so what *

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

    Yawa Гость

    Ахахах :sam_takoi: Знала же что что-то тупое) Спасибо вам
     
Загрузка...
Похожие Темы - Умножение многочленов
  1. student22rus
    Ответов:
    1
    Просмотров:
    2.446

Поделиться этой страницей