Question

вывести на печать значения функции z=In(x) + tg(2x), большие 1, для x, изменяющегося на отрезке [3,8] с шагом 0,9

Answer 1

var x1:real;

function Z(x:real):real;

begin

Z:=ln(x)+tg(2*x);

end;

begin

x1:=3;

while x1<=8 do

begin

Writeln('Z=', z(x1));

x1:=x1+0.9;

end;

end.