Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.09.2015 07:28
- Информатика
- remove_red_eye 17227
- thumb_up 26
Ответы и объяснения 1
Const
a: double = 2.12;
b: double = 7.45;
h: double = 0.34;
function Power(p, q: double): double;
{Возвращает значение p в степени q}
begin
Power := exp(q * ln(p))
end;
var
x, f1, f2, y, s: double;
begin
x := a;
s := 0;
while x <= b do
begin
f1 := 3 * ln(Power(sin(x) + sqr(x), 1 / 5));
f2 := (2 * x + 1) / Power(x, 5);
y := f1 / f2;
s := s + y;
x := x + h
end;
Writeln('S=', s:0:5)
end.
Результат выполнения:
S=12897.41510
- 22.09.2015 18:47
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.