Question

3. Разработать программу на языке программирования Turbo Pascal: а) Вычислить функцию на отрезке с шагом . На каждом шаге выводить на печать значения переменных и . Для данной задачи написать программы, используя операторы цикла . б) Найти среднее арифметическое значений функции на интервале изменения аргумента от до с шагом . 4. Разработать программу на языке программирования Turbo Pascal: а) Вычислить функцию на отрезке с шагом . На каждом шаге выводить на печать значения переменных и . Для данной задачи написать программы, используя операторы цикла . б) Найти среднее арифметическое положительных значений функции на интервале изменения аргумента от до с шагом . помогите пожалуйста

Answer 1

//функция 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.

Answer 2

Для начала, предположим, что в задаче речь идет о функции f(x) и она задана в условии. Для примера, возьмем функцию f(x) = x^2.

а) Программа для вычисления функции на отрезке с шагом h:

pascalCopy code
program CalculateFunction;

var
  x, result: real;
  h, start, finish: real;

begin
  // Ввод значений начала и конца отрезка, а также шага
  writeln('Введите начало отрезка: ');
  readln(start);
  writeln('Введите конец отрезка: ');
  readln(finish);
  writeln('Введите шаг: ');
  readln(h);

  // Вычисление функции на заданном отрезке с шагом h
  x := start;
  while x <= finish do
  begin
    result := x * x; // Функция f(x) = x^2
    writeln('x = ', x:0:2, ', f(x) = ', result:0:2);
    x := x + h;
  end;

end.

б) Программа для вычисления среднего арифметического значений функции на интервале с шагом h:

pascalCopy code
program CalculateAverage;

var
  x, result, sum: real;
  h, start, finish: real;
  count: integer;

begin
  // Ввод значений начала и конца отрезка, а также шага
  writeln('Введите начало отрезка: ');
  readln(start);
  writeln('Введите конец отрезка: ');
  readln(finish);
  writeln('Введите шаг: ');
  readln(h);

  // Вычисление среднего арифметического на заданном отрезке с шагом h
  x := start;
  count := 0;
  sum := 0;
  while x <= finish do
  begin
    result := x * x; // Функция f(x) = x^2
    if result > 0 then
    begin
      sum := sum + result;
      count := count + 1;
    end;
    x := x + h;
  end;

  if count > 0 then
  begin
    writeln('Среднее арифметическое положительных значений функции: ', sum / count:0:2);
  end
  else
  begin
    writeln('На заданном интервале нет положительных значений функции.');
  end;

end.

Вы можете вставить данные программы в среду разработки Turbo Pascal и запустить их для тестирования с различными значениями. Программа а) вычисляет и выводит значения функции на заданном отрезке, а программа б) вычисляет и выводит среднее арифметическое положительных значений функции на заданном интервале.