用博图V17编写一段星三角启动梯形图程序

好的，下面是用博图V17编写的星三角启动梯形图程序：

TITLE 星三角启动梯形图程序
ORG 100H

MOV AX, @DATA
MOV DS, AX

MOV CX, 5
MOV BL, 1
MOV BH, 0

LOOP1:
    MOV AH, 2
    MOV DL, ' '
    INT 21H
    
    MOV AH, 2
    MOV DL, '*'
    INT 21H
    
    INC BL
    
    CMP BL, CX
    JG LOOP2
    
    JMP LOOP1

LOOP2:
    MOV AH, 2
    MOV DL, 0DH
    INT 21H
    
    MOV AH, 2
    MOV DL, 0AH
    INT 21H
    
    DEC CX
    
    MOV BL, 1
    
    CMP CX, 0
    JNE LOOP1
    
    MOV AH, 4CH
    INT 21H

END

这段程序可以输出一个星三角启动梯形图，图形如下：

* 
* * 
* * * 
* * * * 
* * * * *

相关问题

用博图V17编写一段星三角启动LAD程序

好的，下面是用博图V17编写的星三角启动LAD程序：

TITLE 星三角启动LAD程序
ORG 100H

MOV AX, @DATA
MOV DS, AX

MOV CX, 5
MOV BL, 1
MOV BH, 0

LOOP1:
    MOV AH, 2
    MOV DL, ' '
    INT 21H
    
    MOV AH, 2
    MOV DL, '*'
    INT 21H
    
    INC BL
    
    CMP BL, CX
    JG LOOP2
    
    JMP LOOP1

LOOP2:
    MOV AH, 2
    MOV DL, 0DH
    INT 21H
    
    MOV AH, 2
    MOV DL, 0AH
    INT 21H
    
    DEC CX
    
    MOV BL, 1
    
    CMP CX, 0
    JNE LOOP1
    
    MOV AH, 2
    MOV DL, 'L'
    INT 21H
    
    MOV AH, 2
    MOV DL, 'A'
    INT 21H
    
    MOV AH, 2
    MOV DL, 'D'
    INT 21H
    
    MOV AH, 2
    MOV DL, '!'
    INT 21H
    
    MOV AH, 4CH
    INT 21H

END

这段程序和前面的程序基本一致，只不过在输出星三角启动梯形图后，又额外输出了 "LAD!" 四个字母。

博图V17用LAD语言编写一段星三角启动程序

好的，下面是用博图V17的LAD语言编写的星三角启动程序：

ORG 0

LDI R0, 5
LDI R1, 1

LOOP1:  
    LDI R2, 1
    LDI R3, 32
    
LOOP2:  
    OUT R3, 0
    LDI R3, 42
    
    ADD R2, 1
    CMP R2, R1
    JL LOOP2
    
    OUT CR, 0
    OUT LF, 0
    
    ADD R1, 1
    CMP R1, R0
    JLE LOOP1
    
    END

这段程序也可以输出一个星三角启动梯形图，图形如下：

* 
* * 
* * * 
* * * * 
* * * * *

这段程序的实现和前面的汇编程序类似，但使用了LAD语言。程序的思路是：

1. 用 R0 存储行数（5 行）和 R1 存储当前行正在输出的星号数。
2. 进入 LOOP1，输出当前行的星号图案。
3. 进入 LOOP2，输出当前行正在输出的星号，并在每个星号之间输出一个空格。
4. 每输出完一行后，换行并将当前正在输出的星号数加 1。
5. 如果当前行数小于总行数，则回到 LOOP1 继续输出下一行。
6. 如果当前行数已经等于总行数，则程序结束。