No self-introduction
Loading
Profile
Follow
codes (1)
Program Secant
no vote
Program hitung_secant;
uses wincrt;
function f(x:real):real;
begin
f:=x*x+x-94;
end;
function error(x1,x2:real):real;
var
err:real;
begin
err:=(((x2-x1)/x2)*100);
if err<0 then
error:=err*(-1)
else
error:=err;
end;
function
graha 1 0
1
No more~
Follows0
Fans0