Вопрос по информатике:
Помогите с информатикой. Напишите программу, вычисляющую значение функции!!!
- 18.03.2018 15:42
- Информатика
- remove_red_eye 19995
- thumb_up 14
Ответы и объяснения 2
Var x, y: integer;
begin
write('Введите x: ');
readln(x);
if x < 0 then begin y := -1; writeln('y = ', y); end;
if x = 0 then begin y := 0; writeln('y = ', y); end;
if x > 0 then begin y := 1; writeln('y = ', y); end;
end.
- 19.03.2018 16:25
- thumb_up 40
Var
x: real;
n: integer;
begin
Write('Введите любое число: ');Readln(x);
if x < 0 then n := -1
else
if x = 0 then n := 0 else n := 1;
Writeln('y=', n)
end.
Тестовое решение:
Введите любое число: 5
y=1
- 20.03.2018 14:02
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.