Алгоритм программы
Содержимое файла «my_math_unit»
unit my_math_unit;
interface
function addition(x, y: double): double;
function
subtraction(x, y: double): double;
function division(x, y: double): double;
function multiplication(x, y: double): double;
function tangens(x: double): double;
implementation
function addition(x, y: double): double;//сложение
begin
addition := x + y;
end;
function subtraction(x, y: double): double;//вычитание
begin
subtraction := x - y;
end;
function division(x, y: double): double;//деление
begin
if(0 = y) then
begin
writeln('division by zero!');
end
else
division := x / y;
end;
function multiplication(x, y: double): double;//умножение
begin
multiplication := x * y;
end;
function tangens(x: double): double;//тангенс
begin
if(0 = cos(x)) then
begin
writeln('nan');
end;
tangens := sin(x) / cos(x);//встроенной функции нету, но можно найти как
end; // отношение синуса к косинусу
end.