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