用 TURBO PASCAL解题（填空）

来源：百度知道 编辑：UC知道 时间：2024/05/09 06:07:30
当n＝4
***1
**121
*12321
1234321
*12321
**121
***1
注：*号代表空格，不显示
begin
read(n);
for i:=1 to 2*n-1 do
begin
write('':____1_____);
for i:=1 to ____2____ do
write(i);
writeln;
end;
end.
把1，2填出来我追加所有分

太简单了，不过我没用过PASCAL，别鄙视我，我不会用也能填出来，啥叫高手。崇拜我吧。你题抄的铁定有问题，两个FOR嵌套，变量都是i？如果你说题没错我就填不出来了。假如第二个FOR是 for k:=1 to.....
先说第一个空，你知道PASCAL里面有个输出变量并在变量前加若干空格吧，别问我，给你说我不会，不过铁定有，不知道就自己去查。第一个空输入"(i-4)的绝对值个空格"

二空输入 “(i-4)的绝对值再加1”。

这些函数都能查出来，自己查吧，我就帮你帮到这了。虽然不怎么专业，但我也费了点劲，怎么也给我20分吧。

本人C语言比PASCAL强点，回头有C语言问题直接找俺哈

你们都错了~~~~~

如果第2个变量为j的话

第1 明显是个abs函数 abs(i-n);
第2 如果有你们想的那么简单那么也就不会贴出来了
。。。一定是输出所有的数，那么当前行的个数就是
2*i-(abs(2*(i-n))+2*(i-n))-1
那么第3 就是每一个数 j-（abs(j-i)+(j-i)）;

begin
read(n);
for i:=1 to 2*n-1 do
begin
write('':4-i);
for j:=-(n-1) to n-1do
write(3-abs(j));
writeln;
end;
end.