qbasic中怎样用循环打出一个菱形(实心)!!!

发布网友发布时间：2024-10-01 21:16

共1个回答

热心网友时间：2024-10-25 22:18

INPUT N 'N列
FOR I=-(N\2) TO N\2
P=ABS(I)
PRINT TAB (P+1);
FOR J=1 TO N-P*2
PRINT "*";
NEXT J
PRINT
NEXT I
END

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com