Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.12.2016 00:15
- Информатика
- remove_red_eye 9560
- thumb_up 16
Ответы и объяснения 2
var
x: real;
begin
readln(x);
x := sin(x) - 3 * sqr(cos(x)); //
x := abs(x);
x := sqrt(x);
x := 1 / x;
writeln('y = ', x);
end.
- 17.12.2016 00:20
- thumb_up 46
Var
x, y: real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
y := sqrt(abs(sin(x) + 3 * sqr(cos(x))));
if y = 0 then Writeln('Невозможно вычислить значение функции: деление на ноль')
else Writeln('Значение функции равно ', 1 / y:0:5)
end.
Тестовое решение:
Введите значение аргумента x: 1.53
Значение функции равно 0.99793
- 17.12.2016 20:07
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.