Программирование,11 ! протабулируйте функцию на промежутке y=xcos2x на промежутке (-2: 2) с шагом 0,2 и вычислите количество положительных !

217

301

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

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

VaDiMiR3000

Информатика

4,7(12 оценок)

Const xn=-2; xk=2; h=0.2; var x,y: real; i,n,k: integer; begin x: =xn-h; n: =round((xk-xn)/h)+1; k: =0; writeln(' x y'); for i: =1 to n do begin x: =x+h; y: =x*cos(2*x); if y> 0 then k: =k+1; writeln(x: 4: 1,y: 7: 3); end; writeln('k=',k); end. результат: x y -2.0 1.307 -1.8 1.614 -1.6 1.597 -1.4 1.319 -1.2 0.885 -1.0 0.416 -0.8 0.023 -0.6 -0.217 -0.4 -0.279 -0.2 -0.184 0.0 0.000 0.2 0.184 0.4 0.279 0.6 0.217 0.8 -0.023 1.0 -0.416 1.2 -0.885 1.4 -1.319 1.6 -1.597 1.8 -1.614 2.0 -1.307 k=10

настя7176

Информатика

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

Var x,y,h: real; k: integer; begin h: =0.2; x: =-2+h; k: =0; repeat y: =x*cos(2*x); if y> 0 then k: =k+1; x: =x+h; until x> 2-h; if k> 0 then writeln('количество положительных: ',k) else writeln('нет положительных значений'); end.