Отримання компонентів вектора із квадратної матриці відповідно до заданого алгоритму. Обчислення значення функції. Базова програма реалізації алгоритму. Модуль глобальних описів. Сервісний модуль обслуговування матриці. Результати роботи програми.
Після отримання компонентів вектора X обчислити значення функції U. За вектор X взяти перший за порядком у зворотному порядку стовпець матриці з найменшою сумою його елементів, якщо його максимальний елемент знаходиться на непарній позиції, в іншому випадку за вектор X взяти попарну суму елементів головної і допоміжної діагоналей.Туре mtr=array[l..Len,l..Len] of real; {Користувацький тип mtr} mas=array[l..Len] of real; {Користувацький тип mas} Var{перелік використаних змінних та їх типів} i,j,n:integer; {параметри циклу і розмірності} a:mtr; {двохмірний масив} x:mas; {одномірний масив X} adr:integer; {змінна, передбачена для фіксування в ній адреси першого за порядком стовпця матриці з найменшою сумою елементів.} max:real; {передбачена для фіксування в ній найбільшого значення елемента стовпчика з адресою adr.} am:integer; {змінна, в котрій будемо фіксувати адресу найбільшого елемента стовпчика матриці з адресою adr.} suml,sum2:real; {Змінна sum1 - передбачена для накопичення суми елементів стовпчика матриці з адресою adr. Значення змінної adr завжди буде дорівнювати адресі першого за порядком стовпчика матриці з найменшою сумою його елементів} min:real; {робоча змінна} r: real; {робоча змінна} c,b:integer; Змінна приймає значення від 2 до п.} sum1:=0;sum2:=0; {початок перевірки кожного нового стовпчика матриці, тобто після кожної зміни значення j змінним sum1: =0;sum2:=0; max:=a[1,adr];am:=1 надаємо початкових значень} max:=a[1,adr];am:=1; For i:= 1 to n do begin {цикл перебігу j-го стовпчика поелементно, в якому відбувається утворення сум елементів стовпчиків} sum1:=sum1 a[i,adr]; {sum1-сума елементів стовпчика матриці з адресою adr } sum2:=sum2 a[i,j]; {sum2 - сума елементів j-го стовпчика матриці} if max<a[i,adr] then begin {знаходження найбільшого елемента та його адреси стовпчика матриці з адресою adr } {відбувається порівняння значень елементів стовпчика зі значенням змінної max. І якщо буде знайдено елемент стовпчика більший за значенням від змінної max, то відбувається надання змінній max значення цього елемента та фіксування в змінній am адреси цього елемента} max:=a[i,adr];Unit Global; Tmatr=array [l..len,l..len] of real;interface uses global; Procedure CREATEMATRIX(n:byte; var M:Tmatr); Procedure OUTPUTMATRIX(n:byte; var M:Tmatr); begin For і:= 1 to n do begin for j:=1 to n do beginsuml,sum2: real; BEGIN write ("n=");read(n) ; For j:= 2 to n do begin suml:=0;sum2:=0; For і:= 1 to n do begin suml:=suml a[i,adr];Матриця - 5x5 а[11]=-8.893 а[12]=-5.929 а[13]=-3.953 а[14]=-2.635 а[15]=-1.757 а[21]=-9.880 а[22]= 6.587 а[23]= 4.391 а[24]= 2.927 а[25]= 1.952 а[31]=-3.240 а[32]= 2.160 а[33]=-1.440 а[34]=-0.960 а[35]=-0.640 а[41]=-2.520 а[42]= 1.680 а[43]=-1.120 а[44]= 0.747 а[45]= 0.498 а[51]=-201.960 а[52]= 134.640 а[53]=-89.760 а[54]= 59.840 а[55]=-39.893 Адреса стовпця adr=l Адреса найбільшого елемента ам=4 х[1]=-10.650 х[2]=9.514 х[3]=-2.880 х[4]=2.427 х[5]=-241.853 Результати ручних розрахунків співпадають з програмними, що свідчить про правильність роботи програми. Умова виконується Адреса стовпця adr=3 Адреса найбільшого елемента am=5 х[1]=7.000 х[2]=-1.000 х[3]=-4.000 х[4]=-9.000 х[5]=4.
План
Зміст
1. Завдання на курсову роботу
2. Базова програма реалізації алгоритму
3. Модуль глобальних описів
4. Сервісний модуль обслуговування матриці
5. Головна програма
6. Результати роботи програми
7. Використована література
1. Завдання на курсову роботу
Загальне завдання на курсову роботу
Список литературы
Ф.Б. Бартків, Я.Т. Гринчишин, A.M. Ломакович, Ю.С. Рамский. TURBO PASCAL: Алгоритми и програми. Київ, «Вища школа».
