UC知道delphi 金字塔问题
来源：百度知道 编辑：UC知道 时间：2024/07/04 02:01:30
var
M,N:integer;
C:char;
begin
C:='*';
for M:=o to 12 do
begin
write(C:40-3*M);
for N:=1 to 2*M do
write(C:3);//是什么意思??
writeln;
end;
writeln('金字塔打印完毕，按“回车”结速。。。');
readln;
end.
最好可以给全解释一下.嘿嘿.
M,N:integer;
C:char;
begin
C:='*';
for M:=o to 12 do
begin
write(C:40-3*M);
for N:=1 to 2*M do
write(C:3);//是什么意思??
writeln;
end;
writeln('金字塔打印完毕，按“回车”结速。。。');
readln;
end.
最好可以给全解释一下.嘿嘿.
程序第八行有错，把0打成o了，也就是应该修改如下：
for M:=0 to 12 do
write(C:3);语句的意思是显示一个*，因为C的值是'*'，并且这个*占三个位置宽，也就是后面跟两个空格。