Студопедія
рос | укр

Головна сторінка Випадкова сторінка


КАТЕГОРІЇ:

АвтомобіліБіологіяБудівництвоВідпочинок і туризмГеографіяДім і садЕкологіяЕкономікаЕлектронікаІноземні мовиІнформатикаІншеІсторіяКультураЛітератураМатематикаМедицинаМеталлургіяМеханікаОсвітаОхорона праціПедагогікаПолітикаПравоПсихологіяРелігіяСоціологіяСпортФізикаФілософіяФінансиХімія






End Sub


Дата добавления: 2014-11-10; просмотров: 546



Задача 4.2.За­да­но дійсне чис­ло x=2.7×№(де № – но­мер ва­рі­ан­ту)і ці­лі чис­ла m=10 і n=5.Відповідно до номера варіанту потрібно розробити програму для обчислення значень елементів двох матриць

і

за та­ки­ми фор­му­ла­ми:

;

Виз­на­чи­ти кіль­кос­ті від'ємних еле­мен­тів у кож­но­му із стов­пців мат­ри­ці В, які ма­ють не­пар­ні но­ме­ри.

  B C D E F G H I J K L M N
№= х= 10,8   m= n=        
A             B          
i\j   i\j
0,732 0,393 -9,593 -2,877 -0,029   1,498 2,198 -1,280 1,130 -0,626
0,447 0,094 3,041 5,230 4,363   0,249 2,995 -3,546 4,397 -0,157
0,389 0,067 1,688 1,818 0,040   0,109 0,923 4,493 -18,216 -1,813
0,367 0,057 1,307 1,247 0,023   0,062 0,497 1,829 5,990 577,017
0,358 0,052 1,131 1,015 0,018   0,039 0,316 1,096 2,876 7,488
0,353 0,050 1,031 0,890 0,015   0,027 0,219 0,746 1,846 4,018
0,352 0,048 0,969 0,814 0,013   0,020 0,161 0,544 1,316 2,708
0,352 0,047 0,927 0,762 0,012   0,015 0,123 0,416 0,995 1,997
0,353 0,046 0,897 0,726 0,011   0,012 0,097 0,328 0,781 1,550
0,355 0,046 0,875 0,699 0,011   0,010 0,079 0,266 0,631 1,244
                         
              Kнп<0= --- ---

Текст програми у режимі формул – для середовища Excel

Клі­ти­на E39 à 2,7*C39 – < Enter>

Клі­ти­ни C42:G51 à ($B42+C$41)^1,2/($B42*2,51-C$41)*SIN($E$39+C$41)^2 – <Ctrl + Enter>

Клі­ти­ни J42:N51 à ($I42+J$41)/(0,1*$E$39+$I42/J$41)*TAN((J$41/$I42)^2) – <Ctrl + Enter>

Клі­ти­ни J53:N53 à ЕС­ЛИ(ОС­ТАТ(J41;2)=1;СЧЁТЕС­ЛИ(J42:J51;"<0");"---") – <Ctrl + Enter>

Тексти функцій і процедур – для середовища Visual Basic

' Обчислення елементів матриці <A> Function Fn_Aij(x, i, j) As Single Dim a1, a2, a3 As Single a1 =(i + j) ^ 1.2 a2 =i * 2.51 - j a3 =Sin(x + j) ^ 2 Fn_Aij =a1 / a2 * a3 End Function ' Обчислення елементів матриці <B> Function Fn_Bij(x, i, j) As Single Dim b1, b2, b3 As Single b1 =i + j b2 =0.1 * x + i / j b3 =Tan((j / i) ^ 2) Fn_Bij =b1 / b2 * b3 End Function

 

Sub Zavd_4_2()


<== предыдущая лекция | следующая лекция ==>
Лабораторний практикум | End Sub
1 | 2 | <== 3 ==> | 4 | 5 | 6 |
Studopedia.info - Студопедия - 2014-2024 год . (0.192 сек.) російська версія | українська версія

Генерация страницы за: 0.192 сек.
Поможем в написании
> Курсовые, контрольные, дипломные и другие работы со скидкой до 25%
3 569 лучших специалисов, готовы оказать помощь 24/7