Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.05.2015 10:04
- Информатика
- remove_red_eye 10842
- thumb_up 22
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
Вариант №1 - с условными операторами
begin
var x:=ReadReal('x =');
var f:real;
if x<0 then f:=5-Sin(x)
else
if x>0 then f:=x*x+Abs(x)-1
else f:=6;
Writeln('f(x) = ',f)
end.
Вариант №2 - с тернарными операторами в стиле языков С/С++/С#
begin
var x:=ReadReal('x =');
var f:=x0 ? x*x+Abs(x)-1 : 6.0;
Writeln('f(x) = ',f)
end.
Вариант №3 - с функцией
function f(x:real):real;
begin
if x<0 then Result:=5-Sin(x)
else
if x>0 then Result:=x*x+Abs(x)-1
else Result:=6.0
end;
begin
var x:=ReadReal('x =');
Writeln('f(x) = ',f(x))
end.
Вариант №4 - с функцией и тернарным оператором
function f(x:real):=x0 ? x*x+Abs(x)-1 : 6.0;
begin
var x:=ReadReal('x =');
Writeln('f(x) = ',f(x))
end.
Вариант №5 - с лямбда-функцией
begin
var x:=ReadReal('x =');
var f:real->real:=t->x0 ? x*x+Abs(x)-1 : 6.0;
Writeln('f(x) = ',f(x))
end.
Вариант №6 - в стиле программ на TurboPascal/Free Pascal
var
x,f:real;
begin
Write('x = '); Read(x);
if x<0 then f:=5-Sin(x)
else
if x>0 then f:=x*x+Abs(x)-1
else f:=6;
Writeln('f(x) = ',f);
Readln
end.
- 09.05.2015 03:17
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.