Пожаловаться
- 14.04.2015 05:03
- Информатика
- remove_red_eye 14745
- thumb_up 19
Ответы и объяснения 1
Код Pascal:
Var x:real;
Begin
Write('x = ');ReadLn(x);
if x <= 0 then Write('f(',x,') = ',17.9+x*x)
else if x <= 1 then Write('f(',x,') = ',Sqrt(x+2))
else Write('f(',x,') = ',Ln(x-1))
End.
Примеры работы программы:
x = -10
f(-10) = 117.9
x = 1
f(1) = 1.73205080756888
x = 3.7182818284590452353602874713527
f(3.71828182845905) = 1
Var x:real;
Begin
Write('x = ');ReadLn(x);
if x <= 0 then Write('f(',x,') = ',17.9+x*x)
else if x <= 1 then Write('f(',x,') = ',Sqrt(x+2))
else Write('f(',x,') = ',Ln(x-1))
End.
Примеры работы программы:
x = -10
f(-10) = 117.9
x = 1
f(1) = 1.73205080756888
x = 3.7182818284590452353602874713527
f(3.71828182845905) = 1
Пожаловаться
- 15.04.2015 21:16
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы