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

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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы