Вывести на печать значения функции z = ln(x) + tg(2x), большие 1, для x, изменяющегося на отрезке [3, 8] с шагом 0,9.
Вывести на печать значения функции z = ln(x) + tg(2x), большие 1, для x, изменяющегося на отрезке [3, 8] с шагом 0,9.
Program PascalGuru; var x,z:real; {-------------------------------------------------} function tg (x : real) : real; begin tg := sin(x)/cos(x); end; {-------------------------------------------------}
begin x:=2.1; repeat x:=x+0.9; z:=ln(x)+tg(2*x); if x<=8 then writeln('Z(',x:0:1,')= ',z:0:3); until x>=8;