Даны действительные числа 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.
Объяснение кода листинга программы
- Введенный код написан на языке Turbo Pascal.
- Функция g(x,y:real):real принимает два аргумента типа real и возвращает значение типа real.
- В функции g(x,y:real):real используется математическая функция cos(x), sin(x) и функция сложения и вычитания + и -.
- В функции g(x,y:real):real происходит вычисление значения выражения a+b, a-b, b+c, b-c, a+c, a-c и проверяется условие g(b,c)=0.
- Если выполняется хотя бы одно из условий (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), то выводится сообщение
Значение выражения не определено
. - Если условие не выполняется, то вычисляется значение выражения y, которое представляет собой результат вычисления значения выражения a+b, a-b, b+c, b-c, a+c, a-c, и выводится сообщение
Значение выражения=
с добавлением значения y до трех знаков после запятой. - В основной программе введены три переменные a, b и c типа real, которые используются для ввода значений пользователем.
- В основной программе используется функция clrscr() для очистки экрана и функция readln(a,b,c) для ввода значений переменных a, b и c.
- В основной программе используется функция writeln() для вывода сообщений на экран.
- В основной программе используется функция readln() для получения ввода от пользователя.
- Значения переменных a, b и c используются в функции g(a,c)*g(a,b)/g(b,c) для вычисления значения выражения.
- Значение переменной y представляет собой результат вычисления выражения a+b, a-b, b+c, b-c, a+c, a-c.
- Значение переменной y выводится на экран с помощью функции writeln().
- Значение переменной y округляется до трех знаков после запятой с помощью синтаксиса :0:3.
- Если значение переменной y равно нулю, то выводится сообщение
Значение выражения не определено
. - Значение переменной y не равно нулю, поэтому выводится сообщение
Значение выражения=
с добавлением значения y до трех знаков после запятой. - Значение переменной y не равно нулю, поэтому программа не выполняет блок else и выводит сообщение
Значение выражения не определено
. - Значение переменной y не равно нулю, поэтому программа выполняет блок else и выводит значение переменной y.
- Значение переменной y не равно нулю, поэтому программа не выполняет блок else и выводит сообщение
Значение выражения не определено
. - Значение переменной y не равно нулю, поэтому программа выполняет блок else и выводит значение переменной y.