Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.12.2016 16:25
- Информатика
- remove_red_eye 19097
- thumb_up 31
Ответы и объяснения 1
var
b, a, i, c, z, x, y: real;
begin
readln(a, b);
if (b < a) then
begin
c := sin(a) + sqrt(b);
if (c > 12.5) then
writeln('Z = ', System.Math.Log(b) + power(a, 3))
else
writeln('B = ', 0.25 * b + tan(a));
end
else
begin
x := -5;
readln(i);
while (x <= 6) do
begin
y := power(x, 3) + 1 / (x + 0.2);
if (y > 0) then
writeln('X = ', x:5, ' Y = ', y);
x += i;
end;
end;
end.
--------------------------
var
b, c, z, x, y: real;
begin
readln(b, c, x);
y := sin(x) / 2 + sqrt(sqr(b) + power(c, 5)) / (3.5 * b);
if (y >= 0) then
begin
z := (power(b, 6) - sin(x)) / (128 * c);
if (z < 12.5) then
writeln('Q = ', 1.25 * sin(x + b));
end
else
writeln(' y <0 ');
end.
- 02.12.2016 15:09
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.