При любом 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.

Объяснение кода листинга программы

  1. Создается переменная x типа Real, которую будем использовать для хранения введенного пользователем значения.
  2. Создается переменная y типа Real, которая будет использоваться для хранения результата вычисления значения x.
  3. Выводится сообщение «Введите x=» для приглашения пользователя ввести значение x.
  4. Считывается значение x с помощью функции readln().
  5. Вычисляется значение y в зависимости от значения x:
    • Если абсолютное значение x меньше или равно 1, то значение y равно абсолютному значению x.
    • Если абсолютное значение x меньше или равно 2, то значение y равно минус абсолютному значению x плюс 2.
    • В противном случае, если абсолютное значение x больше 2, то значение y равно -1.
  6. Выводится сообщение «Значение y=», за которым следует значение y в формате 0:2, чтобы пользователь мог увидеть, какие значения допустимы для y.
  7. Выводится сообщение «Press », чтобы пользователь мог перейти к следующему шагу.
  8. Считывается значение x с помощью функции readln().

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы