Question

Значения функции f(x)=cosx заданы в точках x=x0(hx)xn . Определить количество точек функции , расположенных выше прямой y=0.5 и ниже прямой y=-0.5 .
НАПИСАТЬ ПРОГРАММУ НА ПАСКАЛЕ

Answer 1

Ответ:

uses crt;

var x0,xn,h,x:real;

   k:integer;

begin

clrscr;

write('Начало интервала x0=');

readln(x0);

repeat

write('Конец интервала xn>',x0:0:1,' xn=');

readln(xn);

until xn>x0;

repeat

write('Шаг вычислений h<',xn-x0:0:1,' h=');

readln(h);

until h<xn-x0;

x:=x0;

k:=0;

while x<=xn+h/2 do

begin

 writeln('x=',x:4:1,' y=',sin(x):6:3);

 if (sin(x)>-0.5)and(sin(x)<0.5) then k:=k+1;

 x:=x+h;

end;

writeln('Количество точек между прямыми y=-0.5 и y=0.5 = ',k);

readln

end.

Объяснение: