率土之滨紫色卡包种类:用BASIC怎么写这个程序?我是高中生。。简单哦~~

来源:百度文库 编辑:高考问答 时间:2024/04/29 23:40:51
****
***
**
*
就是这个~~怎么写啊~~

Qbasic程序:
注意:第四行后有分号

CLS
FOR i = 4 TO 1 STEP -1
FOR j = 1 TO i
PRINT "* ";
NEXT j
PRINT
NEXT i

算法:
for (int i = 4;i>0;i--){

for (int j = i;j>0;j--)
print("*"); //输出*

print("\n"); // 换行

}

CLS
dim i
dim j
FOR i = 4 TO 1 STEP -1
FOR j = 1 TO i
PRINT "* ";
NEXT j
PRINT
NEXT i