При любом x программа выдает 0 - Turbo Pascal
Формулировка задачи:
Верно ли я написал код, при любом значении мне выдаёт y=0
Дана графическая зависимость x от y,при введении x должно вывестись значение y!
Решение задачи: «При любом x программа выдает 0»
textual
Листинг программы
var x,y:Real; begin write('Vvedite x='); readln(x); if abs(x)<=1 then y:=abs(x) else if abs(x)<=2 then y:=-abs(x)+2 else y:=-1; writeln('Zna4enie y=',y:0:2); writeln('Press <Enter>'); readln end.
Объяснение кода листинга программы
- Создается переменная
x
типаReal
, которую будем использовать для хранения введенного пользователем значения. - Создается переменная
y
типаReal
, которая будет использоваться для хранения результата вычисления значенияx
. - Выводится сообщение «Введите x=» для приглашения пользователя ввести значение
x
. - Считывается значение
x
с помощью функцииreadln()
. - Вычисляется значение
y
в зависимости от значенияx
:- Если абсолютное значение
x
меньше или равно 1, то значениеy
равно абсолютному значениюx
. - Если абсолютное значение
x
меньше или равно 2, то значениеy
равно минус абсолютному значениюx
плюс 2. - В противном случае, если абсолютное значение
x
больше 2, то значениеy
равно -1.
- Если абсолютное значение
- Выводится сообщение «Значение y=», за которым следует значение
y
в формате0:2
, чтобы пользователь мог увидеть, какие значения допустимы дляy
. - Выводится сообщение «Press
», чтобы пользователь мог перейти к следующему шагу. - Считывается значение
x
с помощью функцииreadln()
.