pascal语言编程26行字母

显示全部楼层 · 2009-6-8 16:36:57

a

a
b

a
b
c

.......................

a b c .............. y z

千问 · 2009-6-8 16:36:57

vari,j,k:integer;begink:=25;for i:=1 to 26 do begin
for j:=1 to k do
write(' ');
for j:=0 to i-1 do
write(chr(j+ord('a')),' ');
writeln; k:=k-2; end;readln;{这行可以不要}end....

千问 · 2009-6-8 16:36:57

这是我写的，都对，希望能帮助你。vari,j,n:integer;begin for i:=1 to 26 do begin
for j:=1 to 52-2*i do write(' ');
for j:=1 to i do write(chr(j+96),'');
writeln;...

pascal语言 编程26行 字母

pascal语言编程26行字母