Pascal! Для заданной функции s=tg 1/x + 2cos x/2 вывести на экран значения функции в пределах от - 1 до 2 и соответствующие им значения аргумента на отрезке

x ∈ [ - 1, b] c шагом h=0,3.

Const a=-1; b=2; h=0.3;

var x, s:real;

i, n:integer;

begin

x:=a-h;

n:=round ((b-a) / h) + 1;

for i:=1 to n do

begin

x:=x+h;

s:=sin (1/x) / cos (1/x) + 2*cos (x/2) ;

writeln (x:5:1,' ', s:6:3) ;

end;

end.

Результат:

-1.0 0.198

-0.7 - 5.105

-0.4 2.707

-0.1 1.349

0.2 - 1.391

0.5 - 0.247

0.8 4.852

1.1 2.989

1.4 2.397

1.7 1.987

2.0 1.627