Вычислить значение выражения - PascalABC.NET (24515)

Узнай цену своей работы

Формулировка задачи:

Написал программу для решения, но она оказалась нерабочей. Мне надо чтобы при введении x=3 и c=0 прога должна выдать нет решения а при x=9 и c=-1 ответ 2

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
procedure err;
begin
  WriteLn('Нет решений.');
  Halt;
end;
 
begin
  var x := ReadLnReal('x =');
  var c := ReadLnReal('c =');
  if c = 0 then err;
  var a := sqrt(5 + c); var b := 1 / c;
  if a < b then err;
  if x <= b then WriteLn('y = ', sqrt(x + 1))
  else if x < a then WriteLn('y = ', 1 / (x + 5))
  else { x >= a } WriteLn('y = ', sqrt(a + sqrt(x)));
end.

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

  1. Представлен код на языке PascalABC.Net
  2. Задача - вычислить значение выражения
  3. Введенные переменные:
    • x (считывается значение с помощью ReadLnReal)
    • c (считывается значение с помощью ReadLnReal)
  4. Если c равно нулю, то выводится сообщение Нет решений. и выполнение программы прекращается с помощью Halt
  5. Вычисляются значения переменных a и b:
    • a = sqrt(5 + c)
    • b = 1 / c
  6. Если a меньше b, то выводится сообщение Нет решений.
  7. Если x меньше или равно b, то выводится значение y равное sqrt(x + 1)
  8. Если x меньше a, то выводится значение y равное 1 / (x + 5)
  9. Если x больше или равно a, то вычисляется значение y равное sqrt(a + sqrt(x))

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 3.667 из 5