标题: [原创]BAISIC和C的NOBLANK实现
[打印本页]
作者: lemonhall
时间: 2003-8-2 00:00
标题: [原创]BAISIC和C的NOBLANK实现
*****************************************
*以下两个例程完全由lemonhall编写并运行
*通过,未经过严格测试.
*请不要未经同意,任意转贴
*lemonhall@vip.sina.com QQ:313813
***************************************
Qbasic1.0/Quick Baick 4.5下运行通过
将输入中的双空格消去成为单空格的例程
===============================================
'建立一个过大的缓冲区
DIM c$(999)
'计数器初式化
n = 1
CLS
'用一个循环仿真相应的getchar函数
DO UNTIL c$(n - 1) = CHR$(13)
10 c$(n) = INKEY$: IF c$(n) = "" THEN 10
PRINT c$(n);
n = n + 1
LOOP
'使用了一个同名计数器,是一个很不好的习惯
n = 1
'相应的define NOBLANK 'a'
lc$ = "a"
'完全按C语言的逻辑运算核心"抄"出来的循环
'其中s开头代表一个状态,state
'用IF结构是为了完全显示地声明出二进制状态
DO UNTIL c$(n) = CHR$(13)
IF c$(n) " " THEN
sc = 1
ELSE
sc = 0
END IF
IF lc$ " " THEN
slc = 1
ELSE
slc = 0
END IF
'进行一个BAISC的逻辑运算,是判断的核心
ss = sc OR slc
IF ss 0 THEN PRINT c$(n);
lc$ = c$(n)
n = n + 1
LOOP
=========================================
= 相应的C语言实现(改造Berkeley C) =
=========================================
#include
/*开始有些难理解的语句*/
#define NOBLANK 'a'
main()
/*replace string of blanks with a single blank */
/*这无需翻译了吧*/
{
int c,lastc;
lastc=NOBLANK;
while((c=getchar())!=EOF) {
if (c!=' '||lastc!=' ')
putchar(c);
lastc=c;
}
}
作者: LanE
时间: 2003-8-2 00:00
支持原创!!!