UC知道请问这个在编程软件turbo pascal怎么打印?
来源：百度知道 编辑：UC知道 时间：2024/05/18 02:03:29
我是初学者,请问怎样在turbo pascal打印一个由*组成的三角形?第一行一个*,第二行3个*,第三行5个*
var
:integer
begin
n=3然后呢?
var
:integer
begin
n=3然后呢?
var
i,n,j,k:integer;
a:array[0..100,0..100]of integer;
begin
fillchar(a,sizeof(a),0); {给数组a清零}
readln(n); {读入n，即n行，n可以为1，2，3，4……}
for i:=n downto 1 do {将三角形图像存入数组a}
begin
for j:=k to n*2-2-k do
a[i,j]:=1;
inc(k);
end;
for i:=1 to n do {输出图像}
begin
for j:=0 to n*2-1 do
if a[i,j]=0 then write(' ')
else if a[i,j]=1 then write('*');
writeln;
end;
end.
或
begin
writeln(' *');
writeln(' ***');
writeln('*****');
end.