這個程也是我剛學完Free PASCAL的語法時自己編的竞滓。
不忘初心是美好的，但是我還是忘記了我做這個是干什么用的构订。
拿出來分享下空凸。
一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一
program qingrenjie;
const n=2;WAIT=100000000 div 2;
var i,j:longint;
s:string;
procedure Print(const s:string);
var i,j:longint;
begin
for i:=1 to length(s) do
begin
write(s[i]);
for j:=1 to WAIT do ;
end;
end;
begin
s:='I love you';
for i:=1 to 3*n do write(' ');
print(stringofchar(#3,4*n));
for i:=1 to 6*n do write(' ');
print(stringofchar(#3,4*n));
writeln;
for i:=1 to 2*n do write(' ');
print(stringofchar(#3,6*n));
for i:=1 to 4*n do write(' ');
print(stringofchar(#3,6*n));
writeln;
for i:=1 to 1*n do write(' ');
print(stringofchar(#3,8*n));
for i:=1 to 2*n do write(' ');
print(stringofchar(#3,8*n));
write(' ');
writeln;
write(' ');
print(stringofchar(#3,19*n));
writeln;
print(stringofchar(#3,20*n));
writeln;
print(stringofchar(#3,7*n));
for i:=1 to 1 do write(' ');
print(s[1]);print(s[2]);print(s[3]);print(s[4]); print(s[5]);print(s[6]);
print(s[7]);print(s[8]);print(s[9]);print(s[10]);
print(stringofchar(#3,7*n));
writeln;
for i:=1 to 2 do write(' ');
print(stringofchar(#3,18*n));
writeln;
for i:=1 to 4*(n-1) do write(' ');
print(stringofchar(#3,16*n));
writeln;
for i:=1 to 6*(n-1) do write(' ');
print(stringofchar(#3,14*n));
writeln;
for i:=1 to 8*(n-1) do write(' ');
print(stringofchar(#3,12*n));
writeln;
for i:=1 to 10*(n-1) do write(' ');
print(stringofchar(#3,10*n));
writeln;
for i:=1 to 12*(n-1) do write(' ');
print(stringofchar(#3,8*n));
writeln;
for i:=1 to 14*(n-1) do write(' ');
print(stringofchar(#3,6*n));
writeln;
for i:=1 to 16*(n-1) do write(' ');
print(stringofchar(#3,4*n));
writeln;
for i:=1 to 18*(n-1) do write(' ');
print(stringofchar(#3,2*n));
writeln;
for i:=1 to 19*(n-1) do write(' ');
print(stringofchar(#3,1*n));
writeln;
readln;
end.
一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一
這就是運行結果。
