В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
wolk2amiri2
wolk2amiri2
22.03.2023 11:54 •  Информатика

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

Показать ответ
Ответ:
LansWensEEe
LansWensEEe
08.10.2020 21:21

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

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота