作业帮问几道图形题用pascal做1.**** ******** ******** ****2.+ +++ +++++ +++3.edcbacbaa4.135791357错了,第一题是两个相对的平行四边形,中间也有一个空格,第二题是两个三角形,中间有一个空格,第三题是三角形
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/02 20:39:01
问几道图形题用pascal做1.**** ******** ******** ****2.+ +++ +++++ +++3.edcbacbaa4.135791357错了,第一题是两个相对的平行四边形,中间也有一个空格,第二题是两个三角形,中间有一个空格,第三题是三角形
问几道图形题
用pascal做
1.**** ****
**** ****
**** ****
2.+ +
++ ++
+++ +++
3.edcba
cba
a
4.1
357
91357
错了,第一题是两个相对的平行四边形,中间也有一个空格,第二题是两个三角形,中间有一个空格,第三题是三角形
问几道图形题用pascal做1.**** ******** ******** ****2.+ +++ +++++ +++3.edcbacbaa4.135791357错了,第一题是两个相对的平行四边形,中间也有一个空格,第二题是两个三角形,中间有一个空格,第三题是三角形
第一题：
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.
完工,二十二翰林上