UC知道急!!各位帮下忙,怎么用QB打出以下图形啊
来源：百度知道 编辑：UC知道 时间：2024/06/09 02:30:36
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
还有个图形是
*
* * *
* * * * *
* * * * * * *
还有个题外问题,会的话那最好不会也没关系
题:
随机产生10个10-100之间的数,按直接插入排序,按从大到小的顺序输出原数列和排序后的数列?
那个*的图形应该是
----- *
--- * * *
--* * * * *
* * * * * * *
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
还有个图形是
*
* * *
* * * * *
* * * * * * *
还有个题外问题,会的话那最好不会也没关系
题:
随机产生10个10-100之间的数,按直接插入排序,按从大到小的顺序输出原数列和排序后的数列?
那个*的图形应该是
----- *
--- * * *
--* * * * *
* * * * * * *
下面是我写的两个程序：
FOR I=1 TO 5
FOR J=1 TO I
PRINT J;
NEXT J
FOR J=I-1 TO 1 STEP -1
PRINT J;
NEXT J
PRINT ""
NEXT I
FOR I=1 TO 4
FOR J=1 TO 4-I
PRINT " ";
NEXT J
FOR J=1 TO I*2-1
PRINT "*";
NEXT J
PRINT ""
NEXT I
以上程序在QBASIC上调试通过，保证正确运行