Найти и вывести среднее арифметическое значение функции на заданном интервале.

29.04.2010, 21:45. **Показов** 2038. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Y=cos(a - x 2 ) +b x 2 (x изменяется от 1 до 3 с шагом 0.3)
Найти и вывести среднее арифметическое значение функции на заданном интервале.

@yanyk1n · 29.04.2010, 21:52

Pascal

uses crt;
var f,dx,x,a,b,s:extended;
k:integer;
 
begin
    clrscr;
    write('A B -> ');
    readln(a,b);
    dx := 0.3;
    x := 1;
    f := 3;
    k := 0;
    s := 0;
    while x<=f do
    begin
        s := s + cos(a - sqr(x)) + b * sqr(x);
        inc(k);
    end;
    s:=s/k;
    writeln('S(F) = ',s:5:5);
    readln;
end.

Shreky
		1
	Найти и вывести среднее арифметическое значение функции на заданном интервале. 29.04.2010, 21:45. Показов 2038. Ответов 1 Метки нет (Все метки) Y=cos(a - x 2 ) +b x 2 (x изменяется от 1 до 3 с шагом 0.3) Найти и вывести среднее арифметическое значение функции на заданном интервале.

	29.04.2010, 21:52

Опции темы

Найти и вывести среднее арифметическое значение функции на заданном интервале.

Решение