问几道图形题用pascal做1.**** ******** ******** ****2.+ +++ +++++ +++3.edcbacbaa4.135791357错了,第一题是两个相对的平行四边形,中间也有一个空格,第二题是两个三角形,中间有一个空格,第三题是三角形
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/08 23:05:33
![问几道图形题用pascal做1.**** ******** ******** ****2.+ +++ +++++ +++3.edcbacbaa4.135791357错了,第一题是两个相对的平行四边形,中间也有一个空格,第二题是两个三角形,中间有一个空格,第三题是三角形](/uploads/image/z/3141192-48-2.jpg?t=%E9%97%AE%E5%87%A0%E9%81%93%E5%9B%BE%E5%BD%A2%E9%A2%98%E7%94%A8pascal%E5%81%9A1.%2A%2A%2A%2A+%2A%2A%2A%2A%2A%2A%2A%2A+%2A%2A%2A%2A%2A%2A%2A%2A+%2A%2A%2A%2A2.%2B+%2B%2B%2B+%2B%2B%2B%2B%2B+%2B%2B%2B3.edcbacbaa4.135791357%E9%94%99%E4%BA%86%2C%E7%AC%AC%E4%B8%80%E9%A2%98%E6%98%AF%E4%B8%A4%E4%B8%AA%E7%9B%B8%E5%AF%B9%E7%9A%84%E5%B9%B3%E8%A1%8C%E5%9B%9B%E8%BE%B9%E5%BD%A2%2C%E4%B8%AD%E9%97%B4%E4%B9%9F%E6%9C%89%E4%B8%80%E4%B8%AA%E7%A9%BA%E6%A0%BC%2C%E7%AC%AC%E4%BA%8C%E9%A2%98%E6%98%AF%E4%B8%A4%E4%B8%AA%E4%B8%89%E8%A7%92%E5%BD%A2%2C%E4%B8%AD%E9%97%B4%E6%9C%89%E4%B8%80%E4%B8%AA%E7%A9%BA%E6%A0%BC%2C%E7%AC%AC%E4%B8%89%E9%A2%98%E6%98%AF%E4%B8%89%E8%A7%92%E5%BD%A2)
问几道图形题用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.
完工,二十二翰林上