Блок-схема задачи 2.
i:=1
j:=1
да нет
нет
да
нет да
z[i,j]:=sin(exp(4*ln(ln(a*x)))+exp(3.4*ln(x))*b*b+d*d*d*x*x*x*x-sqrt(c*c*c)*cos(x));
z[i,j]:=0
z[i,j]:=cos(c*exp(-4*x)+a*ln(x+50)+b*sqrt(exp(4*ln(x+70)))+d*d*d*ln(x)/(x*x*x+1));
z[i,j]:=0
j<=30
i<=30
a1
a1
i:=1
j:=1
да нет
да нет
да нет нет
J<=30
I<=30
Программа задачи 2.
program kursach;
uses crt;
var z:array[1..30,1..30] of real;
max, min:real;
f:text;
i,j,x,a,b,c,d,n:integer;
k,l,m,p:integer;
BEGIN
clrscr;
assign(f,'A.LST');
rewrite(f);
min:=z[1,1];
max:=z[1,1];n:=5;
for i:=1 to 30 do begin
for j:=1 to 30 do begin
x:=n*(i+j);
a:=n*i;
b:=n*(i+1);
c:=n*j;
d:=n*(j+1);
if i>j then begin
if (x<=0) then
z[i,j]:=0
else
z[i,j]:=sin(exp(4*ln(ln(a*x)))+exp(3.4*ln(x))*b*b+d*d*d*x*x*x*x-sqrt(c*c*c)*cos(x));
end
else begin
if (x<=0) then
z[i,j]:=0
else
z[i,j]:=cos(c*exp(-4*x)+a*ln(x+50)+b*sqrt(exp(4*ln(x+70)))+d*d*d*ln(x)/(x*x*x+1));
end; end; end;
for i:=1 to 30 do begin
for j:=1 to 30 do begin
if (z[i,j]>-0.3) and (z[i,j]<0.3) and ((i+j)>10) and ((i+j)<50)
then begin
if z[i,j]>max then begin
max:=z[i,j];
k:=i; l:=j;
end;
if z[i,j]<min then begin
min:=z[i,j];
p:=i; m:=j;
end;
end; end; end;
writeln(f,'vivodit max i min matrici i ih indeksi');
writeln(f,' i=',k:2,' j=',l:2,' max=',max:6:3);
writeln(f,' i=',p:2,' j=',m:2,' min=',min:6:3);
close(f);
writeln(' i=',k:2,' j=',l:2,' max=',max:6:3);
writeln(' i=',p:2,' j=',m:2,' min=',min:6:3);
readln;
END.