Вычислить значение арифметического выражения - PascalABC.NET

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

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

Здравствуйте, не могли бы подсказать с решением данной задачи: Вычислить значение арифметического выражения следующего вида: я его уже преобразовал, тем он выглядит так:
Пример решения:
Пожалуйста помогите с решением! Начал делать на Паскаль ABC.NET

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

textual
Листинг программы
var
b,d,c,y,x:real;
begin
 writeln('Введите x');
 readln(x);
 writeln('Введите y');
 readln(y);
 writeln('Введите c');
 readln(c);
 b:=c*(sqrt(y+sqr(x)))*(cos(x)-abs(c-y));
 writeln('b=',b:8:3);
 d:=0;
 if x>y then d:=(x-y)+arctan(x);
 if x<y then d:=power((y-x),3)+arctan(x);
 if x=y then d:=power((y+x),3)+0.5;
 writeln('d=',d:8:3);
end.

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

  1. Объявлены переменные b, d, c, y, x типа real.
  2. Выводится сообщение Введите x, затем происходит чтение значения переменной x с помощью функции readln.
  3. Выводится сообщение Введите y, затем происходит чтение значения переменной y с помощью функции readln.
  4. Выводится сообщение Введите c, затем происходит чтение значения переменной c с помощью функции readln.
  5. Значение переменной b вычисляется как произведение (c(sqrt(y+sqr(x)))(cos(x)-abs(c-y))).
  6. Выводится сообщение b=значение b, где значение b форматируется с использованием спецификатора 8:3 для вывода числа с фиксированной точностью и тремя знаками после запятой.
  7. Значение переменной d вычисляется в зависимости от значений переменных x и y с использованием условного оператора if.
  8. Выводится сообщение d=значение d, где значение d форматируется с использованием спецификатора 8:3 для вывода числа с фиксированной точностью и тремя знаками после запятой.
  9. Код завершается.

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


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

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

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