实验一栅格数据结构压缩
一实验目的
1、理解并掌握栅格数据结构及其压缩编码方法；
2、利用QBasic程序编程实现行程编码数据文件的解压缩，全栅格数据文件的行程编码；
3、利用QBasic程序编程实现全栅格数据文件和行程编码文件屏幕显示。
二、实验数据
行程编码文件：111.txt
全栅格数据文件：222.txt
行程编码数据文件：333.txt
三、实验内容
1、解行程编码
将行程编码数据文件111.txt释放为全栅格数据文件，将结果在屏幕上显示并存入111OK.txt。
2、行程压缩
将全栅格数据文件111OK.txt用行程编码方式进行压缩，将结果在屏幕上显示并存入000.txt。
3、全栅格数据文件图形显示
将全栅格数据文件222.txt以图形方式在屏幕上显示。
4、行程编码文件图形显示
将行程编码数据文件333.txt以图形方式在屏幕上显示。
实验一
Cls
Dim m(20, 3)
Open "111.txt" For Input As #1
Do Until EOF(1)
For i = 1 To 20
For j = 1 To 3
Input #1, m(i, j)
Print m(i, j)
Next j
Print
Next i
Loop
n = 1
Open "111ok.txt" For Output As #2
For i = 1 To 20
If i > 1 Then
If (m(i, 1) <> m(i - 1, 1)) Then
Print
Print #2, " "
End If
End If
For j = 1 To m(i, 3)
Print w(i, 2);
Print #2, m(i, 2);
Next j
Next i
End
实验二
CLS
DIM A(8, 8)
OPEN "111ok.txt" FOR INPUT AS #1
DO UNTIL EOF(1)
FOR i = 1 TO 8
FOR j = 1 TO 8
INPUT #1, A(i, j)
PRINT A(i, j)
NEXT j
PRINT
NEXT i
LOOP
n = 1
OPEN "000.txt" FOR OUTPUT AS #2
FOR i = 1 TO 8
FOR j = 1 TO 7
IF A(i, j) = A(i, j + 1) THEN
n = n + 1
ELSE
PRINT A(i, j), n, i: PRINT #2, A(i, j), n, i: n = 1 END IF
NEXT j
PRINT A(i, j), n, i: PRINT #2, A(i, j), n, i: n = 1
NEXT i
END
实验三
Cls
Screen 13
Dim M(8, 8)
Open "222.txt" For Input As #1
Do Until EOF(1)
For i = 1 To 8
For j = 1 To 8
Input #1,M(i, j)
Next j
Next i
Loop
For i = 1 To 8
For j = 1 To 8
IF M(i, j) = 9 Then
Line (i, j)-(i + 1, j + 1), 4, BF
End IF
If M(i, j) = 1 Then
Line (i, j)-(i + 1, j + 1), 5, BF End IF
If M(i, j) = 7 Then
Line (i, j)-(i + 1, j + 1), 10, BF End IF
Next j
Next i
实验四
CLS
DIM m(8, 3)
OPEN "333.txt" FOR INPUT AS #1
DO UNTIL EOF(1)
FOR i = 1 TO 20
FOR j = 1 TO 3
INPUT #1, m(i, j)
NEXT j
NEXT i
LOOP
screen 13
for i=1 to 20
line ( m(i,1), 1 ) - ( m(i,1), m(i,3) ),4,b
print (m(i,1),1), m(i,2),7
next i
END
