if(h>hg)
{ p1->x=1.5 ;goto loop20 ;} “这句C怎么写成DELPHI?LOOP在DELPHI里怎
else 么定义?带LOOP的都帮忙翻译一下“
{ tb=h/s ;
loop700 :
gf=0.0 ;
for(i1=0;i1<=4;i1++){gf=gf+w[i1]*pow((tb*0.01),i1);}
p1->t=(h-gf)/s-273.15 ;
if(fabs(p1->t-tb)<0.001)goto loop250 ;
tb=p1->t ;
goto loop700 ;
loop250 :
p1->p=psk(p1->t);
ptg(p1->p,p1->t,&ptg2);
vg=ptg2.v ;
hg=ptg2.h ;
ptf(p1->p,p1->t,&ptf2);
vf=ptf2.v ;
hf=ptf2.h ;
p1->x=(h-hf)/(hg-hf);
p1->v=vf+p1->x*(vg-vf);
goto loop1000 ;
}
{ p1->x=1.5 ;goto loop20 ;} “这句C怎么写成DELPHI?LOOP在DELPHI里怎
else 么定义?带LOOP的都帮忙翻译一下“
{ tb=h/s ;
loop700 :
gf=0.0 ;
for(i1=0;i1<=4;i1++){gf=gf+w[i1]*pow((tb*0.01),i1);}
p1->t=(h-gf)/s-273.15 ;
if(fabs(p1->t-tb)<0.001)goto loop250 ;
tb=p1->t ;
goto loop700 ;
loop250 :
p1->p=psk(p1->t);
ptg(p1->p,p1->t,&ptg2);
vg=ptg2.v ;
hg=ptg2.h ;
ptf(p1->p,p1->t,&ptf2);
vf=ptf2.v ;
hf=ptf2.h ;
p1->x=(h-hf)/(hg-hf);
p1->v=vf+p1->x*(vg-vf);
goto loop1000 ;
}
解决方案 »
- 我找的EXL导出程序,导出成功了,不过还是执行了EXPECT后面的语句
- 如何向工具条的快捷按钮上加小图片?谢谢!初学者。
- 如果有200个人,想建立自己的通讯录 数据,我是不是要建 200个表啊?请指教。
- 怎么样读出用户选择的treeview上的节点的值并且对它做出判断,并使右边的panel上面的控件变化
- 急!关于delphi7下水晶报表控件编程的问题!高分!
- 小问题:字母按顺序自动产生,如 aa, ab, ac ...
- 分发导致的问题,为什么会这样?
- 请问那有《DELPHI5企业级解决方案及应用剖析》下载,我下载了几个,均不能打开,不知为何?
- 如何获得WINDOWS的登录密码??
- 在Delphi中怎样实现程序中能够根据用户设定生成另一个可执行文件?
- 谁做过网络麻将的程序
- 请问任何将一个*.DAT格式的文件转换成*.WAV格式或*.mp3格式的文件?
loop200;
begin
loop200:
ShowMessage('Goto');
Goto loop200;
end;
多个很容易出问题