主题:看下题,看各位pascal学得咋样
w75317
[专家分:530] 发布于 2009-04-08 22:06:00
用free pascal作下题:
# # # # # # # # # # # # # # #
# # # # # # # # # # # # #
# # # # # # # # # # #
# # # # # # # # #
# # # # # # #
# # # # #
# # #
#
严重声明:不准用偷懒法,如果一段时间no有人回帖,偶写!
回复列表 (共5个回复)
沙发
xieyubo [专家分:20] 发布于 2009-04-09 18:01:00
楼主以后这种题目就不用出了。。。。
const m=15;
var i,j:integer;
begin
i:=0;
repeat
i:=i+1;
for j:=1 to i-1 do write(' ');
for j:=1 to m-2*(i-1) do write('#');
writeln;
until m-2*(i-1)=1;
end.
板凳
Ak47aaaaa [专家分:0] 发布于 2009-04-16 21:19:00
program mmmm;
var
i,j,k:longint;
begin
for i:=8 downto 1do
begin
for j:=0to 8-1do
write(' ');
for k:=15-i downto 1do
write('#');
writeln;
end;
end.
3 楼
几粒大米 [专家分:0] 发布于 2009-04-24 16:49:00
pro ii;
var i,n,j:integer;
begin
write('input n=');
read(n);
for i:= 1 to n do
begin
for j:= 1 to (i-1) do
write(' ');
for j:= 1 to (2*n+1-2*i) do
write('#');
for j:= 1 to (i-1) do
write(' ');
writeln;
end;
readln;
readln;
end.
我刚学PAS不到2个月 以前没接触过程序设计 算法很垃圾~
4 楼
curious [专家分:0] 发布于 2009-05-21 10:38:00
var i,j,n:integer;
begin
n:=8;
for i:=n downto 1 do begin
write(' ':40-2*i);
for j:=1 to 2*i-1 do
write('#':2);
writeln; end;
end.
5 楼
wangzhongqi96 [专家分:40] 发布于 2009-06-22 20:41:00
var
i,j,n:integer;
begin
readln(n);;
for i:=n downto 1 do
begin
write(' ':45-2*i);
for j:=1 to 2*i-1 do
write('#':2);
writeln;
end;
end.
我来回复