大家帮忙看一下
这是段C代码标示的部分是我不会翻译成DELPHI的！之前大家帮解决了部分，现在又遇到一些困难！谢谢！
#include "stdlib.h "
#include "stdio.h "
#include "math.h "
struct ptf1
{ double v ;
double h ;
double s ;
}ptf2 ; “ptf1定义成了记录但这个记录ptf2怎么定义也跟ptf1一样吗？“
struct ptg1
{ double v ;
double h ;
double s ;
}ptg2 ;
struct pt1
{ double x ;
double v ;
double h ;
double s ;
}pt2 ;
void ptf(double p,double t,struct ptf1*p1)...
void ptg(double p,double t,struct ptg1*p1)...
void pt(double p,double t,struct pt1*p1)
{ double ts=tsk(p);
p1-> x=t-ts ;
if(p1-> x <=0)
{ if(p1-> x==0)
{ printf( "***be saturated state*** ");}
else
{ ptf(p,t,&ptf2);“这段怎么翻译成DELPHI? "
p1-> v=ptf2.v ;
p1-> h=ptf2.h ;
p1-> s=ptf2.s ;
}
}
else
{ ptg(p,t,&ptg2);
p1-> v=ptg2.v ;
p1-> h=ptg2.h ;
p1-> s=ptg2.s ;
}
if(p1-> x> 1)goto out ;”这块go out 在DELPHI里是什么？“
p1-> x=p1-> x+1.0 ;
out :
return ;
}

[解决办法]
“ptf1定义成了记录但这个记录ptf2怎么定义也跟ptf1一样吗？“

ptf2应该是ptf1的一个变量

ptf(p,t,&ptf2);“这段怎么翻译成DELPHI? "
=> ptf(p,t,@ptf2);

if(p1-> x> 1)goto out ;”这块go out 在DELPHI里是什么？“
goto 语句,delphi里可以先在var后面定义一个label out


if (p1^.x > 1) go out;

...

out: return;
[解决办法]
不建议使用goto语句

Label MyLabel; //用Label保留字声明MyLabel

MyLabel： //标记
.... //其它语句
goto MyLabel； //跳转到MyLabel 处
[解决办法]
struct ptg1
{ double v ;
double h ;
double s ;

}ptg2 ; =>

type
ptg1 = record
v: double;
h: double;
s: double;
end;
var
ptg2: ptg1;
[解决办法]
return 就是 exit;