3. разработать программу на языке программирования turbo pascal: а) вычислить функцию на отрезке с шагом . на каждом шаге выводить на печать значения переменных и . для данной написать программы, используя операторы цикла . б) найти среднее арифметическое значений функции на интервале изменения аргумента от до с шагом . 4. разработать программу на языке программирования turbo pascal: а) вычислить функцию на отрезке с шагом . на каждом шаге выводить на печать значения переменных и . для данной написать программы, используя операторы цикла . б) найти среднее арифметическое положительных значений функции на интервале изменения аргумента от до с шагом .
ousod
3
26.09.2019 23:20
1
Другие вопросы по теме Информатика
RoyaIHeII
20.03.2022 05:47
danatabilov
20.03.2022 06:12
ikoooo43
20.03.2022 06:23
valu49
20.03.2022 06:29
Adashok
16.10.2020 10:36
Рауза1951
16.10.2020 10:35
marceries
16.10.2020 10:35
poliska333
01.10.2019 22:42
promes2710
02.10.2019 00:10
muy5
02.10.2019 00:10
Популярные вопросы
- Возможные качественные и количественные изменения на политической...
2 - Краствору карбоната калия 5,52г прилили избыток раствора нитрата...
3 - Внешний угол при вершине равнобедренного треугольника равен 90 ....
3 - Примеры отрицательные внешние эффекты рынка...
1 - Комолость у крупного рогатого скота доминирует над рогатостью. комолый...
3 - Радиолюбители устанавливают связь на больших расстояниях, это а.)...
2 - Объяснить пунктуацию в тексте на утро поднявшееся ярркое солнце быстро...
3 - Кзапасным питательным веществам грибов относится что?...
2 - Территории которые россия присоединила во 2 половине 19 внка...
2 - Энергией какого вида обладает тело при своём падении...
2
//функция 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.