Jump to content

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


Препоръчан пост

Здравейте, 

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

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

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

Link to comment
Сподели другаде

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

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

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

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

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

3. Въвежда се реда, който потребителя иска за сметката, проверява се дали условието (K

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

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

Link to comment
Сподели другаде

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

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
 
 
 
Мисля че езика е чисто С
Link to comment
Сподели другаде

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Гост
Отговори на тази тема

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   Не можете да качите директно снимка. Качете или добавете изображението от линк (URL)

Loading...
×
×
  • Създай ново...