Обчислювальна техніка і програмування

Begin

Im := i ,Lm := j ;

end;

writeln (‘ індекс та x елементу : ,Im ,Jm ,’max = ’,L[Im ,Jm] ‘);

e:= L[Im, Jm]*Im *Jm;

x:= xp;

write do;

begin

if x 5 then a:= 3.5

else a:= sqrt ((x)*c)

write (‘a= ’, a);

end;

b:= KLI(x,6,x1,F);

y:= Arc Tan (Exp. (3 *ln(a))+Exp. (3xln(x)))/ Sqrt (Exp.(3 ln (p))+ +Exp.(3 ln(x))+1.31);

write (‘x= ’, x:6:2, ‘y= ’, y:6:2);

x: x+dx;

end;

Pov := ‘Таблиця’;

T [o] := ‘x ’;

T [1] := ‘y ’;

Tab BS (WKL 1,6,2 pov. T);

read key.

End.

4.2. Текст розробленої підпрограми.

Procedure Matr MN (Var, D, Q, L; drmv; M: integer);