上海家家乐梦幻乐园:双重循环之绘制图形

来源:百度文库 编辑:神马品牌网 时间:2024/04/27 21:41:49
1、 1
222
33333
4444444
555555555

2、 1
121
12321
1234321
123454321
1234321
12321
121
1
Pascal编程

1、
For i = 1 To 5
Print Space(5 - i);
For j = 1 To 2 * i - 1
Print CStr(i);
Next
Print
Next

2、
For i = 1 To 5
Print Space(5 - i);
Print ((10 ^ i - 1) / 9) ^ 2;
Print
Next
For i = 4 To 1 Step -1
Print Space(5 - i);
Print ((10 ^ i - 1) / 9) ^ 2;
Print
Next