Головна сторінка Випадкова сторінка
КАТЕГОРІЇ:
АвтомобіліБіологіяБудівництвоВідпочинок і туризмГеографіяДім і садЕкологіяЕкономікаЕлектронікаІноземні мовиІнформатикаІншеІсторіяКультураЛітератураМатематикаМедицинаМеталлургіяМеханікаОсвітаОхорона праціПедагогікаПолітикаПравоПсихологіяРелігіяСоціологіяСпортФізикаФілософіяФінансиХімія
End Sub
Дата добавления: 2014-11-10; просмотров: 583
|
|
Задача 4.3. Задано дійсне число x=1.3×№(де № – номер варіанту)і ціле число n=10. Отримати одновимірний масив 
згідно з таким математичним виразом
.
З елементів одновимірного масиву потрібно отримати елементи двовимірного масиву 
згідно з таким математичним виразом
.
| B | C | D | E | F | G | H | I | J | K | L | M | |
| №= | х= | 5,2 | n= | |||||||||
| B | ||||||||||||
| j | ||||||||||||
| i | ai\aj | -12,54 | -3,42 | -0,74 | -0,03 | 0,75 | 3,23 | 14,65 | 78,55 | 497,87 | 3628,93 | |
| -12,54 | -439,57 | -50,96 | -19,32 | -0,89 | 21,86 | 106,90 | 646,23 | 5419,94 | 59055,97 | 779543,48 | ||
| -3,42 | -18,52 | -3,14 | -0,38 | -0,02 | 0,64 | 3,55 | 23,77 | 207,41 | 2280,01 | 30140,70 | ||
| -0,74 | -548,61 | -99,82 | -12,53 | -0,41 | 15,36 | 96,45 | 678,27 | 5996,36 | 66092,93 | 874097,85 | ||
| -0,03 | -668,64 | -123,49 | -16,93 | -0,26 | 17,24 | 114,61 | 818,53 | 7263,02 | 80111,51 | 1059620,10 | ||
| 0,75 | -67,61 | -12,67 | -1,86 | -0,05 | 1,54 | 11,25 | 81,88 | 729,50 | 8052,73 | 106525,47 | ||
| 3,23 | -20,48 | -3,99 | -0,66 | -0,02 | 0,37 | 3,06 | 23,96 | 216,40 | 2394,84 | 31692,94 | ||
| 14,65 | -23,53 | -5,11 | -0,98 | -0,04 | 0,90 | 2,83 | 23,43 | 228,55 | 2559,76 | 33938,71 | ||
| 78,55 | -27,24 | -6,83 | -1,44 | -0,06 | 1,43 | 5,94 | 21,40 | 190,94 | 2321,28 | 31109,19 | ||
| 497,87 | -63,76 | -17,11 | -3,70 | -0,16 | 3,72 | 15,93 | 70,63 | 315,95 | 3132,67 | 45759,49 | ||
| 3628,93 | -85,39 | -23,24 | -5,05 | -0,22 | 5,09 | 21,88 | 99,02 | 521,67 | 2840,70 | 31198,19 |
Текст програми у режимі формул – для середовища Excel
Клітина E68 à 1,3*C68 – < Enter>
Клітини C72:C81 à (ФАКТР(B72)-$E$68^2+1)/(B72^3+COS($E$68+B72^2)) – <Ctrl + Enter>
Клітини D71:M71 à ТРАНСП(C72:C81) – <Ctrl + Enter>
Клітини D72:M81 à D$71*ABS($C72-3,2*D$71)^0,3/(1+SIN($C72-1,2)) – <Ctrl + Enter>
Тексти функцій і процедур – для середовища Visual Basic
| ' Обчислення значень елементів масиву {A} Function FnAi(x, i) As Single Dim a1, a2 As Single a1 =Faktr(i) - x ^ 2 + 1 a2 =i ^ 3 + Cos(x + i ^ 2) FnAi =a1 / a2 End Function | ' Обчислення елементів матриці <B> Function FnBij(ai, aj) As Single Dim b1, b2 As Single b1 =Abs(ai - 3.2 * aj) ^ 0.3 b2 =1 + Sin(ai - 1.2) FnBij =aj * b1 / b2 End Function |
Sub Zavd_4_3()
| <== предыдущая лекция | | | следующая лекция ==> |
| End Sub | | | End Sub |