pascal repeat 语句 输出下列图形11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 3 2 11 2 3 2 11 2 11第一行打错了,组成菱形
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/08 15:27:31
pascal repeat 语句 输出下列图形11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 3 2 11 2 3 2 11 2 11第一行打错了,组成菱形
pascal repeat 语句 输出下列图形
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 3 2 1
1 2 3 2 1
1 2 1
1
第一行打错了,组成菱形
pascal repeat 语句 输出下列图形11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 3 2 11 2 3 2 11 2 11第一行打错了,组成菱形
这是输出字母的:
var i,j,k,n:integer;
begin
write('N='); readln(n);
for i:=1 to n do
begin
write('':n-i);
for j:=1 to 2*i-1 do
write(chr(64+i-abs(i-j)));
writeln;
end;
for i:=n-1 downto 1 do
begin
write('':n-i);
for j:=1 to 2*i-1 do
write(chr(64+i-abs(i-j)));
writeln;
end;
end.
这是输出数字的:
var i,j,k,n:integer;
begin
write('N='); readln(n);
for i:=1 to n do
begin
write('':n-i);
for j:=1 to i do write(j);
for j:=i-1 downto 1 do write(j);
writeln;
end;
for i:=n-1 downto 1 do
begin
write('':n-i);
for j:=1 to i do write(j);
for j:=i-1 downto 1 do write(j);
writeln;
end;
end.