UC知道关于Turbo Pascal的难题24/27
来源：百度知道 编辑：UC知道 时间：2024/06/20 19:17:03
输出以下图形（行数由输入数据决定）
* * * * * * * * *
* * * * * * *
* * * * *
* * *
*
* * * * * * * * *
* * * * * * *
* * * * *
* * *
*
完整程序如下：
program exp;
var i,j,n:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
for j:=1 to i-1 do write(' ');
for j:=1 to (n-i)*2+1 do write('*');
writeln;
end;
end.
程序在TURBO PASCAL 7下调试通过，运行示例如下：
n=5
*********
*******
*****
***
*
n=8
***************
*************
***********
*********
*******
*****
***
*