大家帮忙看一下,该如何处理
大家帮忙看一下
这是段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 ;
这是段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 ;