profile
Опубликовано 6 лет назад по предмету Информатика от ternovka1721

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

  1. Ответ
    Ответ дан iolandavalerypad353

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

Самые новые вопросы