杭州交通信息网三角梅秋天可以扦插吗:pascal编程 帮我看一下，我编的错在哪里
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 05:53:07
var i,j:longint;
procedure print(n:longint);
var i,j: longint;
begin
for i:=1 to n do
begin
write(' ':40-i);
for j:=1 to 2*n-1 do
write('*');
end;
print:=n;
end;
begin
print(3);
print(5);
print(10);
for i:=1 to 3 do
begin
write(' ':38);
for j:=1 to 1 do
write('*');
end;
end.
没其他错误了？
怎么我后来还是错的啊
procedure print(n:longint);
var i,j: longint;
begin
for i:=1 to n do
begin
write(' ':40-i);
for j:=1 to 2*n-1 do
write('*');
end;
print:=n;
end;
begin
print(3);
print(5);
print(10);
for i:=1 to 3 do
begin
write(' ':38);
for j:=1 to 1 do
write('*');
end;
end.
没其他错误了？
怎么我后来还是错的啊
你的print是个过程啊，不是函数，最后的print:=n算什么意思？
楼上正解！
同上
一楼正确
顶楼上
顺便问下
楼主的程序要做什么？