问几道图形题用pascal做1. 2.+ +++ +++++ +++

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/16 16:05:03

问几道图形题
用pascal做
1.**** ****
**** ****
**** ****
2.+ +
++ ++
+++ +++
3.edcba
cba
a
4.1
357
91357
错了,第一题是两个相对的平行四边形,中间也有一个空格,第二题是两个三角形,中间有一个空格,第三题是三角形

第一题：
program lx1;
var
i,j:integer;
begin
for i:=1 to 3 do
begin
write('****');
for j:=1 to (4-i)*2-1 do write(' ');
writeln('****');
end;
end.
第二题
program lx2;
var
i,j:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to i do write('+');
for j:=1 to (4-i)*2-1 do write(' ');
for j:=1 to i do write('+');
writeln;
end;
end.
第三题
program lx3;
var
i,j:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to i-1 do write(' ');
for j:=(4-i)*2+95) downto 97 do write(chr(j));
end;
end.
第四题
program lx;
begin
writeln(' 1');
writeln(' 357');
writeln('91357');
end.
完工,二十二翰林上

问几道图形题用pascal做1.**** ******** ******** ****2.+ +++ +++++ +++ 打印下列图形!用pascal做! 打印下列图形成用PASCAL做用PASCAL打印下列图形用pascal语言做一道题用TURBO PASCAL 输出如下图形用PASCAL打印下列图形（急!) pascal打印下列图形 pascal打印数字图形 pascal编程数字图形打印如下图形 pascal 求pascal高手做一道题