Написать программу для решения уравнения вида - 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.

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

  1. Создается переменная a типа real.
  2. Выводится сообщение Введите x,y,z.
  3. Считываются значения x, y и z с помощью функции readln().
  4. Вычисляется значение c с использованием формулы c := exp(ln(abs(x-y))*(x+y)).
  5. Вычисляется значение a с использованием формулы a := exp(abs(x-y))+c.
  6. Выводится значение a с точностью до двух знаков после запятой с помощью функции writeln().
  7. Проверяется условие y = 0. Если это условие выполняется, то выводится сообщение b не определено.
  8. Если условие y = 0 не выполняется, то начинается вложенный блок кода.
  9. В этом блоке кода вычисляется значение b с использованием формулы b := (arctan(z)+arctan(x))/y.
  10. Значение b выводится с точностью до двух знаков после запятой с помощью функции write().
  11. Конец программы.

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

6   голосов , оценка 4.667 из 5
Похожие ответы