Выбрать алгоритм и составить блок схему и программу для вычисления в точках промежутка [a..b] наибольшего и среднего значения функции y=f(x)
Code
program Z2;
uses crt;
var
f, x, a, b, h, sr, max: real; {объявление переменных}
n, i: integer;
begin
clrscr; {очистка экрана}
a := 0.2;
b := 0.8;
n := 6;
h := (b-a)/n;
for i := 0 to n do begin
x := a + i*h;
f := x*x*x*exp(x-1)/(x*x*x-abs(x)) -ln(sqrt(x)-x)/ln(2);
if ((max < f) or (i = 0)) then max := f;
sr := sr + f;
writeln('x=', x:5:2, ' F = ', f:5:2); {выводим его на экран}
end;
sr := sr / (n+1);
writeln('Srednee = ', sr:5:2);
writeln('max = ', max:5:2);
readkey; {ожидание нажатия клавиши}
end. {конец}
{ Результат выполнения программы:
x= 0.20 F = 2.00
x= 0.30 F = 1.96
x= 0.40 F = 2.00
x= 0.50 F = 2.07
x= 0.60 F = 2.14
x= 0.70 F = 2.16
x= 0.80 F = 1.95
Srednee = 2.04
max = 2.16
}