Протабулювати функцію ulnv на інтервалі uЄ [1;1.5] і vЄ [1.1;2] з кроком hu,hv, результати вивести у вигляді таблиці. Знайти серед обчислених значень функції найбільше і найменше значення, а також значення аргументів яких вони досягають.
Program tabuluvannya_funczii_2x_zminnux;
Var
u,v,y,d,hv,hu,min,max,umax,vmax,umin,vmin:real;
Begin
u:=1;
v:=1.1;
hv:=0.41;
hu:=0.2;
y:=u*ln(v);
writeln ('tabuluvannya funczii');
max:=y;
umax:=u;
vmax:=v;
min:=y;
umin:=u;
vmin:=v;
Repeat
v:=1.1;
Repeat
y:=u*ln(v);
writeln ('u=', u:4:2, 'v=', v:4:2, 'y=', y:8:4);
if y>max then
Begin
max:=y;
umax:=u;
vmax:=v;
end;
if y<min then
Begin
min:=y;
umin:=u;
vmin:=v;
end;
v:=v+hv;
until v>2;
u:=u+hu;
until u>1.5;
writeln;
writeln ('max=', max:8:4, 'umax=', umax:4:2, 'vmax=', vmax:4:2);
writeln ('min=', min:8:4, 'umin=', umin:4:2, 'vmin=', vmin:4:2);
Readln
End.
Резудьтат:
