pascal循环练习输出星号

显示全部楼层 · 2011-12-9 22:39:47

var n,m,i,j,l:longint;beginreadln(n);for i:=1 to n-1 do
begin
for j:=1 to i do
if (j=1)or(j=i) then write('*')
else write(' ');｛如果每行是第一个或者最后一个，就输出‘*’，不然就输出空格}
writeln;
end;｛这里是输前几行带空格的｝for i:=1 to n do
write('*');writeln;｛这里是最后一行｝end.{就这样，很简单｝...

千问 · 2011-12-9 22:39:47

var i,j:integer;begin
for i:=1 to 4 do {行数}
begin
write('*');{每行第一个都是*}
for j:=1 to i-2 do write('*');{第j行中有j-2个空格 j-2<=0...

pascal循环练习 输出星号

pascal循环练习输出星号