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/06/22 20:30:13
![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第一行打错了,组成菱形](/uploads/image/z/5905714-58-4.jpg?t=pascal+repeat+%E8%AF%AD%E5%8F%A5+%E8%BE%93%E5%87%BA%E4%B8%8B%E5%88%97%E5%9B%BE%E5%BD%A211+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%E7%AC%AC%E4%B8%80%E8%A1%8C%E6%89%93%E9%94%99%E4%BA%86%2C%E7%BB%84%E6%88%90%E8%8F%B1%E5%BD%A2)
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.