Двойной вложенный цикл

[haim]

вычислить среднее арифметическое значений функции F(X) в равноотстоящих значениях из интервала[a,b] с шагом h:

PIC144(1296223878010).jpg
нужна программа решения в паскале, и блок схема
Заранее благодарен за помошь

[VIK_aka_TOR]

насколько я помню матем ... это всё будет выглядеть примерно так...

    
var 
a,b,n,h,f,x,summ: real;
j: integer;

begin
  Writeln ('Введите верхнюю границу интервала {a}');
  readln (a);
  Writeln ('Введите нижнюю границу интервала {b}');
  readln (b);
  Writeln ('Введите шаг {h}');
  readln (h);
  n:= (a-b)/h;
  x:=a;
  repeat   
  for j:=1 to 5 do
  summ:=summ+tan(j+1);  
  f:=log10(sqr(x)+1)/cos(x)+summ;
  writeln ('Для Х=',x,' F = ',f);
  x:=x+h;
  until (x>b);
end.