дополнить программу условием:"Определить среднее арифметическое значений функций, меньших 1"

[wowan]

Дополнить программу следующим условием:
"Определить среднее арифметическое значений функций, меньших 1"
Извиняюсь,вот эту программу дополнить

uses crt;
const a=2.1;
var x, xr, b, c, h, s, y: real;
begin
clrscr;
writeln('Введите интнрвал и шаг:');
read(b, c, h);
writeln('Таблица значений');
writeln(' x (градусов) x (радиан) y ');
writeln('-----------------------------------------');
s:=0; x:=b;
while x<=c do
begin
xr:=(x*pi)/180;
y:=1-(sin((sqr(xr)+2*a)/sqrt(xr+sqr(a)))/cos((sqr(xr)+2*a)/sqrt(xr+sqr(a))));
writeln(' ', x:5:0, ' ', xr:5:2, ' ', y:5:2);

x:=x+h;
end;

readkey;
end.

[Mad_Cat]

Определить среднее арифметическое значений функций, меньших 1

uses crt;
const a=2.1;
var x, xr, b, c, h, s, y,s1: real;
k:integer
begin
clrscr;
writeln('Введите интнрвал и шаг:');
read(b, c, h);
writeln('Таблица значений');
writeln(' x (градусов) x (радиан) y ');
writeln('-----------------------------------------');
s:=0; x:=b;s1:=0;k:=0;
while x<=c do
begin
xr:=(x*pi)/180;
y:=1-(sin((sqr(xr)+2*a)/sqrt(xr+sqr(a)))/cos((sqr(xr)+2*a)/sqrt(xr+sqr(a))));
if y<=1 then begin s1:=s1+y;k:=k+1;end;
writeln(' ', x:5:0, ' ', xr:5:2, ' ', y:5:2);

x:=x+h;
end;
if k<>0 then
writeln('AVG=',s1/k);
readkey;
end.

[Stilet]

wowan

А действительно, какая функция то?