Procedure FPOLY(X:real; var P:array of real; NP:integer); var J:integer; begin P[1]:=1; For J:=2 To NP do P[J]:=P[J - 1] * X; end;
虫虫下载站 半导体技术网 电子研发网 源码地带 电源技术网 单片机技术网 医疗电子技术 嵌入式系统与单片机