Вычислить значение выражения - Pascal ABC (14519)
Формулировка задачи:
Даны x,y,z. Вычислить u,v, если
Решение задачи: «Вычислить значение выражения»
textual
Листинг программы
var x,y,z,u,v:real; begin writeln('Введите x,y,z'); readln(x,y,z); u:=sin(abs((y-sqrt(abs(x)))*(x-y/(x*x+x*x/4)))); v:=cos(z*z+x*x/4); write('u=',u:0:3,' v=',v:0:3); end.
Объяснение кода листинга программы
- Создается переменная
x
, которая представляет собой типreal
. - Создается переменная
y
, которая представляет собой типreal
. - Создается переменная
z
, которая представляет собой типreal
. - Создается переменная
u
, которая представляет собой типreal
. - Создается переменная
v
, которая представляет собой типreal
. - Выводится сообщение
Введите x,y,z
. - Считываются значения переменных
x
,y
иz
с помощью функцииreadln()
. - Вычисляется значение переменной
u
с использованием функцийsin()
иabs()
, а также формулы(y-sqrt(abs(x)))*(x-y/(x*x+x*x/4))
. - Вычисляется значение переменной
v
с использованием функцииcos()
и значения переменнойz
. - Выводится сообщение
u=
, с помощью функцииwrite()
с аргументом'u='
, а затем выводятся значения переменныхu
,x
,y
,z
с помощью функцииprint()
. - Выводится сообщение
v=
, с помощью функцииwrite()
с аргументом'v='
, а затем выводятся значения переменныхv
,x
,y
,z
с помощью функцииprint()
. - Конец программы.