1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. Yawa

    Yawa Гость

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

    Код:
    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 *

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

    Yawa Гость

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

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