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

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

ClrScr;

write (' Выведите элементы a[i,j] матрицы А ');

writeln;

writeln;

{Вывод матрицы А по строкам}

for i:=1 to m do{Внешний цикл по строкам}

begin

for j:=1 to n do{Вложенный цикл по столбцам}

write ('a[',i,',',j,']=', a[i,j]:10:7,' '); {Вывод элемента a[i,j]матрицы А}

writeln; {Оператор для перехода на очередную строку}

end;

{ Транспонирование матрицы}

L:=1; { Начальное значение переменной для задания начального значения параметра цикла по столбцам при транспонировании матрицы}

for i:=1 to m-1 do{Внешний цикл по строкам}

begin

for j:=l to n do{Вложенный цикл по столбцам}

begin

c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c;

end;

L:=L+1

end;

writeln ( ' Транспонированная матрица');

writeln;

for i:=1 to m do

begin

for j:=1 to n do

write ('a[',i,',',j,']=', a[i,j]:10:7,' ');{ Вывод элемента транспонированной матрицы}

writeln; { Оператор для переключения строки}