Вычислить количество значений функции

[diagen_62]

Вычислить количество значений функции

вычислить количество значений функции 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.


заранее спасибо!

 

[ZEKE]

Ошибки чисто синтаксиса.
если программа вычисляет все правильно, то вот код:

program enem4;
uses crt;
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.

Ты бы описал, что такое x0,xn,hn.