3. Разработать программу на языке программирования Turbo Pascal:
а) Вычислить функцию на отрезке с шагом . На каждом шаге выводить на печать значения переменных и . Для данной задачи написать программы, используя операторы цикла .
б) Найти среднее арифметическое значений функции на интервале изменения аргумента от до с шагом .
4. Разработать программу на языке программирования Turbo Pascal:
а) Вычислить функцию на отрезке с шагом . На каждом шаге выводить на печать значения переменных и . Для данной задачи написать программы, используя операторы цикла .
б) Найти среднее арифметическое положительных значений функции на интервале изменения аргумента от до с шагом .
помогите пожалуйста
Ответы
Ответ дал:
0
//функция y=Sin(x) на интервале [0, Pi] с шагом Pi/18
var y, x, sum: real;
count: integer;
begin
y := 0;
x := 0;
sum := 0;
count := 0;
while x <= Pi do
begin
y := Sin(x);
if y > 1e-10 then
begin
sum := sum + y;
count := count + 1;
end;
writeln(x:5:3, ' ', y:5:3);
x := x + Pi / 18;
end;
write('average = ', sum / count:5:3);
readln;
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад
8 лет назад