3. Разработать программку на языке программирования Turbo Pascal: а) Вычислить функцию
3. Создать программу на языке программирования Turbo Pascal:
а) Вычислить функцию на отрезке с шагом . На каждом шаге выводить на печать значения переменных и . Для данной задачки написать программки, используя операторы цикла .
б) Отыскать среднее арифметическое значений функции на промежутке конфигурации довода от до с шагом .
4. Создать программку на языке программирования Turbo Pascal:
а) Вычислить функцию на отрезке с шагом . На каждом шаге выводить на печать значения переменных и . Для данной задачи написать программки, используя операторы цикла .
б) Отыскать среднее арифметическое положительных значений функции на интервале изменения аргумента от до с шагом .
помогите пожалуйста
//функция 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 lt;= Pi do
begin
y := Sin(x);
if y gt; 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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.