《数字地图制图原理》课程实验报告

实验一 栅格数据结构压缩

一 实验目的

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 \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 \ 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 \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 \ 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 \ 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