Операторы цикла для вычисления функции

[Юлия2013]

ВЫБРАТЬ АЛГОРИТМ,СОСТАВИТЬ БЛОК-СХЕМУ И ПРОГРАММУ ДЛЯ ВЫЧИСЛЕНИЯ В ТОЧКАХ xi=a+i*h, i=0,1,2....,n, h=(b-a)/n промежутка [a,b] наибольшего и среднего значения функции y=f(x). Для выполнения задания воспользуйтесь оператором цикла FOR.
РЕБЯТ,ПОМОГИТЕ ПОЖАЛУЙСТА НЕ ЗНАЮ К КОМУ ЕЩЕ ОБРАТИТЬСЯ

[Mad_Cat]

program UX;
function Log(x:real):real;
begin
Log:=Ln(x)/Ln(2);
end;
function Tn(x:real):real;
begin
Tn:=Sin(x)/Cos(x);
end;
Function Sqrt3(x:real):real;
begin
sqrt3:=exp(ln(x)/3);
end;
function Y(x:real):real;
begin
y:=sqrt3(Log(1-x))+Tn(1+1/x)/(sqrt(abs(x))-2)*x;
end;
var a,b,da:real;
i,n:byte;
max,avg:real;
begin
readln(a);
readln(b);
readln(n);
da:=(a-b)/n;
max:=y(a);avg:=0;
for i:=0 to n do
begin
if y(a+i*da)>max then max:=y(a+i*da);
avg:=avg+y(a+i*da);
writeln('x=',a+i*da:8:4,' y=',y(a+i*da):8:4);
end;
writeln('Max=',max:8:4);
Writeln('Avg=',avg/(n+1):8:4);
end.

[Юлия2013]

спасибо вам большое )))

[Юлия2013]

и еще вопрос: для этой штуки нужно было находить производную или нет?

[Mad_Cat]

для этой штуки нужно было находить производную

А я откуда знаю ... я не находил)

[Юлия2013]

Сообщение от Mad_Cat

А я откуда знаю ... я не находил)

поняла. спасибо