NAIVE的曾经（2）

这个程也是我刚学完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.

一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一

这就是运行结果。