Курсовая работа: Приклад обчислення функції на Паскалі

ClrScr;

For i:=1 to m do

For j:=1 to n do

ma[i,j]:=(ABS(3.7-j)-2) *exp (((i-j)*ln(2)))*(i+j-7.3)*SIN(1.5+(Ln(i/j)/ln(2)));

End;

Procedure Print_M(Ma:T_Matr;M,N:byte); { Процедура отображения матрицы}

var j,i:byte; Begin write (' Выведите элементы матрицы a[i,j]'); writeln; writeln; For i:=1 to m do

begin

For j:=1 to n do

write ('a[',i,’,’,j,']=',Ma[i,j]:10:7); { Отображение элементов матрицы}

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; { Получение элементов транспонированной матрицы }