编程沙龙（18）

IT商界

PALADIN

　　已知一辆汽车要从A地前往B地，而旅途中有M个加油站，已知这M个加油站分别到A地距离为S1、S2 ……Sm。该车加满油后可行驶N公里，车从A地开出时已加满了油。设计一个程序，输入N以及S1、S2……Sm，输出该车应在哪些加油站停靠加油，使沿途加油次数最少。并证明该方法获得的是最优解。

　　读者朋友可以用你最擅长的语言和编程工具来完成这道题，答题方式为：把你的答案发送到software@cpcw.com，邮件主题写上“算法演义答题”。我们会从中选取答题最好的参赛者，并发送精美奖品。

　　问：使用“Insert Into Table1 (.....) Select ... From Table2”语句来复制表内容时，由于两个表的字段不同，Table1比Table2中多一个日期字段，如果在复制表内容的时候需要统一给这个日期字段一个初值请问该条SQL语句应该怎么写？另外，我在Delphi的Query中使用一条很简单的SQL语句“Select * from user where username=:username and userpass=:userpass”，但总是报错，请问这是为什么？

　　答：首先解答第一个问题，假设Table2的字段有zd1、zd2，Table1多的那个日期字段名是rqzd，初始化日期字段的日期是“2003-5-1”。那么这条SQL语句应该是“insert into Table1(zd1,zd2,rqzd) select zd1,zd2, '2003-5-1' as rqzd from Table2”。而第二个问题则出在表名“user”上！“user”是SQL92～SQL200X中的关键字！所以建议将表名改为“b_user”。

　　问：Delphi中有函数可以产生重复空格字符串吗？

　　答：Delphi中有一个函数function StringOfChar(Ch: Char; Count: Integer): string;可以产生重复字符串，例如要产生5个空格字符串是StringOfChar('',5)。

　　问：有没有什么好的图像开发网站？最好是能提供一些有关图像算法的网站。

　　答：你可以访问，它网址http://homepages.borland.com/efg2lab/library/delphi/graphics/algorithms.htm里面应该有你想要的。