Даны действительные числа a,b,c. Получить - Turbo Pascal

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

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

Решение задачи: «Даны действительные числа a,b,c. Получить»

textual
Листинг программы
uses crt;
function g(x,y:real):real;
begin
g:=cos(x+y)*cos(x-y)/sin(x+y)/sin(x-y);
end;
var a,b,c,y:real;
begin
clrscr;
writeln('Введите a,b,c');
readln(a,b,c);
if(a+b=0)or(a-b=0)or(b+c=0)or(b-c=0)or(a+c=0)or(a-c=0)or(g(b,c)=0) then
write('Значение выражения не определено')
else
 begin
  y:=g(a,c)*g(a,b)/g(b,c);
  write('Значение выражения=',y:0:3);
 end;
readln
end.

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

  1. Введенный код написан на языке Turbo Pascal.
  2. Функция g(x,y:real):real принимает два аргумента типа real и возвращает значение типа real.
  3. В функции g(x,y:real):real используется математическая функция cos(x), sin(x) и функция сложения и вычитания + и -.
  4. В функции g(x,y:real):real происходит вычисление значения выражения a+b, a-b, b+c, b-c, a+c, a-c и проверяется условие g(b,c)=0.
  5. Если выполняется хотя бы одно из условий (a+b=0)or(a-b=0)or(b+c=0)or(b-c=0)or(a+c=0)or(a-c=0)or(g(b,c)=0), то выводится сообщение Значение выражения не определено.
  6. Если условие не выполняется, то вычисляется значение выражения y, которое представляет собой результат вычисления значения выражения a+b, a-b, b+c, b-c, a+c, a-c, и выводится сообщение Значение выражения= с добавлением значения y до трех знаков после запятой.
  7. В основной программе введены три переменные a, b и c типа real, которые используются для ввода значений пользователем.
  8. В основной программе используется функция clrscr() для очистки экрана и функция readln(a,b,c) для ввода значений переменных a, b и c.
  9. В основной программе используется функция writeln() для вывода сообщений на экран.
  10. В основной программе используется функция readln() для получения ввода от пользователя.
  11. Значения переменных a, b и c используются в функции g(a,c)*g(a,b)/g(b,c) для вычисления значения выражения.
  12. Значение переменной y представляет собой результат вычисления выражения a+b, a-b, b+c, b-c, a+c, a-c.
  13. Значение переменной y выводится на экран с помощью функции writeln().
  14. Значение переменной y округляется до трех знаков после запятой с помощью синтаксиса :0:3.
  15. Если значение переменной y равно нулю, то выводится сообщение Значение выражения не определено.
  16. Значение переменной y не равно нулю, поэтому выводится сообщение Значение выражения= с добавлением значения y до трех знаков после запятой.
  17. Значение переменной y не равно нулю, поэтому программа не выполняет блок else и выводит сообщение Значение выражения не определено.
  18. Значение переменной y не равно нулю, поэтому программа выполняет блок else и выводит значение переменной y.
  19. Значение переменной y не равно нулю, поэтому программа не выполняет блок else и выводит сообщение Значение выражения не определено.
  20. Значение переменной y не равно нулю, поэтому программа выполняет блок else и выводит значение переменной y.

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

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