Лабораторная работа №3
Вариант – 6
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{*********************************************}
{Программа:Vol,Лабораторная работа#4,Вариант 6}
{Цель:вычисление значения функции }
{Описание параметров и переменных: }
{x,b-переменные }
{z-промежуточное значение }
{a-значение функции }
{Метод:вычисление по формулам }
{Программист:Юняев А.,гр.243 }
{Проверил:профессор Новичков В.С.,кафедра ВПМ }
{Дата написания:1.10.2002г. }
{*********************************************}
{Вычисление значения функции}
Program Vol;
Var
b,x,a,z:Real;
Begin{Vol}
Write('Введите числа x,b');{x+x*x+b*b<>0,по определению логарифма}
{x+x*x+b*b<>1,так как при этом функция будет не определена}
Read(x,b);
z:=x*x+b*b;
a:=(SQR(SQR(SQR(x)))+EXP(1/3*LN(z*SQR(SQR(x))+COS(x+z))))*LN(10)/LN (ABS(x+z));
Writeln('Значение функции:');
Writeln('a=',a);
End.{Vol}
|
Главная
Каталог файлов
