程序正割

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