回 帖 发 新 帖 刷新版面

主题:急求BASIC程序

有如下几组数:

1,2,3,4,5,6

1,2,3,4,5,6

1,2,3,4,5,6

1,2,3,4,5,6,7

1,2,3,4,5,6,7

1,2,3,4,5,6,7,8

1,2,3,4,5,6,7,8,9

用QBAIC程序编一个程序,输出结果是:(把相同组输出一组,不相同的组全部输出)

1,2,3,4,5,6

1,2,3,4,5,6,7

1,2,3,4,5,6,7,8

1,2,3,4,5,6,7,8,9

本人50多岁了。也爱好QBASIC程序,别的程序不会,最近处理数据时遇到了这样的问题,怎么也达不到输出的结果,请各位老师帮忙,多谢谢!!!

 

回复列表 (共1个回复)

沙发

不太清楚你的具体问题.
按照目前看到的条件,暂时忽略其它所有问题.

7个字符串
排序,过滤即可.


因为很多问题的规模,处理方法都有各种各样的时间成本考虑.
姑且按照题目以最简单的办法来处理:

以源文件TXT来处理:

cr$=chr$(13)+chr$(10)
s1$=cr$
open "1.txt" for input as #1
do until eof(1)
   line input a1$
   if ltrim$(a1$)="" then exit do
   if instr(s1$,cr$+a1$+cr$)=0 then s1$=s1$+a1$+chr$(13)+chr$(10)
loop
close #1
print s1$

我来回复

您尚未登录,请登录后再回复。点此登录或注册