Pascal! Для заданной функции s=tg 1/x + 2cos x/2 вывести ** экран значения функции в...

Question

Pascal! Для заданной функции s=tg 1/x + 2cos x/2 вывести на экран значения функции в пределах от -1 до 2 и соответствующие им значения аргумента на отрезке
x ∈ [ -1, b] c шагом h=0,3.

Answer 1

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