3. вычислить значения функции у= sin(n*x)-cos(n/x) при n=1,2, … ,50 и изменении x в интервале [1; 3] c шагом х=0,1. отпечатать только отрицательные значения функции y. n эт понятно, а вот как остальное чет вообще не понял. begin for n: = 1 to 50 do writeln(n) end;

174

332

Посмотреть ответы 2

Ответы на вопрос:

relax217

Информатика

4,6(3 оценок)

Var n: integer; x,y: real; begin for n: =1 to 50 do begin writeln('n=',n); x: =1; while x< =3.001 do begin y: =sin(n*x)-cos(n/x); if y< 0 then writeln('x=',x: 3: 1,' y=',y: 8: 5); x: =x+0.1 end end end. результаты (частично) n=1 x=2.1 y=-0.02554 x=2.2 y=-0.08996 x=2.3 y=-0.16126 x=2.4 y=-0.23898 x=2.5 y=-0.32259 x=2.6 y=-0.41144 x=2.7 y=-0.50481 x=2.8 y=-0.60191 x=2.9 y=-0.70188 x=3.0 y=-0.80384 n=2 x=1.5 y=-0.09412 x=1.6 y=-0.37370 x=1.7 y=-0.63973 x=1.8 y=-0.88619 x=1.9 y=-1.10714 x=2.0 y=-1.29710 x=2.1 y=-1.45132 x=2.2 y=-1.56607 x=2.3 y=-1.63885 x=2.4 y=-1.66858 x=2.5 y=-1.65563 x=2.6 y=-1.60190 x=2.7 y=-1.51073 x=2.8 y=-1.38683 x=2.9 y=-1.23607 x=3.0 y=-1.06530 n=49 x=1.0 y=-1.25435 x=1.1 y=-1.31878 x=1.3 y=-0.23684 x=1.5 y=-1.26149 x=1.6 y=-0.56383 x=1.9 y=-1.70385 x=2.0 y=-1.37979 x=2.4 y=-0.98177 x=2.5 y=-0.70927 x=2.6 y=-0.01366 x=2.7 y=-0.41812 x=2.8 y=-1.07678 x=2.9 y=-0.29265 n=50 x=1.0 y=-1.22734 x=1.1 y=-1.09814 x=1.5 y=-0.04807 x=1.6 y=-1.98015 x=2.0 y=-1.49757 x=2.1 y=-1.21559 x=2.5 y=-1.02412 x=2.6 y=-1.85832 x=2.7 y=-0.85734 x=3.0 y=-0.14029