资 源 简 介
Hitung_secant 程序 ；
使用 wincrt ；
函数 f(x:real):real ；
开始
f: = x * x + x-94 ；
结束 ；
函数 error(x1,x2:real):real ；
var
err: 真实 ；
开始
err:=(((x2-x1)/x2)*100) ；
如果犯错 < 0 然后
error:=err*(-1)
其他
错误： = 犯错 ；
结束 ；
函数 hitxc(xa,xb:real):real ；
开始
hitxc:=(xb-(f(xb)*((xb-xa)/(f(xb)-f(xa))) ；
结束 ；
程序 pilakar （var xa、 xb:real ； xc:real） ；
开始
xa： = xb;
xb： = xc ；
结束 ；
函数 cek(xa,xb:real):real ；
开始
cek:=(f(xa)*f(xb)) ；
结束 ；
程序拉 (var it： 整数 ； var xc1，xc2:real ； xc:real） ；
开始
它： = 它 + 1 ；
xc1: = xc2 ；
xc2： = xc ；
结束 ；
var
x 1，x 2，额敏，呃，xc、 xc1、 xc2，a、 b、 c:real ；
iterasi:integer ；
开始
重复
开始
clrscr ；
写 ("masukan x 1： ") ； readln(x1) ；
写 ("masukan
