Const a=-10; b=1; var i: integer; begin for i:=a to b do writeln('F1(',i,')=',1/Tan(i)); end.
Const a=2; b=10; var i: integer; x,f,min,max: real; begin x:=a; min:=power(x,3/5); max:=min; for i:=a to b do begin x:=i; f:=power(x,3/5); writeln(f); if f<min then min:=f; if f>max then max:=f; end; writeln('min=',min); writeln('max=',max); end.
Answers & Comments
Verified answer
Consta=-10;
b=1;
var
i: integer;
begin
for i:=a to b do
writeln('F1(',i,')=',1/Tan(i));
end.
Const
a=2;
b=10;
var
i: integer;
x,f,min,max: real;
begin
x:=a;
min:=power(x,3/5);
max:=min;
for i:=a to b do
begin
x:=i;
f:=power(x,3/5);
writeln(f);
if f<min then min:=f;
if f>max then max:=f;
end;
writeln('min=',min);
writeln('max=',max);
end.