| Вопрос: Вычислить: С = 2А - (А^2 + B)* B | Добавлено: 26.02.06 20:59 |
Автор вопроса:  DJ MATHEMATIC
|
| Не используя подпрограммы,с помощью массивов решить следующую матрицу,где A(m,n),B(m,n),C(m,n) |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Страшный Сон Вопросов: 46 Ответов: 848 |
Профиль | | #1 | Добавлено: 27.02.06 13:21 |
| Вопрос не ясен. | ||
|
Номер ответа: 2 Автор ответа: Sergey ICQ: 283551900 Вопросов: 1 Ответов: 74 |
Профиль | | #2 | Добавлено: 27.02.06 14:37 |
Dim tA, tB, tC As Integer
Dim A, B, C As Integer Dim H, P As Integer H = 0 'С = 2А - (А^2 + B)* B Do Select Case H Case 0 tA = A tB = B P = 0 'mul_A_B_C 'tC=A*A Case 1 'tC=A*A tA = tC tB = B P = 1 'Add_A_B_C 'tC = A * A + B Case 2 'tC = A * A + B tA = tC P = 0 'mul_A_B_C 'tC = (A * A + B)*B Case 3 'tC = (A * A + B)*B tA = tC tB = A * 2 P = 2 'sub_B_A_C 'tC = 2*A-(A * A + B)*B Case 4 'tC = 2*A-(A * A + B)*B C = tC P = -1 End Select Select Case P Case 0 'mul_A_B_C tC = tA * tB H = H + 1 Case 1 'Add_A_B_C tC = tA + tB H = H + 1 Case 2 'Sub_B_A_C: tC = tB - tA H = H + 1 End Select Loop While P >= 0 'C = 2*A-(A * A + B)*B Один из вариантов эмуляции подпрограмм: Н - номер операции. P – номер подпрограммы. Все операции нужно перевисит на матричные!!!! |
||
Страница: 1 |