程序正割
代码说明:
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
下载说明:请别用迅雷下载,失败请重下,重下不扣分!


