Написать программу для решения уравнения вида - Pascal ABC
Формулировка задачи:
a = e^|x-y| + |x-y|^x+y, b = (arctg z + arctg x)/y
Решение задачи: «Написать программу для решения уравнения вида»
textual
Листинг программы
var a,b,c,x,y,z:real; begin writeln('Введите x,y,z'); readln(x,y,z); if x=y then c:=0 else c:=exp(ln(abs(x-y))*(x+y)); a:=exp(abs(x-y))+c; writeln('a=',a:0:2); if y=0 then write('b не определено') //можно написать if (y=0)or(cos(z)=0)or(cos(x)=0) then... //но не имеет смысла, т.к. не сможете ввести с клавы числа вида pi/2 else begin b:=(arctan(z)+arctan(x))/y; write('b=',b:0:2); end; end.
Объяснение кода листинга программы
- Создается переменная
a
типаreal
. - Выводится сообщение
Введите x,y,z
. - Считываются значения
x
,y
иz
с помощью функцииreadln()
. - Вычисляется значение
c
с использованием формулыc := exp(ln(abs(x-y))*(x+y))
. - Вычисляется значение
a
с использованием формулыa := exp(abs(x-y))+c
. - Выводится значение
a
с точностью до двух знаков после запятой с помощью функцииwriteln()
. - Проверяется условие
y = 0
. Если это условие выполняется, то выводится сообщениеb не определено
. - Если условие
y = 0
не выполняется, то начинается вложенный блок кода. - В этом блоке кода вычисляется значение
b
с использованием формулыb := (arctan(z)+arctan(x))/y
. - Значение
b
выводится с точностью до двух знаков после запятой с помощью функцииwrite()
. - Конец программы.