Прехвърляне към съдържание


Снимка

Задача с матрици на microsoft visual basic for appilcation (excel)


  • Моля, влезте, за да отговорите
4 отговора по тази тема

#1 smileyy

smileyy

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 3 мнения

Публикувано: 10 May 2015 - 16:20

Здравейте, 

имам затруднение със следната задача:

Дадена е матрицата X(M,N) съставена от реални елементи. Ако матрицата е квадратна, намерете скалрното произведенеие на главния диагонал с елементите на ред K (K<=N).

Благодаря предварително! 



#2 as9993

as9993

    Потребител

  • Глобални модератори
  • ПипПипПипПипПипПип
  • 695 мнения
  • Пол:Мъж

Публикувано: 10 May 2015 - 17:59

Кое точно те затруднява?


"Родена в пъкъла музика се е разцъкала, като вълна избута боклука в ъгъла"


#3 smileyy

smileyy

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 3 мнения

Публикувано: 10 May 2015 - 18:44

Кое точно те затруднява?

скалрното произведенеие на главния диагонал с елементите на ред K (K<=N).



#4 as9993

as9993

    Потребител

  • Глобални модератори
  • ПипПипПипПипПипПип
  • 695 мнения
  • Пол:Мъж

Публикувано: 10 May 2015 - 19:09

Главния диагонал предполагам е ясно какво е. 

Не съм писал на Visual Basic и за това мога да разпиша самия алгоритъм, а ти ще трябва да си напишеш програмата.

Предполагаме, че самата матрица е въведена в променливата A.

1. Провери дали матрицата A е квадратна, ако да-отиди в 2., ако не-прекъсни.

2. Намери главния диагонал на матрицата A и го запази в променлива diag

3. Въвежда се реда, който потребителя иска за сметката, проверява се дали условието (K<=N) е изпълнено, ако да-точка 4, ако не-прекъсни.

4. Пресмята се diag*всички елементи на матрицата A лежащи на дадения ред

5. Извежда се на екрана.


"Родена в пъкъла музика се е разцъкала, като вълна избута боклука в ъгъла"


#5 smileyy

smileyy

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 3 мнения

Публикувано: 18 May 2015 - 09:39

Може ли някой да напише програмата, защото някои неща по точките не ги разбирам, а и нещата които сме учели се разминават със задачата. Ето какво съм написал и до къде съм стигнал 

Sub skalarno_proizvedenie()
Dim Z() As Double
Dim M As Integer, N As Integer
Dim i As Integer, j As Integer
    
' danni ot Excel -> Sheet1
Dim W As Worksheet
Set W = Application.Worksheets("Sheet1")
    W.Activate
    M = 5: N = 5
 ReDim Z(1 To M, 1 To N)
    For i = 1 To M
       For j = 1 To N
          Z(i, j) = W.Cells(i, j)
       Next
    Next
et1: M = InputBox("m=")
     N = InputBox("n=")
If M = N Then
    GoTo et2
 Else
    GoTo et1
End If
et2: Dim diag As Double
        For i = 1 To M
           For j = 1 To N
              If i = j Then
 
 
 
 
 
End Sub
 
 
 
Мисля че езика е чисто С





0 потребители четат тази тема

0 регистрирани потребители, 0 гости и 0 анонимни потребители