Функция для вычисления значения y - Turbo Pascal
Формулировка задачи:
Напишите функцию для вычисления значения y.
y= √ l cos^3x l / ln x + a
Решение задачи: «Функция для вычисления значения y»
textual
Листинг программы
function F(x,a:real):real;
var
t:real;
begin
if (x>0) and (x<>1) then begin
t:=cos(x);
F:=sqrt(abs(t*t*t))/ln(x)+a;
end
else writeln('Функция не определена');
end;
Объяснение кода листинга программы
- Создается функция F с двумя аргументами: x и a типа real.
- Создается переменная t типа real.
- Если условие x>0 и x<>1 выполняется, то выполняется следующий блок кода:
- переменная t инициализируется значением cos(x).
- переменная F инициализируется значением sqrt(abs(ttt))/ln(x)+a.
- Если условие не выполняется, то выводится сообщение
Функция не определена. - Конец функции.