此程序是用Pascal编写的,可直接双击,打开后直接输入数据,即可求出值。