Процедуры и функции, определяемые пользователем.

function odz(var x);
begin
a:=sqrt(ln(0.5*x*x-9))/(3*exp(-0.1*x))+sqrt(ln(4-0.8*x*x))/(exp(-0.3*x));
end;

program LR5;
uses crt;
procedure odz(x:real;var a,b:real;var f:boolean);
const e=2.71;
begin
   a:=sqrt(ln(0.5*x*x-9))/(3/exp(0.1*x));
   b:=sqrt(ln(4-0.8*x*x))/(1/exp(0.3*x));
end;
var x,a,b:real;
    f:boolean;
begin
clrscr;
write('x=');
readln(x);
odz(x,a,b,f);
end.
wtiteln('f=',a+b:0:2)
else write('znachenie f(x) ne opredileno');
readln
end.

uses crt;
function odz(x:real):boolean;
var v,w:real;
begin
v:=0.5*x*x-9;
w:=4-0.8*x*x;
odz:=(v>0)and(w>0)and(ln(v)>=0)and(ln(w)>=0)
end;
function f(x:real):real;
var v,w:real;
begin
v:=sqrt(ln(0.5*x*x-9));
w:=sqrt(ln(4-0.8*x*x));
f:=v/(3*exp(-0.1*x))+w/exp(-0.3*x)
end;
var x:real;
begin
clrscr;
write('x=');
readln(x);
if not odz(x) then write('Функция не определена')
else write('f(x)=',f(x):0:4);
readln
end.