求解线性规划中的单纯型法的源码(100分)

  • 主题发起人 春风江南
  • 开始时间
解是我的程序（QB）算出来的，我想用我的程序来调你提供的程序，看了提供的帖子，可能问题很多，
我手头的资料是单纯形法的。有时间试试，有结果我通知你。
 
如果能把你的qb转成pascal就好了（我不懂basic），我也可以试着再做一下。
我的地址是：lj.ah@163.com
谢谢你的关注！
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=668330
已结贴，tom12345提出的例子，确实有错，我算得结果和提供的答案是一样的，但用
JohnsonGuo的程序运行显示 failed。
但gzpbx多人接受答案了，莫名其妙！
 
所以我希望再有一个源程序啊
 
linsb
把你的qb贴出来，我来试试翻译吧！如果方便的话。
 
我正翻译，源程序用了一些goto语句，麻烦一些。我调好了发给你。留下地址。
 
goto语句就是麻烦。
我的email: lj.ah@163.com
 
linsb 你翻好了没有啊^_^
 
linsb你的email能告诉我吗？
 
linsb3031@163.com
 
翻译有进展了吗？
 

if (a.eq.b) goto 10
...
10 i=1
这种fortran的goto语句怎个翻译？
 
label 10;
...

if (a=b) then goto 10;
...
10:i=1;
 
do 7 i=2,m+1
...
if (a..eq.b) goto 7
...
7 continue
//是否if a=b，不执行下面的语句，直接continue，然后还要循环？
 
do 7 i=2,m+1
...
if (a..eq.b) goto 7
...
7 continue
可以译成这样吗？
label 7;
for i:=2 to m+1 do
begin
...
if(a=b) then goto 7
...
7 end;
 
NO PROBLEM
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

S
[教程]Lazarus 在 Linux 下中文输入法问题的临时解决办法
回复
0
查看
660
swish
S
不
Python 的 Magic Methods 指南(转) - 不得闲
回复
0
查看
677
不得闲
不
不
B编码以及BT种子文件分析 - 不得闲
回复
0
查看
854
不得闲
不
S
统计上使用的县以下行政区划代码编制规则
回复
0
查看
768
swish
S
S
[教程]VCL 中 TScrollBox 的一处 Bug 简单处理
回复
0
查看
989
swish
S
顶部