writeln;
end;
End;
END.
ГОЛОВНА ПРОГРАМА
Program Matr_KR2; uses Crt,Glob,KR_SRV2; { Список используемых модулей } var i,j,k,m,n,l:integer; { Рабочие переменные } a:T_Matr; {Имя элементов матрицы А} x:T_Vect; {Имя элементов массива Х }
u:real; {Имя вычисляемой функции }
c:real; { Вспомогательная переменная для транспонирования матрицы }
begin
ClrScr;
writeln(' Исходная матрица');
Ztvor_M(M,N,A);
Print_M(A,M,N); { Оператор процедуры отображения матрицы }
{Транспонирование матрицы }
L:=1; {Начальное значение переменной для формирования начального значения параметра вложенного цикла (работа по столбцам) при транспонировании матрицы А }
for i:=1 to m-1 do
begin
for j:=l to n do
c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c; { Получение элементов транспонированной матрицы }
L:=L+1
end;
writeln ( ' Транспонированная матрица');
writeln;
Print_M(A,M,N); { Оператор процедуры отображения матрицы }
{Формирование массива X из транспонированной матрицы }
k:=1; {Начальное значение формирователя индексов элементов массива X}
for i:=1 to m do
for j:=1 to n do
if a[i,j]<2 then
begin
x[k]:=a[i,j];{Формирование элемента x[k]массива X }
k:=k+1;
end;
{Вывод массива X}
writeln(' Массив X');
writeln;
for i:=1 to k-1 do
write ('x[',i,']=', x[i]:10:7,' '); {Вывод элемента массива X}
{ Вычисление функции U}
U:=1; {Начальное значение функции U}
for i:=1 to k-1 do
U:=U*(x[i]+x[k-i]); {Значение функции U}
writeln;
writeln;
write ('u=',u:10:7); {Отображение результирующего значения функции U}
Repeat Until KeyPressed
END.
РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ
при m=n=3 і при однаковом форматі виведення для всіх чотирьох видів даних
a[i,j]:10:7;
Вихідна матриця
a[1,1]=-3.7007064 a[1,2]=0.3092295 a[1,3]=-0.0910127
a[2,1]=-3.6028023 a[2,2]=0.9875200 a[2,3]= 1.1849153
a[3,1]=-0.5229830 a[3,2]= 1.2015703 a[3,3]= 1.6857605
Транспонована матриця
a[1,1]=-3.7007064 a[1,2]=-3.6028023 a[1,3]= -0.5229830
a[2,1]= 0.3092295 a[2,2]= 0.9875200 a[2,3]= 1.2015703
a[3,1]=-0.0910127 a[3,2]= 1.1849153 a[3,3]= 1.6857605
Масив Х
x[1]=-3.700706 x[2]=-3.6028023 x[3]=-0.5229830 x[4]=0.3092295
x[5]=0.9875200 x[6]=1.2015703 x[7]=-0.0910127 x[8]=1.1849153
x[9]=1.6857665
Значення функції: U=40.3382026
Результати ручних розрахунків співпадають з програмними, що свідчить про правильність роботи програми.
ВИКОРИСТАНА ЛІТЕРАТУРА
1. А. И. Марченко, Л. М. Марченко. Программирование в среде TURBO Pascal 7.0. Киев “ВЕК+””, Москва “ДЕСС”, 1999.
2. Ю.С. Бородич, А.Н. Вальвачев, Ф.И. Кузьмич. Паскаль для персональных компьютеров. Минск,”Вышэйшая школа”, БФ ГИТМП “НИКА”, 1991
3. Д.Б. Поляков, И.Ю. Круглов. Программирование в среде Турбо Паскаль, Москва, МАИ, А\О “РОСВУЗНАУКА”, 1992.
4. Ф.Б. Бартків, Я.Т. Гринчишин, А.М. Ломакович, Ю.С. Рамский. TURBO PASCAL: Алгоритми и програми. Київ, «Вища школа», 1992.