вычислить количество значений функции sin(x),лежащих вне заданного интервала (y1;y2)
Вот вроде сделал...есть ошибки.проверьте пожалуйста и скажите, что неверно
program enem4;
Function f(x:real):real;
begin
end;
var x,x0,xn,hx,y1,y2:real;
s:integer;
begin
writeln('Введите диапазон исследования функции, шаг и интервал(x0,xn,hx,y1,y2):');
readln(x0,xn,hx,y1,y2);
writeln('Таблица значений функции(оператор while)');
x:=x0;
s:=0;
while x<=xn+hx/2 do
begin
writeln('x=',x:5:2,'y=',f(x):8:3);
if (f(x)<y1) and (f(x)>y2) then
s:=s+1;
x:=x+hx;
end;
writeln('Количество значений функции принадлежащих интервалу (y1;y2) равно:');
writeln;
writeln('Таблица значений функции(оператор repeat):');
x:=x0
s:=0
repeat
begin
writeln('x=',x:5:2,'y=',f(x):8:3);
if (f(x)<y1) and (f(x)>y2) then
s:=s+1;
x:=x+hx;
end;
until x>xn+hx/2
writeln('Количество значений функции принадлежащих интервалу (y1;y2) равно:'s);
end.
заранее спасибо!