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

var i,j,k,m,n,l:integer;

a:mtr; { Imja peremennoi - matriza}

x:mas; { Imja peremennoi - vektor}

u:real; {Imja peremennoi -funzija}

c:real; { Rabochaja peremennaja}

Procedure Viv_M;

Begin

writeln;

writeln;

for i:=1 to m do {vnechnii zikl po strokam}

begin

for j:=1 to n do {vnutrenii zikl po stolbzam}

write ('a[',i,',',j,']=', a[i,j]:10:7,' '); {vivod elementa matrizi a[i,j] }

writeln; {operaator dlja perehoda na ocherednuju stroku}

end;

writeln;

End;

BEGIN

ClrScr;

{vvod elementov matrizi po strokam}

writeln ('vvedite razmernost matrizi A: chisla M i N');

write('m=');

read (m);

write('n=');

read(n);

{zapolnenie matrizi A -vvod elementov a[i,j]'}

for i:=1 to m do

for j:=1 to n do

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)));