Головна сторінка Випадкова сторінка
КАТЕГОРІЇ:
АвтомобіліБіологіяБудівництвоВідпочинок і туризмГеографіяДім і садЕкологіяЕкономікаЕлектронікаІноземні мовиІнформатикаІншеІсторіяКультураЛітератураМатематикаМедицинаМеталлургіяМеханікаОсвітаОхорона праціПедагогікаПолітикаПравоПсихологіяРелігіяСоціологіяСпортФізикаФілософіяФінансиХімія
End Sub
Дата добавления: 2014-11-10; просмотров: 670
|
|
Задача 4.4. Задано дійсне число x=5.3×№(де № – номер варіанту)і цілі числа m=10i n=5, з яких необхідно отримати елементи вектора 
та матриці 
згідно з такими математичними виразами:
; 
.
Рядок з номером і матриці C назвемо відзначеним, якщо ai>0, і не відзначеним – в іншому випадку. Відповідно до номера варіанту потрібно розробити програму, яка б давала змогу у відзначених рядках матриці визначити середнє арифметичне значення з додатних їх елементів.
| B | C | D | E | F | G | H | I | J | K | |
| №= | х= | 21,2 | m= | n= | ||||||
| A | C | |||||||||
| i | ai | i\j | S>0: ai>0 | |||||||
| 0,699 | 4,066 | -2,565 | 1,864 | -1,469 | 1,215 | 2,382 | ||||
| 0,379 | 2,742 | -1,937 | 1,489 | -1,219 | 1,037 | 1,756 | ||||
| 0,715 | 1,798 | -1,379 | 1,115 | -0,949 | 0,834 | 1,249 | ||||
| -0,187 | 1,232 | -0,989 | 0,826 | -0,725 | 0,654 | --- | ||||
| 0,157 | 0,889 | -0,730 | 0,621 | -0,557 | 0,512 | 0,674 | ||||
| -0,919 | 0,672 | -0,557 | 0,478 | -0,434 | 0,405 | --- | ||||
| 0,337 | 0,527 | -0,437 | 0,376 | -0,344 | 0,325 | 0,409 | ||||
| 0,999 | 0,427 | -0,353 | 0,303 | -0,278 | 0,264 | 0,331 | ||||
| 0,710 | 0,353 | -0,291 | 0,248 | -0,228 | 0,218 | 0,273 | ||||
| 0,081 | 0,299 | -0,244 | 0,207 | -0,191 | 0,183 | 0,229 | ||||
| (-1)j-1 | -1 | -1 |
Текст програми у режимі формул – для середовища Excel
Клітина E98 à 5,3*C98 – < Enter>
Клітини C101:C110 à (1+(ABS(COS(($E$98+B101)^0,4)^2))^(1/3))/ (0,67+$E$98^2+TAN(B101^3)^2)+SIN(3*$E$98/B101) – <Ctrl + Enter>
Клітини F101:J110 à F$111*($E$98+$E101/ФАКТР(F$100))/($E101^2+3*F$100+1,46) – <Ctrl + Enter>
Клітини K101:K110 à ЕСЛИ(C101>0;СУММЕСЛИ(F101:J101;">0")/
СЧЁТЕСЛИ(F101:J101;">0");"---") – <Ctrl + Enter>
Тексти функцій і процедур – для середовища Visual Basic
| ' Обчислення значень елементів масиву {A} Function FunAi(x, i) As Single Dim a1, a2, a3 As Single a1 =1 + Abs(Cos((x + i) ^ 0.4) ^ 2) ^ (1 / 3) a2 =0.67 + x ^ 2 + Tan(i ^ 3) ^ 2 a3 =Sin(3 * x / i) FunAi =a1 / a2 + a3 End Function | ' Обчислення середнього значення серед ' додатних елементів масиву Function CrZnd(A, n) As Single Dim c As Single Dim i, k As Byte c =0: k =1 For i =1 To n If A(i) > 0 Then c =c + A(i): k =k + 1 End If Next i If k > 0 Then CrZnd =c / k Else CrZnd =0 End Function |
| ' Обчислення елементів матриці <B> Function FnCij(x, i, j) As Single Dim b1, b2 As Single b1 =x + i / Faktr(j) b2 =i ^ 2 + 3 * j + 1.46 FnCij =b1 / b2 End Function |
Sub Zavd_4_4()
| <== предыдущая лекция | | | следующая лекция ==> |
| End Sub | | | End Sub |