free pascal题目

Question

在屏幕上输出：
a
aba
abcba
abcdcba
……
a……z……a
高级点的方法做，适合FP中级水平
用for语句做

Answer 1

var i,j:integer;
begin
for i := 1 to 26 do
begin
write(' ':27-i);
for j := 1 to i do write(chr(96+j));
for j := i-1 downto 1 do write(chr(96+j));
writeln;
end;
end.

Answer 2

var s:string;
i,j,k:longint;
begin
k:=25;
s:='abcdefghijklmnopqrstuvwxyz';
writeln('a':26);
for i:=2 to 26 do begin
for j:=1 to k do write(' ');
for j:=1 to i do write(s[j]);
for j:=i-1 downto 1 do write(s[j]);
writeln;
dec(k);
end;
end.

Answer 3

var i,j:integer;
begin
for i:=1 to 26 do begin
write((13-i div 2)div 2);
for j:=1 to i do write(chr(j+96));
for j:=i-1 downto 1 do write(chr(j+96);
writeln;
end;
end.

Answer 4

var a,b:integer;
begin
program df;
var i,j:integer;
begin
for i:=1 to 26 do
begin
write(' ':27-i);
for j:=1 to i do
write(chr(96+j));
for j:=i-1 downto 1 do
write(chr(96+j));
writeln;
end;
end.