打印任意一个图形的小程序

打印任意一个图形的小程序

张强

1993-05-21

本程序采用了三个控制变量，“A＄”变量控制打印所组成图形形状的字符，“N”变量控制着图形打印每行第一个字符A＄变量起点位置，“D”变量控制A＄变量在每一行打印的个数。三个变量中，“A＄”变量只需在每次打印时一次性输入，用来确定本次打印图形采用什么字符组成，“N”和“D”变量是通过程序中的READ语句读DATA语句中的数据得到。

DATA语句中的数据输入，是由所要组成图形决定的，每两个数据为一组，两两一对，前一个数值决定打印位置，第二个数值决定连续打印字符的个数，在打印中用(0，0)控制打印机换行，最后用(-1，-1)结束全部程序的打印。

打印米老鼠图形的DATA数据程序较长，在此略。(需要该数据程序者与作者联系)(辽宁朝阳电业局计划科张强)

1 WIDTH＂LPT1：＂，132

5 CLS：INPUT＂请输入一个字符！＂，A＄

10 READN，D

20 IF N=-1 THEN GOTO 90

30 IF N=0 THEN LPRINT

40 LPRINT TAB(N)；

50 FOR J=1 TO D

60 LPRIN TA＄；

70 NEXT J

80 GOTO 10

90 END

100 DATA……

本文来源：https://www.wddqw.com/doc/c510170f59eef8c75fbfb383.html