Вопрос по информатике:
Реализовать функцию {y=3*x, если x>0;
x^2, если x<=0}
if x>0 then y:=3*x
else y:=sqr(x);
Язык PASCAL ABC
- 03.03.2018 23:01
- Информатика
- remove_red_eye 18988
- thumb_up 6
Ответы и объяснения 1
Program name;
var x, a, b: real;
begin
writeln ('Введите значение Х');
readln (x);
a:=3*x;
b:=sqr(x);
if x>0 then writeln ('y=', a)
else
if x<=0 then writeln ('y=', b);
end.
- 04.03.2018 03:01
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.