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.