问几道图形题用pascal做1.**** ******** ******** ****2.+ +++ +++++ +++
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/28 19:29:48
问几道图形题
用pascal做
1.**** ****
**** ****
**** ****
2.+ +
++ ++
+++ +++
3.edcba
cba
a
4.1
357
91357
错了,第一题是两个相对的平行四边形,中间也有一个空格,第二题是两个三角形,中间有一个空格,第三题是三角形
用pascal做
1.**** ****
**** ****
**** ****
2.+ +
++ ++
+++ +++
3.edcba
cba
a
4.1
357
91357
错了,第一题是两个相对的平行四边形,中间也有一个空格,第二题是两个三角形,中间有一个空格,第三题是三角形
![问几道图形题用pascal做1.**** ******** ******** ****2.+ +++ +++++ +++](/uploads/image/z/7301985-33-5.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%2B)
第一题:
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.
完工,二十二翰林上
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.
完工,二十二翰林上