回帖：详细的说
TP中:program ygczm;
var
r,k:integer;
a,b,c,d:real;
f1,f2:text;
function jc(n:integer):real;
var i:integer;
t:real;
begin
t:=1;
if n