Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
5
Добавлен:
18.07.2019
Размер:
416 б
Скачать
unit m;
interface
function drob1(y:real;x:Real):real;
procedure drob(y:real;x:Real; var d:real);
implementation
procedure drob(y:real;x:Real; var d:real);
var t1, t2:real;
begin
t1:=exp(ln(y)*x)-(sqr(y)*y);
t2:=exp(ln(x)*y)+sqr(sqr(x));
d:=t1/t2;
end;
function drob1(y,x:real):real;
var t1, t2:real;
begin
t1:=exp(ln(y)*x)-(sqr(y)*y);
t2:=exp(ln(x)*y)+sqr(sqr(x));
drob1:=t1/t2;
end;
end.
Соседние файлы в папке 4 лаба