Регистрация
89237карина
10.10.2021 06:28
Информатика
Есть ответ 👍

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

231
347
Посмотреть ответы 2

Ответы на вопрос:

chingiz2008
chingiz2008
4,8(72 оценок)

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

malika0604200
malika0604200
4,4(18 оценок)

сәлем, қалам қас, , , , , профессор. . , профессор, қазақстан,

Популярно: Информатика