作业帮 > 综合 > 作业

pascal语言输出下列图形的问题,大家看看我为什么错了?

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/01 10:00:33
pascal语言输出下列图形的问题,大家看看我为什么错了?
编程输出下列图形
var i,j:integer;
begin
for i:=1 to 9 do
begin
write ('1':40-3*i);
for j:=2 to i do
begin
write (j:3);
end;
for j:=i-1 downto 1
begin
write (j:3);
end;
writeln ;
writeln ;
end;
readln;
end.
运行后说error50:do expected.
error50:do expecte说明你有语法错误导致程序无法运行.修改程序如下::::::
var i,j:integer;
begin
for i:=1 to 9 do begin write ('1':40-3*i);
for j:=2 to i do begin write (j:3) end;
end;
readln;
end.
for j:=i-1 downto 1 do begin write (j:3) end; writeln ;
writeln ;