Board logo

标题: [原创]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
支持原创!!!




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5