program Lab_4_1;
Uses Crt;
Var min,x,y:real;
Function Func(x:real):real;
begin
Func:=3*sqr(sin(5*x+0.5));
end;
Begin
clrscr;
textcolor(Green);
x:=0;
while x<=0.21 do
begin
write(x:5:2);
write(' ');
writeln(Func(x));
x:=x+0.01;
end;
if .......... then
..................
writeln(' Minimum is ',.....);
readkey;
End.
Помогите найти наименьшее значение функции, Функция протабулирована на интервале [0;0.2].. |