Создайте программу для вычисления у используя процедуры и функции

Ленара

Создайте программу для вычисления у используя процедуры и функции: у=√3+(sin(x-2)/x*x) если х=2-√((d*d)+f), d=2,8 f=1,4 для проверки у=1,7046829
1 ответ

Ленара

program test;
uses
  Math;
 
var
  d,f:real;
 
function y(const x:real):real;
begin
  y:=sqrt(3+(sin(x-2.0)/sqr(x)));
end;
 
function x(const a,b:real):real;
begin
  x:=2-sqrt(sqr(a)+b);
end;
 
begin
  writeln('Enter d:');
  readln(d);
  writeln('Enter f:');
  readln(f);
  writeln('y=',y(x(d,f)):6:6);
  readln;
end.